Как в VB запретить модему брать трубку -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [18.191.211.66]

Модераторы: SCINER, B.V.

Как в VB запретить модему брать трубку

D[u]fa

Сообщ. #1 , 30.03.04, 16:17

Master

Рейтинг (т): 112

Для этого нам понадобится контрол MSComm. Но есть в VB 6.0 Enterprise Edition. Бросаем его на форму, и переименовываем в «com»

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» запрещает модему снимать трубку.

Сообщение отредактировано: Andrey_Kun - 07.04.04, 15:54

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0154 ] [ 16 queries used ] [ Generated: 27.04.24, 12:58 GMT ]