VBNet - Форум - Проверка качества связи

Вопрос: Проверка качества связи Добавлено: 31.10.05 15:49

Автор вопроса: 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 чтобы перейти в коммандный режим +++
но я не получаю эту строку и ссответственно +++ не работает.
Ответить

Ответы Всего ответов: 1

Номер ответа: 1 Автор ответа: Neco ICQ: 247906854 Вопросов: 133 Ответов: 882	Web-сайт: neco.pisem.net Профиль \| \| #1	Добавлено: 02.11.05 04:13
	Когда я пытался сделать звонилку напрямую через мопед, а не через ras у меня этой проблемы не возникало, кажется. Дозванивался, модем начинал пищать, потом затихал (ну как обычно всё) и мне начинали приходить данные: сначала ботва типа "вас приветствует бла-бла-бла", потом предлагали ввести логин, потом пароль, а вот потом начиналась хрень какая-то которая меня и тормознула. Видимо это были какие-то попытки договориться о протоколах, но я нигде хелпов не нагрёб и забил. А что даёт "+++"? Ответить

Страница: 1 |