Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как обратиться к модему? / 25 сообщений из 132, страница 1 из 6
  1  все
17.08.2011, 11:09
    #37399058
donpauls
donpauls
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться к модему?
Как обратиться к конкретному модему (если их несколько) программно и заставить его выполнять команды (АТ)
Например, как заставить его позвонить?

Только речь идёт не о dial-up модеме, а о модеме в моб. телефоне.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.08.2011, 12:10
    #37399209
Дмитрий77
Дмитрий77
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться к модему?
donpauls,

Microsoft Comm Control 6.0

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
ResultRing = OtvetRing("ATD" & number & ";")

Function OtvetRing(Zapros As String) As String
Dim dummy
Dim ltime
Dim FromModem As String
    If Not (Zapros = "") Then
        FormPort.MSComm1.Output = Zapros & vbCr
    End If
    FormPort.MSComm1.InBufferCount =  0 
    ltime = Timer()
    Do
        dummy = DoEvents()
        If FormPort.MSComm1.InBufferCount Then
            FromModem = FromModem + FormPort.MSComm1.Input
            If InStr(FromModem, "OK") Then
                OtvetRing = "OK"
                Exit Do
            ElseIf InStr(FromModem, "BUSY") Then
                OtvetRing = "BUSY"
                Exit Do
            ElseIf InStr(FromModem, "NO CARRIER") Then
                OtvetRing = "NO CARRIER"
                Exit Do
            End If
        End If
    Loop
End Function

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

Пример справочника:
http://amber.feld.cvut.cz/user/pokorny/bpdp/S25_ATC.PDF
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.08.2011, 17:12
    #37405144
donpauls
donpauls
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться к модему?
Не хочет работать...

run-time error '424':
Object required
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.08.2011, 17:17
    #37405148
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться к модему?
надо угадать, на какой строке?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.08.2011, 23:30
    #37405398
donpauls
donpauls
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться к модему?
Shocker.Proнадо угадать, на какой строке?
FormPort.MSComm1.Output = Zapros & vbCr
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.08.2011, 00:43
    #37405445
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться к модему?
Ну а форма и коммконтрол именно так называются?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.08.2011, 01:42
    #37405471
donpauls
donpauls
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться к модему?
Shocker.ProНу а форма и коммконтрол именно так называются?

Да, с этим я не разобрался сразу... была ошибка в названии формы. Я использовал Form1 вместо FormPort

Но теперь другая проблема:

run-time error '8018':
Operation valid only when the port is open

Похоже сначала порт нужно открыть?..

И ещё я не могу установить в свойствах MSComm1 номер порта COM30, на который у меня подключен модем.
Выше 16-го не ставится.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.08.2011, 03:46
    #37405491
пробуй камнем
пробуй камнем
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться к модему?
[quot donpauls]Shocker.Pro...
И ещё я не могу установить в свойствах MSComm1 номер порта COM30, на который у меня подключен модем.
Выше 16-го не ставится.
Как для Вас писано 11140799
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.08.2011, 14:41
    #37406170
donpauls
donpauls
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться к модему?
пробуй камнем,

Спасибо большое, получилось!!

Теперь следующая задача, как этот код разместить в access?

По ходу нужно как-то добавить объект MSComm1, а как это сделать, я не знаю...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.08.2011, 16:41
    #37406397
ZVI
ZVI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться к модему?
donpaulsПо ходу нужно как-то добавить объект MSComm1, а как это сделать, я не знаю...
Достаточно установить Reference на Microsoft Comm Control 6.0
То есть на: C:\Windows\System32\MSCOMM32.OCX

А в коде прописать:
Код: plaintext
1.
2.
3.
4.
5.
Dim MSComm1 As New MSComm

Sub Test()
  MSComm1.InBufferCount =  0 
  ' ...
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.08.2011, 20:13
    #37406689
donpauls
donpauls
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться к модему?
ZVI,

Спасибо большое, всё получилось! Вот мой код:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
Function OtvetRing(Zapros As String) As String

  Dim MSComm1 As MSComm: Set MSComm1 = New MSComm
  Zapros = "ATD" & telsms(Zapros) & ";"
Dim dummy
Dim ltime
Dim FromModem As String
MSComm1.CommPort =  30 
MSComm1.PortOpen = True
    If Not (Zapros = "") Then
        MSComm1.Output = Zapros & vbCr
    End If
    MSComm1.InBufferCount =  0 
    ltime = Timer()
    Do
        dummy = DoEvents()
        If MSComm1.InBufferCount Then
            FromModem = FromModem + MSComm1.Input
            If InStr(FromModem, "OK") Then
                OtvetRing = "OK"
                Exit Do
            ElseIf InStr(FromModem, "BUSY") Then
                OtvetRing = "BUSY"
                Exit Do
            ElseIf InStr(FromModem, "NO CARRIER") Then
                OtvetRing = "NO CARRIER"
                Exit Do
            End If
        End If
    Loop
    

    
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.08.2011, 21:39
    #37406781
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться к модему?
donpauls, то есть просто по кабелю подсоединяем сотовый телефон
пишем процедуру

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub FIO()

