Модем MSComm

[seelts]

Немогу понять: когда я набираю номер дозваниваясь к провайдеру модем не издаёт никаких звуков....но это нормально, тк у меня в настройках отключен звук, а када через мскомм начинаю звонить (атд....) он пищать начинает? - почему так... как звук регулировать?

[seelts]

ну с громкостью я разобрался: ATL0 - молчим ... ATL3 - орём
правда если сделать атл и потом сразу атд№... то почему то не набирает... ну да ладно.
теперь вот вопрос: запускаю прогу, жму на кнопку набрать номер... а прога то набирает то нет.. и не понятно от чего это зависит. ничего не меняю, а она то набирает то нет...ну ладно.... вот что меня больше интересует - почему в текстовом (мультилайн) поле отклики модема отображаются обрезаными....те:я говорю модему:
атдт447285
а из инпута приходит:
атдт4472
, потом допустим номер занят и мне приходит:
85 ' <- окончание которое не дошло
БИЗИ

чё за байда?
плиз хелп

[Cyrax]

ну с громкостью я разобрался: ATL0 - молчим ... ATL3 - орём
правда если сделать атл и потом сразу атд№... то почему то не набирает... ну да ладно.
теперь вот вопрос: запускаю прогу, жму на кнопку набрать номер... а прога то набирает то нет.. и не понятно от чего это зависит. ничего не меняю, а она то набирает то нет...ну ладно.... вот что меня больше интересует - почему в текстовом (мультилайн) поле отклики модема отображаются обрезаными....те:я говорю модему:
атдт447285
а из инпута приходит:
атдт4472
, потом допустим номер занят и мне приходит:
85 ' <- окончание которое не дошло
БИЗИ

чё за байда?
плиз хелп

про "то набирает, то не набирает": проверяй занятость порта... может он с прошлого раза до сих пор еще открыт (у меня такое бывало)
а про "отклики": вообще-то, надо бы посмотреть твой код, ну да ладно...

в примере из мсдн было примерно следующее:

Код: Выделить всё

Do
  DoEvents
  Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$, "OK" & vbCRLF)
Text1.Text = Text1.Text & Buffer$

[seelts]

Код: Выделить всё

mscModem.CommPort = 2 'cmbCOM.ListIndex + 1
mscModem.Settings = "28800,N,8,1"
mscModem.InputLen = 0
mscModem.PortOpen = True
'mscModem.Output = "ATL1" & Chr$(13)
mscModem.Output = "ATD" & IIf(cmbType.ListIndex = 0, "T", "P") & txtNumber.Text & Chr$(13)
Do
DoEvents
'mscModem.InputLen = 0  -  не знаю нужна эта строка или нет? - вроде
'ето значит что будем использовать весь буфер.... вобщем у меня
'заремена....
If mscModem.PortOpen Then 'эта проверка в принцепе здесь не нужна
'но всётаки...
                     ret = mscModem.Input
                     If Len(ret) > 0 Then txtChat.Text = txtChat.Text + ret + vbCrLf
                     Else
                     Exit Do
                     End If
Loop Until Len(ret) > 0 'mscModem.InBufferCount > 0


если б порт был открыт в момент начала звонка, то ерор бы вылез ещё когда я попытался бы открыть его ещё раз... а так всё без ошибок но то набирает, то нет....