| Вопрос: MSComm-контрол | Добавлено: 31.10.05 17:06 |
Автор вопроса:  anatoliy
|
|
Добрый день! Помогите разобраться
Написал код для проверки качества соединения модема Private Sub Command1_Click() Modem.Output = "ATDPxxxxxxxx" & Chr$(13) End Sub Private Sub Command2_Click() Modem.Output = "+++" & Chr$(13) End Sub Private Sub Command3_Click() Modem.Output = "AT#E1" & Chr$(13) End Sub ''E-mail: absoft@mail.natm.ru Private Sub Form_Load() On Error GoTo ELine Modem.CommPort = 1 Modem.Settings = "115200,N,8,1" Modem.InputLen = 0 Modem.PortOpen = True Exit Sub ELine: Inp = Err.Description End Sub Private Sub Form_Unload(Cancel As Integer) On errir GoTo ErLine Modem.PortOpen = False Exit Sub ErLine: Debug.Print Err.Description End Sub Private Sub Send_Click() Inp.Text = "" Modem.Output = boxsend.Text & Chr$(13) End Sub Private Sub timer_Timer() On Error GoTo NoMem Dim InString As String If Modem.InBufferCount > 0 Then ''Inp.Text = Modem.InBufferCount Inp.SelStart = Len(Inp) Inp.SelText = Modem.Input End If Exit Sub NoMem: Inp.Text = "" End Sub после нажатия кнопки command1 ,я должен получить сообщение от удаленного модема connect и.т.д и далее login чтобы перейти в коммандный режим +++ но я не получаю эту строку и ссответственно +++ не работает. |
| Ответы | Всего ответов: 0 |
Страница: