Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=49785&view=findpost&p=327874 Tue, 30 Mar 2004 16:17:09 +0000 Как в VB запретить модему брать трубку https://forum.sources.ru/index.php?showtopic=49785&view=findpost&p=327874
    Private Sub Form_Load()
    Com.CommPort = 'номер COM-порта, на котором висит модем
    Com.PortOpen = True 'Открываем порт
    End Sub
    Private Sub Комманда1_Click() 'командная кнопка
    Com.Output = "atz" '& Chr(13) & Chr(10) 'посылаем AT команду «снять трубку»
    End Sub
    Private Sub Timer1_Timer() 'таймер с периодом 0.1 сек
    If Com.InBufferCount > 0 Then ' если буфер изменился то
    Print Com.Input
    End If
    End Sub
В регистре S0 модема находится количество гудков, прежде чем модем снимет трубку. Команда «AT S0=0» запрещает модему снимать трубку.]]> Dufa Работа с аппаратурой