У кого есть опыт работы с gsm.dll? - VB
Формулировка задачи:
Здравствуйте, есть dll gsm.dll - функционал шикарный
Библиотека и набор программ для доступа к мобильному телефону через GSM модем. Позволяет производить бэкап
Резервное копирование (англ. backup) — процесс создания копии данных на носителе (жёстком диске, дискете и т. д.), предназначенном для восстановления данных в оригинальном месте их расположения в случае их повреждения или разрушения, соответствующими программами — резервными дубликаторами данных.
данных с телефона, скачивать и закачивать телефонную записную книжку, посылать или читать SMS сообщения (включая ранее полученные и сохраненные в памяти телефона).
Кто нибудь пользовался этой либой?, можете выложить код при её применении на VB(A)?
Спасибо
Решение задачи: «У кого есть опыт работы с gsm.dll?»
textual
Листинг программы
- Option Explicit
- Sub Модемы()
- 'http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/computermanagement/hardware/
- 'предпоследний скрипт: Retrieves information about all the modems installed in a computer
- 'для запуска в VBA заменить wscript.echo на debug.print или MsgBox$ или Selection.TypeText Text:=
- On Error Resume Next
- Dim strComputer As String
- strComputer = "."
- Dim objWMIService As Object
- Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
- Dim colItems As Object
- Set colItems = objWMIService.ExecQuery("Select * from Win32_POTSModem")
- Dim objItem As Object
- Dim Количество_модемов As Byte
- Dim Результат As String
- For Each objItem In colItems
- Количество_модемов = Количество_модемов + 1
- 'MsgBox$ "Attached To - номер COM порта: " & objItem.AttachedTo
- 'MsgBox$ "Blind Off: " & objItem.BlindOff
- 'MsgBox$ "Blind On: " & objItem.BlindOn
- 'MsgBox$ "Compression Off: " & objItem.CompressionOff
- 'MsgBox$ "Compression On: " & objItem.CompressionOn
- 'MsgBox$ "Configuration Manager Error Code: " & objItem.ConfigManagerErrorCode
- 'MsgBox$ "Configuration Manager User Configuration: " & objItem.ConfigManagerUserConfig
- 'MsgBox$ "Configuration Dialog: " & objItem.ConfigurationDialog
- 'MsgBox$ "Country Selected - выбранная страна: " & objItem.CountrySelected
- 'MsgBox$ "Device ID: " & objItem.DeviceID
- 'MsgBox$ "Device Type - тип устройства: " & objItem.DeviceType
- 'MsgBox$ "Driver Date: " & objItem.DriverDate
- 'MsgBox$ "Error Control Forced: " & objItem.ErrorControlForced
- 'MsgBox$ "Error Control Off: " & objItem.ErrorControlOff
- 'MsgBox$ "Error Control On: " & objItem.ErrorControlOn
- 'MsgBox$ "Flow Control Hard: " & objItem.FlowControlHard
- 'MsgBox$ "Flow Control Off: " & objItem.FlowControlOff
- 'MsgBox$ "Flow Control Soft: " & objItem.FlowControlSoft
- 'MsgBox$ "Inactivity Scale: " & objItem.InactivityScale
- 'MsgBox$ "Inactivity Timeout: " & objItem.InactivityTimeout
- 'MsgBox$ "Index: " & objItem.Index
- 'MsgBox$ "Maximum Baud Rate To SerialPort - максимальная скорость передачи последовательного порта: " & objItem.MaxBaudRateToSerialPort
- 'MsgBox$ "Model - модель: " & objItem.Model
- 'MsgBox$ "Modem Inf Path: " & objItem.ModemInfPath
- 'MsgBox$ "Modem Inf Section: " & objItem.ModemInfSection
- 'MsgBox$ "Modulation Bell: " & objItem.ModulationBell
- 'MsgBox$ "Modulation CCITT: " & objItem.ModulationCCITT
- 'MsgBox$ "Name - имя модема: " & objItem.Name
- 'MsgBox$ "PNP Device ID: " & objItem.PNPDeviceID
- 'MsgBox$ "Port SubClass: " & objItem.PortSubClass
- 'MsgBox$ "Prefix: " & objItem.Prefix
- 'MsgBox$ "Provider Name: " & objItem.ProviderName
- 'MsgBox$ "Pulse - импульс: " & objItem.Pulse
- 'MsgBox$ "Reset - сброс: " & objItem.Reset
- 'имя (хуже)
- 'MsgBox$ "Responses Key Name: " & objItem.ResponsesKeyName
- 'спикер выбора режимов
- 'MsgBox$ "Speaker Mode Dial: " & objItem.SpeakerModeDial
- 'MsgBox$ "Speaker Mode Off: " & objItem.SpeakerModeOff
- 'MsgBox$ "Speaker Mode On: " & objItem.SpeakerModeOn
- 'MsgBox$ "Speaker Mode Setup: " & objItem.SpeakerModeSetup
- 'MsgBox$ "Speaker Volume High: " & objItem.SpeakerVolumeHigh
- 'MsgBox$ "Speaker Volume Info: " & objItem.SpeakerVolumeInfo
- 'MsgBox$ "Speaker Volume Low: " & objItem.SpeakerVolumeLow
- 'MsgBox$ "Speaker Volume Med: " & objItem.SpeakerVolumeMed
- 'MsgBox$ "Status Info: " & objItem.StatusInfo
- 'MsgBox$ "Terminator: " & objItem.Terminator
- 'MsgBox$ "Tone - тон: " & objItem.Tone
- Результат = Результат & Количество_модемов & " " & objItem.Model & Chr$(13)
- Next
- MsgBox$ "Количество модемов: " & Количество_модемов & Chr$(13) & Результат
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д