Dim Zapros As String
Zapros = "89028912680"

OtvetRing Zapros

End Sub

и Ваша функция и всё??
Или надо телефон настраивать
просто попробовать нет возможности
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.08.2011, 21:48
    #37406789
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться к модему?
там что библиотеку Microsoft Comm Control 6.0 надо подключать???
что-то у меня такой нет
??
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.08.2011, 23:53
    #37406955
donpauls
donpauls
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться к модему?
Ципихович Эндрю,

Да, библиотеку нужно подключать, если нету - вылаживаю здесь: http://donpauls.my1.ru/mscomm32.rar, а то та что была - была с ограничением до 16 портов, пришлось изменять.

Кроме того в функции необходимо указать номер порта, к которому подключен модем.

Код: plaintext
MSComm1.CommPort =  30

Это можно узнать в свойствах модема.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2011, 00:30
    #37406986
donpauls
donpauls
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться к модему?
Ципихович Эндрю,

телефон настраивать не надо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2011, 00:48
    #37406998
donpauls
donpauls
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться к модему?
Ципихович Эндрю,

только драйвера нужно установить и проследить, чтобы модем был установлен.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2011, 05:46
    #37407086
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться к модему?
donpaulsЦипихович Эндрю,

Да, библиотеку нужно подключать, если нету - вылаживаю здесь: http://donpauls.my1.ru/mscomm32.rar, а то та что была - была с ограничением до 16 портов, пришлось изменять.

Кроме того в функции необходимо указать номер порта, к которому подключен модем.

Код: plaintext
MSComm1.CommPort =  30

Это можно узнать в свойствах модема.

Невозможно найти ресурс

Возможно, он был удален, переименован, или временно недоступен.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2011, 05:50
    #37407087
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться к модему?
по Вашей ссылке нет библиотеки
забыл спросить, а если телефон с двумя СИМ картами, как быть
А также родскажите как скачанную библиотеку добавить, а то я сто раз читал, а ни разу не делал
Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2011, 08:03
    #37407110
donpauls
donpauls
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться к модему?
Ципихович Эндрюпо Вашей ссылке нет библиотеки
забыл спросить, а если телефон с двумя СИМ картами, как быть
А также родскажите как скачанную библиотеку добавить, а то я сто раз читал, а ни разу не делал
Спасибо

в ссылке в конце уберите запятую

архив нужно распаковать и библиотеку вкинуть в C:\WINDOWS\system32\

потом эту библиотеку надо подключить через "обзор"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2011, 08:09
    #37407116
donpauls
donpauls
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться к модему?
Ципихович Эндрю,

если 2 симки, будет звонить с той, которая в данный момент активна
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2011, 20:11
    #37408689
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться к модему?
donpauls, теперь с telsms - функция не определена
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2011, 23:02
    #37408821
donpauls
donpauls
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться к модему?
Ципихович Эндрюdonpauls, теперь с telsms - функция не определена

А, это не обязательно...
Это приведение номера в нужный формат: удаление "-", "(", ")"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2011, 18:26
    #37414179
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться к модему?
donpauls, скажите, этот код для модема
Стандартный модем 56000 bps Подключен к COM2 подойдёт???
В его свойствах указано, Размещение - Нет данных
Правда я его опрашивал, там ошибка была, но я ещё ней не занимался, не знаю стоит копать дальше??
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2011, 18:28
    #37414183
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться к модему?
просит проверить, что для порта правильное прерывание
как оно проверяется??
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2011, 19:53
    #37414207
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться к модему?
мои посты от сегодня, 18:26
и
от сегодня, 18:28
отменяются, лучше звонить через этот модем, только что поставил его
PCI SoftV92 Data Fax Modem Подключен к COM3
Размещение: PCI гнездо 7 (PCI шина 1, устройство 9, функция 0)
Во всяком случае, я его опросил, всё ОК
Возможно звонить через него программно??
На этой строке
MSComm1.CommPort = 30
номер порта указать надо, где его посмотреть??
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как обратиться к модему? / 25 сообщений из 132, страница 1 из 6
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 405ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2158083]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 38ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 67ms
get tp. blocked users:
 2ms
others: 253ms
total:  405ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]