У кого есть опыт работы с gsm.dll? - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте, есть dll gsm.dll - функционал шикарный Библиотека и набор программ для доступа к мобильному телефону через GSM модем. Позволяет производить бэкап Резервное копирование (англ. backup) — процесс создания копии данных на носителе (жёстком диске, дискете и т. д.), предназначенном для восстановления данных в оригинальном месте их расположения в случае их повреждения или разрушения, соответствующими программами — резервными дубликаторами данных. данных с телефона, скачивать и закачивать телефонную записную книжку, посылать или читать SMS сообщения (включая ранее полученные и сохраненные в памяти телефона). Кто нибудь пользовался этой либой?, можете выложить код при её применении на VB(A)? Спасибо

Решение задачи: «У кого есть опыт работы с gsm.dll?»

textual
Листинг программы
  1. Option Explicit
  2.  
  3. Sub Модемы()
  4.  
  5. 'http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/computermanagement/hardware/
  6. 'предпоследний скрипт: Retrieves information about all the modems installed in a computer
  7. 'для запуска в VBA заменить wscript.echo на debug.print или MsgBox$ или  Selection.TypeText Text:=
  8.  
  9.     On Error Resume Next
  10.  
  11.     Dim strComputer As String
  12.     strComputer = "."
  13.  
  14.     Dim objWMIService As Object
  15.     Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
  16.  
  17.     Dim colItems As Object
  18.     Set colItems = objWMIService.ExecQuery("Select * from Win32_POTSModem")
  19.  
  20.     Dim objItem As Object
  21.    
  22. Dim Количество_модемов As Byte
  23. Dim Результат As String
  24.  
  25.     For Each objItem In colItems
  26.     Количество_модемов = Количество_модемов + 1
  27.         'MsgBox$ "Attached To - номер COM порта: " & objItem.AttachedTo
  28.        'MsgBox$ "Blind Off: " & objItem.BlindOff
  29.        'MsgBox$ "Blind On: " & objItem.BlindOn
  30.        'MsgBox$ "Compression Off: " & objItem.CompressionOff
  31.        'MsgBox$ "Compression On: " & objItem.CompressionOn
  32.        'MsgBox$ "Configuration Manager Error Code: " & objItem.ConfigManagerErrorCode
  33.        'MsgBox$ "Configuration Manager User Configuration: " & objItem.ConfigManagerUserConfig
  34.        'MsgBox$ "Configuration Dialog: " & objItem.ConfigurationDialog
  35.        'MsgBox$ "Country Selected - выбранная страна: " & objItem.CountrySelected
  36.        'MsgBox$ "Device ID: " & objItem.DeviceID
  37.        'MsgBox$ "Device Type - тип устройства: " & objItem.DeviceType
  38.        'MsgBox$ "Driver Date: " & objItem.DriverDate
  39.        'MsgBox$ "Error Control Forced: " & objItem.ErrorControlForced
  40.        'MsgBox$ "Error Control Off: " & objItem.ErrorControlOff
  41.        'MsgBox$ "Error Control On: " & objItem.ErrorControlOn
  42.        'MsgBox$ "Flow Control Hard: " & objItem.FlowControlHard
  43.        'MsgBox$ "Flow Control Off: " & objItem.FlowControlOff
  44.        'MsgBox$ "Flow Control Soft: " & objItem.FlowControlSoft
  45.        'MsgBox$ "Inactivity Scale: " & objItem.InactivityScale
  46.        'MsgBox$ "Inactivity Timeout: " & objItem.InactivityTimeout
  47.        'MsgBox$ "Index: " & objItem.Index
  48.        'MsgBox$ "Maximum Baud Rate To SerialPort - максимальная скорость передачи последовательного порта: " & objItem.MaxBaudRateToSerialPort
  49.        'MsgBox$ "Model - модель: " & objItem.Model
  50.        'MsgBox$ "Modem Inf Path: " & objItem.ModemInfPath
  51.        'MsgBox$ "Modem Inf Section: " & objItem.ModemInfSection
  52.        'MsgBox$ "Modulation Bell: " & objItem.ModulationBell
  53.        'MsgBox$ "Modulation CCITT: " & objItem.ModulationCCITT
  54.        'MsgBox$ "Name - имя модема: " & objItem.Name
  55.        'MsgBox$ "PNP Device ID: " & objItem.PNPDeviceID
  56.        'MsgBox$ "Port SubClass: " & objItem.PortSubClass
  57.        'MsgBox$ "Prefix: " & objItem.Prefix
  58.        'MsgBox$ "Provider Name: " & objItem.ProviderName
  59.        'MsgBox$ "Pulse - импульс: " & objItem.Pulse
  60.        'MsgBox$ "Reset - сброс: " & objItem.Reset
  61.        'имя (хуже)
  62.        'MsgBox$ "Responses Key Name: " & objItem.ResponsesKeyName
  63.        'спикер выбора режимов
  64.        'MsgBox$ "Speaker Mode Dial: " & objItem.SpeakerModeDial
  65.        'MsgBox$ "Speaker Mode Off: " & objItem.SpeakerModeOff
  66.        'MsgBox$ "Speaker Mode On: " & objItem.SpeakerModeOn
  67.        'MsgBox$ "Speaker Mode Setup: " & objItem.SpeakerModeSetup
  68.        'MsgBox$ "Speaker Volume High: " & objItem.SpeakerVolumeHigh
  69.        'MsgBox$ "Speaker Volume Info: " & objItem.SpeakerVolumeInfo
  70.        'MsgBox$ "Speaker Volume Low: " & objItem.SpeakerVolumeLow
  71.        'MsgBox$ "Speaker Volume Med: " & objItem.SpeakerVolumeMed
  72.        'MsgBox$ "Status Info: " & objItem.StatusInfo
  73.        'MsgBox$ "Terminator: " & objItem.Terminator
  74.        'MsgBox$ "Tone - тон: " & objItem.Tone
  75.        Результат = Результат & Количество_модемов & " " & objItem.Model & Chr$(13)
  76.  
  77.     Next
  78.    
  79.     MsgBox$ "Количество модемов: " & Количество_модемов & Chr$(13) & Результат
  80.  
  81. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.3 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут