VBNet - Форум - телеф звонок через модем

Вопрос: телеф звонок через модем Добавлено: 07.02.06 18:09

Автор вопроса: Боцман | Web-сайт: Rus-Skipper.narod.ru | ICQ: 295725312

есть код и работает , но когда хр загружается вместе с включеным одемом не работает пока не выключишь и опять не включишь модем
Private Sub Command1_Click()
On Local Error Resume Next
    Static Num As String
    Num = "555-55-55" ' Это - номер телефона
    ' Получите номер от пользователя.
    Num = InputBox$("Введите Номер телефона или оставте текущий:", "Позвонить по этому домашнему номеру?", Num)
    If Num = "" Then Exit Sub
        ' Откройте порт, если это не уже открыто.
    If Not MSComm1.PortOpen Then
       MSComm1.PortOpen = Not MSComm1.PortOpen
    If Err Then MsgBox Error$, 48
       If Err Then Exit Sub
    End If
    MSComm1.Output = "ATDT" & Num & vbCrLf
End Sub
вопрос а если уже открыт?
Ответить

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

Номер ответа: 1 Автор ответа: Палыч Вопросов: 8 Ответов: 25	Профиль \| \| #1	Добавлено: 07.02.06 21:51
	Легко! Перед открытием порта проверяешь: If MSComm1.PortOpen = True Then MSComm1.PortOpen = False MSComm1.PortOpen = True и далее свой код... Ответить

Номер ответа: 2 Автор ответа: Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830	Web-сайт: Rus-Skipper.narod.ru Профиль \| \| #2	Добавлено: 07.02.06 23:00
	*******очевидное рядом ************* я пытался это сделать но порт открывал позже не получилось.СПАСИБО. зайди на мой сайт там скреншот первой проги сейчас готовлю вторую/земля и небо/ код в два раза меньше а удобства и красоты в два раза больше. Так вот там поиск по букве я решил его 15 символами если интересует дам исходник поиска. http://Rus-Skipper.narod.ru Rus-Skipper@yandex.ru Ответить

Страница: 1 |