Ищу пример работы с com портом - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте. Возникла необходимость написать приложение для работы с ком-портом. Нужно: дозвониться по номеру телефона из списка, подождать ответа, если ответ на звонок есть то воспроизвести аудиофайл, положить трубку и набрать следующий номер из списка. Вся проблема в том, что я никогда раньше не работал с ком-портами. Есть ли какой нибудь пример (исходник) работы с MSComm или через API? Команды АТ я для мадема нашел. Пака разбираюсь. Буду благодарен любому наставлению на путь истиный.

Решение задачи: «Ищу пример работы с com портом»

textual
Листинг программы
Private Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" (ByVal Dest As String, ByVal AppName As String, ByVal CalledParty As String, ByVal Comment As String) As Long
Private Sub PhoneCall(sNumber As String, sName As String)
    Dim lRetVal As Long
    lRetVal = tapiRequestMakeCall(Trim$(sNumber), App.Title, Trim$(sName), "")
    If lRetVal <> 0 Then
        'Couldn't make the call.
        'Take appropriate action
    End If
End Sub
Private Sub Form_Load()
    PhoneCall "123456", "TheName"
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.909 из 5