
Public Function CallNumber (numTel) as String
'Открываем порт
Open "COM1:" FOR OUTPUT AS #1
'Посылаем команду atdp и номер телефона
Print #1, "atdp" & numTel
'Закрываем порт
CLOSE
'Далее строки не обязательны и комп на некоторых модемах от них зависает, но если тебе важно что выдаст модем в ответ:
Open "COM1:" FOR INPUT AS #1
do while not eof(1)
input #1, CallNumber
loop
CLOSE
End Function
Сейчас этот форум просматривают: Yandex-бот и гости: 11