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

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

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

Модераторы: 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

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

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

[ Script execution time: 0,0152 ] [ 15 queries used ] [ Generated: 15.09.25, 19:12 GMT ]