ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBS: Опрос dial-up модема
12 сообщений из 12, страница 1 из 1
VBS: Опрос dial-up модема
    #35539880
brime
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
brime
Гость
Приветствую.
Как на VBS можно реализовать опрос модема?
Интересует программная реализация стандартного механизма опроса через интерфейс.
...
Рейтинг: 0 / 0
15.09.2008, 15:35
| Ответить | Цитировать | Написать  
VBS: Опрос dial-up модема
    #35540311
Фотография BION
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BION
Участник
brimeПриветствую.
Как на VBS можно реализовать опрос модема?
Интересует программная реализация стандартного механизма опроса через интерфейс.

Код: plaintext
1.
2.
3.
4.
5.
Set MSComm = CreateObject("MSCommLib.MSComm")
cmd = "AT"
MSComm.CommPort =  3 
MSComm.Settings = "9600,N,8,1"
MSComm.PortOpen = true
MSComm.Output = cmd & chr( 13 )
...
Рейтинг: 0 / 0
15.09.2008, 17:28
| Ответить | Цитировать | Написать  
VBS: Опрос dial-up модема
    #35540355
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: BION
> brime
> Приветствую.
> Как на VBS можно реализовать опрос модема?
> Интересует программная реализация стандартного механизма опроса через
> интерфейс.
>
>
>
> Set MSComm = CreateObject("MSCommLib.MSComm")
> cmd = "AT"
> MSComm.CommPort = 3
> MSComm.Settings = "9600,N,8,1"
> MSComm.PortOpen = true
> MSComm.Output = cmd & chr(13)


Ему же нужен прием, а не передача. А прием мне кажется не возможен

--
С уважением Горбонос Игорь Леонидович

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
15.09.2008, 17:38
| Ответить | Цитировать | Написать  
VBS: Опрос dial-up модема
    #35540398
Фотография BION
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BION
Участник
Ах опоросить!? Ну тут видимо без написания COM dll не обойтись...
Код: plaintext
1.
2.
3.
4.
Dim WithEvents comm As MSCommLib.MSComm

Private Sub comm_OnComm()
    Select Case comm.CommEvent ...
End Sub
... и вперед.
...
Рейтинг: 0 / 0
15.09.2008, 17:48
| Ответить | Цитировать | Написать  
VBS: Опрос dial-up модема
    #35540471
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Игорь Горбонос
Ему же нужен прием, а не передача. А прием мне кажется не возможен
Возможен.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Set MSComm = CreateObject("MSCommLib.MSComm")
MSComm.CommPort =  1 
MSComm.Settings = "19200,N,8,1"
MSComm.PortOpen = true
MSComm.Output = "ATZ" & vbCrLf
out=""
Do
    out = MSComm.Input
    If out <> "" Then
        MsgBox out
        Exit Do
    End If
Loop
...
Рейтинг: 0 / 0
15.09.2008, 18:15
| Ответить | Цитировать | Написать  
VBS: Опрос dial-up модема
    #35540491
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Antonariy
> Возможен.
> Do
> ......
> Loop


Тьфу ты! Точно! Вылетела из головы возможность работы в бесконечном цикле

--
С уважением Горбонос Игорь Леонидович

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
15.09.2008, 18:24
| Ответить | Цитировать | Написать  
VBS: Опрос dial-up модема
    #35540520
Фотография BION
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BION
Участник
AntonariyВозможен.
Код: plaintext
1.
2.
3.
4.
5.
6.
Do
    out = MSComm.Input
    If out <> "" Then
        MsgBox out
        Exit Do
    End If
Loop


Ээх, да да да, и мая забыть
...
Рейтинг: 0 / 0
15.09.2008, 18:38
| Ответить | Цитировать | Написать  
VBS: Опрос dial-up модема
    #35548700
brime
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
brime
Гость
Спасибо!
Скачал и зарегистрировал COMCTL32.OCX и Mscomm32.ocx.

при выполнении такого vbs
Код: plaintext
1.
2.
3.
4.
5.
Set MSComm = CreateObject("MSCommLib.MSComm")
cmd = "AT"
MSComm.CommPort =  3 
MSComm.Settings = "9600,N,8,1"
MSComm.PortOpen = true
MSComm.Output = cmd & chr( 13 )

получаю такую ошибку:
---------------------------
VbsEdit
---------------------------
Line: 1
Column: 0
Error: (null)
Code: 80040112
Source: (null)
---------------------------
ОК
---------------------------


Как это побороть....этот объект можно вообще использовать в vbs?
...
Рейтинг: 0 / 0
19.09.2008, 12:38
| Ответить | Цитировать | Написать  
VBS: Опрос dial-up модема
    #35549072
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: brime
> при выполнении такого vbs
....
> получаю такую ошибку:
....
> Как это побороть....этот объект можно вообще использовать в vbs?

Сделать Dim MSComm не пробовал?

--
С уважением Горбонос Игорь Леонидович

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
19.09.2008, 14:28
| Ответить | Цитировать | Написать  
VBS: Опрос dial-up модема
    #35549300
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
А COMCTL32 зачем? Визуальные контролы в VBS так же полезны, как в пустыне ласты.
Для MSComm нужна лицензия:
Код: plaintext
HKEY_CLASSES_ROOT\Licenses\4250E830-6AC2-11cf-8ADB-00AA00C00905 = kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun
...
Рейтинг: 0 / 0
19.09.2008, 15:35
| Ответить | Цитировать | Написать  
VBS: Опрос dial-up модема
    #35549451
brime
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
brime
Гость
Всем большое спасибо!!!
После добавления в реестр лицензии все заработало.
...
Рейтинг: 0 / 0
19.09.2008, 16:28
| Ответить | Цитировать | Написать  
VBS: Опрос dial-up модема
    #35549779
Фотография Бенедикт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бенедикт
Участник
Получать и обрабатывать события в VBS можно (уж не знаю, с какой версии):
Код: plaintext
1.
2.
3.
4.
5.
Dim MSComm
Set MSComm = WScript.CreateObject("MSCommLib.MSComm", "MSComm_")
...
Sub MSComm_OnComm()
...
End Sub
...
Рейтинг: 0 / 0
19.09.2008, 18:49
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBS: Опрос dial-up модема
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=179&tid=2161826]:
 0ms
get settings:
 8ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 27ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 26ms
get tp. blocked users:
 1ms
others: 223ms
total:  307ms
созд. / загр.: 307ms
x
x
Закрыть


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