Заказ по модемам

[Ципихович Эндрю]

Здравствуйте на трёх языках нужно ВБ, JScript, JavaScript
Ситуация, к компу подключено два телефона городской и сотовый
в Ворде и файле ХТМЛ кинуть кнопку - это я делаю сам, на ней указан номер телефона - как счиатать знаю только на ВБ. Юзер жмёт на кнопку, прога считывает сколько сейчас доступно модемов - как я знаю, если более одного, форма, спрашивает с какого звоним, юзер выбрал - нажал кнопку. Прога выясняет все нюансы снята ли трубка, нет ли разговора в линии и если есть проблемы выдаёт сообшение, какая именно проблема
прилагаю файл http://files.mail.ru/BBQM0D, там указано Самсунг - Отсутствует, это можно программно узнать?? Если да то как?

Пояснения:
Вообще городской бесплатный, вроде бы вопрос снят, так как этим сказано всё, но не попадалось Вам такое - звоните человеку с городского - не берёт, звоните с сотового, у него определяется, звонит Ципихович Эндрю и тут же берёт, не было у Вас такого???
Как на сотовом может быть "снята трубка", "нет ли разговора в линии"???
В принципе согласен, просто это фриланс, договоримся, сделаете, заплачу, просто это разговор на перёд, вдруг что не так пойдёт, чтобы я мог обратиться к Вам, и чтобы не было отговорок, мол в ТС этого не было

мыло: 89028912680@mail.ru

[Ципихович Эндрю]

пришлось написать в поддержку производителя модема, ответ получил
о подключенном последовательно телефоне к модему можно узнать: должен приходить DLE код H
Великолепно, как бы это в код перевести??

[Ципихович Эндрю]

Вот код:

Option Explicit

Sub PhoneПозвонить()

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 MSComm1 As MSComm
Set MSComm1 = New MSComm

Dim objItem As Object

Dim Количество_модемов As Byte
Dim Количество_доступных_модемов As Byte

Dim ИмяCOMпорта As String
Dim MSComm1Input As String
Dim Результат As String

For Each objItem In colItems
Количество_модемов = Количество_модемов + 1
ИмяCOMпорта = objItem.AttachedTo
MSComm1.CommPort = ИмяCOMпорта
MSComm1.PortOpen = True
MSComm1.Output = "ATI" & vbCr
'If Err.Number <> 0 Then MsgBox$ Err.Number & "-" & Err.Description
Err.Clear
MSComm1Input = MSComm1.Input
MSComm1.PortOpen = False

If Len(MSComm1Input) = 0 Then
Результат = Результат & Количество_модемов & " " & objItem.Model & " - " & objItem.AttachedTo & " - Не доступен для звонка" & Chr$(13)

Else

Результат = Результат & Количество_модемов & " " & objItem.Model & " - " & objItem.AttachedTo & " - Доступен для звонка" & Chr$(13)
Количество_доступных_модемов = Количество_доступных_модемов + 1
End If

Next

'установка объекта в значение Nothing требуется для освобождения памяти, которая была выделена для создания этого объекта
Set objWMIService = Nothing
Set colItems = Nothing
Set MSComm1 = Nothing

'отключает действие строки 1) On Error GoTo ... 2) либо действие строки On Error Resume Next
On Error GoTo 0

MsgBox$ "Количество установленных модемов в компьютере: " & Количество_модемов & Chr$(13) & Результат & "Количество модемов, доступных для звонка: " & Количество_доступных_модемов

End Sub

Добился я сообщения:
Количество установленных модемов в компьютере: 2
1 Стандартный модем 56000 bps - COM2 - Не доступен для звонка
2 PCI SoftV92 Data Fax Modem - COM3 - Доступен для звонка
Количество модемов, доступных для звонка: 1
Теперь как узнать у модема PCI SoftV92 Data Fax Modem
1. у последовательно к нему подключённого телефона снята или повешена трубка???
2. этот же телефон не занят? То есть происходит уже разговор или нет?

[Ципихович Эндрю]

оказывается я поторопился, в предыдущем после указано:

Сообщение от Ципихович Эндрю

Вот код:
Добился я сообщения:
Количество установленных модемов в компьютере: 2
1 Стандартный модем 56000 bps - COM2 - Не доступен для звонка
2 PCI SoftV92 Data Fax Modem - COM3 - Доступен для звонка
Количество модемов, доступных для звонка: 1

На самом деле, сообщение: Количество модемов, доступных для звонка: 0
А должна быть 1, то есть считает не верно, как ещё этого добится, чтобы верно считало

[Ципихович Эндрю]

оказывается я поторопился, в предыдущем после указано:

"Добился я сообщения:
Количество установленных модемов в компьютере: 2
1 Стандартный модем 56000 bps - COM2 - Не доступен для звонка
2 PCI SoftV92 Data Fax Modem - COM3 - Доступен для звонка
Количество модемов, доступных для звонка: 1"

На самом деле, сообщение: Количество модемов, доступных для звонка: 0
А должна быть 1, то есть считает не верно, как ещё этого добится, чтобы верно считало