Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.16.15.149] |
|
Сообщ.
#1
,
|
|
|
Для этого нам понадобится контрол 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 |