Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: HELP!!!!!!!!!!!!!!!!!!!! Добавлено: 09.10.03 02:52  

Автор вопроса:  Alles | ICQ: 45033230 

Господа ! выручайте , уже башню срывает напрочь.
Как проиграть wav файл через модем тел. в линию средствами VB
заткнулся на команде AT+VTX всю процедуру кидать не стал сильно много , сжал все до команд. Что делать когда модем ответил CONECT ?
================================
ATZ
AT&FE0V1&C1&D2S0=0+FCLASS=8
AT+VSM=128,8000
AT+VSD=128,100
AT+VGT=127
AT+VGR=130
AT+VLS=3
AT+VTX

Do
      DoEvents
   FromModem$ = FromModem$ + MSComm1.Input
    Text3.Text = Text3.Text + FromModem$ & vbCrLf
   If InStr(FromModem$, "OK") Then Exit Do
'==============================================  

If InStr(FromModem$, "CONNECT") Then '...... Что вот тут ????

'=============================================== 

  If InStr(FromModem$, "ERROR") Then DirectSS.Select (lstEngine.ListIndex + 3): DirectSS.Speak "Ошибка в наборе команды нажмите сброс": Exit Sub
    If InStr(FromModem$, "BUSY") Then DirectSS.Select (lstEngine.ListIndex + 3): DirectSS.Speak "Линия занята": Number = 1: GoTo bross
   Loop Until InStr(FromModem$, "OK" & vbCrLf)
AT+VLS=0
ATZ

Ответить

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

Номер ответа: 1
Автор ответа:
 tigrix



Вопросов: 13
Ответов: 16
  Web-сайт: f
 Профиль | | #1 		Добавлено: 09.10.03 21:02
Тут был такой вопрос! Я предлжил компонент который это делает.

Ответить

Номер ответа: 2
Автор ответа:
 Alles



ICQ: 45033230 

Вопросов: 2
Ответов: 3
  Профиль | | #2 Добавлено: 10.10.03 05:40

А чо .......поточнее написать было в лом ???

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам