Как обратиться к модему? / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как обратиться к модему?

25 сообщений из 132, страница 1 из 6

все

Как обратиться к модему?

#37399058

donpauls

Гость

Как обратиться к конкретному модему (если их несколько) программно и заставить его выполнять команды (АТ)
Например, как заставить его позвонить?

Только речь идёт не о dial-up модеме, а о модеме в моб. телефоне.

...

Рейтинг:

0 / 0

17.08.2011, 11:09

| Ответить | Цитировать | Написать

Как обратиться к модему?

#37399209

Дмитрий77

Участник

Сообщения: 4 490

Рейтинг: 0 / 0

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

17.08.2011, 12:10

| Ответить | Цитировать | Написать

Как обратиться к модему?

#37405144

donpauls

Гость

Не хочет работать...

run-time error '424':
Object required

...

Рейтинг:

0 / 0

21.08.2011, 17:12

| Ответить | Цитировать | Написать

Как обратиться к модему?

#37405148

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

надо угадать, на какой строке?

...

Рейтинг:

0 / 0

21.08.2011, 17:17

| Ответить | Цитировать | Написать

Как обратиться к модему?

#37405398

donpauls

Гость

Shocker.Proнадо угадать, на какой строке?
FormPort.MSComm1.Output = Zapros & vbCr

...

Рейтинг:

0 / 0

21.08.2011, 23:30

| Ответить | Цитировать | Написать

Как обратиться к модему?

#37405445

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Ну а форма и коммконтрол именно так называются?

...

Рейтинг:

0 / 0

22.08.2011, 00:43

| Ответить | Цитировать | Написать

Как обратиться к модему?

#37405471

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, 01:42

| Ответить | Цитировать | Написать

Как обратиться к модему?

#37405491

пробуй камнем

Гость

[quot donpauls]Shocker.Pro...
И ещё я не могу установить в свойствах MSComm1 номер порта COM30, на который у меня подключен модем.
Выше 16-го не ставится.
Как для Вас писано 11140799

...

Рейтинг:

0 / 0

22.08.2011, 03:46

| Ответить | Цитировать | Написать

Как обратиться к модему?

#37406170

donpauls

Гость

пробуй камнем,

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

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

По ходу нужно как-то добавить объект MSComm1, а как это сделать, я не знаю...

...

Рейтинг:

0 / 0

22.08.2011, 14:41

| Ответить | Цитировать | Написать

Как обратиться к модему?

#37406397

ZVI

Участник

Откуда: Sevastopol

Сообщения: 473

Рейтинг: 0 / 0

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, 16:41

| Ответить | Цитировать | Написать

Как обратиться к модему?

#37406689

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, 20:13

| Ответить | Цитировать | Написать

Как обратиться к модему?

#37406781

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

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:39

| Ответить | Цитировать | Написать

Как обратиться к модему?

#37406789

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

там что библиотеку Microsoft Comm Control 6.0 надо подключать???
что-то у меня такой нет
??

...

Рейтинг:

0 / 0

22.08.2011, 21:48

| Ответить | Цитировать | Написать

Как обратиться к модему?

#37406955

donpauls

Гость

Ципихович Эндрю,

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

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

Код: plaintext

MSComm1.CommPort =  30

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

...

Рейтинг:

0 / 0

22.08.2011, 23:53

| Ответить | Цитировать | Написать

Как обратиться к модему?

#37406986

donpauls

Гость

Ципихович Эндрю,

телефон настраивать не надо

...

Рейтинг:

0 / 0

23.08.2011, 00:30

| Ответить | Цитировать | Написать

Как обратиться к модему?

#37406998

donpauls

Гость

Ципихович Эндрю,

только драйвера нужно установить и проследить, чтобы модем был установлен.

...

Рейтинг:

0 / 0

23.08.2011, 00:48

| Ответить | Цитировать | Написать

Как обратиться к модему?

#37407086

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

donpaulsЦипихович Эндрю,

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

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

Код: plaintext

MSComm1.CommPort =  30

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

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

Возможно, он был удален, переименован, или временно недоступен.

...

Рейтинг:

0 / 0

23.08.2011, 05:46

| Ответить | Цитировать | Написать

Как обратиться к модему?

#37407087

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

по Вашей ссылке нет библиотеки
забыл спросить, а если телефон с двумя СИМ картами, как быть
А также родскажите как скачанную библиотеку добавить, а то я сто раз читал, а ни разу не делал
Спасибо

...

Рейтинг:

0 / 0

23.08.2011, 05:50

| Ответить | Цитировать | Написать

Как обратиться к модему?

#37407110

donpauls

Гость

Ципихович Эндрюпо Вашей ссылке нет библиотеки
забыл спросить, а если телефон с двумя СИМ картами, как быть
А также родскажите как скачанную библиотеку добавить, а то я сто раз читал, а ни разу не делал
Спасибо

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

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

потом эту библиотеку надо подключить через "обзор"

...

Рейтинг:

0 / 0

23.08.2011, 08:03

| Ответить | Цитировать | Написать

Как обратиться к модему?

#37407116

donpauls

Гость

Ципихович Эндрю,

если 2 симки, будет звонить с той, которая в данный момент активна

...

Рейтинг:

0 / 0

23.08.2011, 08:09

| Ответить | Цитировать | Написать

Как обратиться к модему?

#37408689

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

donpauls, теперь с telsms - функция не определена

...

Рейтинг:

0 / 0

23.08.2011, 20:11

| Ответить | Цитировать | Написать

Как обратиться к модему?

#37408821

donpauls

Гость

Ципихович Эндрюdonpauls, теперь с telsms - функция не определена

А, это не обязательно...
Это приведение номера в нужный формат: удаление "-", "(", ")"

...

Рейтинг:

0 / 0

23.08.2011, 23:02

| Ответить | Цитировать | Написать

Как обратиться к модему?

#37414179

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

donpauls, скажите, этот код для модема
Стандартный модем 56000 bps Подключен к COM2 подойдёт???
В его свойствах указано, Размещение - Нет данных
Правда я его опрашивал, там ошибка была, но я ещё ней не занимался, не знаю стоит копать дальше??

...

Рейтинг:

0 / 0

26.08.2011, 18:26

| Ответить | Цитировать | Написать

Как обратиться к модему?

#37414183

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

просит проверить, что для порта правильное прерывание
как оно проверяется??

...

Рейтинг:

0 / 0

26.08.2011, 18:28

| Ответить | Цитировать | Написать

Как обратиться к модему?

#37414207

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

мои посты от сегодня, 18:26
и
от сегодня, 18:28
отменяются, лучше звонить через этот модем, только что поставил его
PCI SoftV92 Data Fax Modem Подключен к COM3
Размещение: PCI гнездо 7 (PCI шина 1, устройство 9, функция 0)
Во всяком случае, я его опросил, всё ОК
Возможно звонить через него программно??
На этой строке
MSComm1.CommPort = 30
номер порта указать надо, где его посмотреть??

...

Рейтинг:

0 / 0

26.08.2011, 19:53

| Ответить | Цитировать | Написать

25 сообщений из 132, страница 1 из 6

все

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как обратиться к модему?

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&fpage=86&tid=2158083]:	0ms
get settings:	8ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	30ms
get topic data:	13ms
get forum data:	3ms
get page messages:	87ms
get tp. blocked users:	2ms
others:	342ms

total:	506ms