ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как обратиться к модему?
25 сообщений из 132, страница 4 из 6
  4  все
Как обратиться к модему?
    #37434346
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
timtim, в этой части какую-нибудь пакость написать Вы мастер
...
Рейтинг: 0 / 0
10.09.2011, 22:31
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37434970
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
Ципихович Эндрю,

пакость - не пакость, всё зря
с ресурсами в приложении разобрался?
...
Рейтинг: 0 / 0
11.09.2011, 18:55
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37434973
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
timtim, к чему вопрос, вопросом на вопрос не люблю отвечать, ответ такой - нет не разобрался, но придумал как выйти из положения, разобраться не против.
Есть желание помочь??
...
Рейтинг: 0 / 0
11.09.2011, 18:58
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37435029
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
Ципихович Эндрюк чему вопрос, вопросом на вопрос не люблю отвечать, ответ такой - нет не разобрался
значит не е..., так почему не разобрался? не разбирался вообще или тебе разбираться некогда? в чем причина? ответом на вопрос ответь.
...
Рейтинг: 0 / 0
11.09.2011, 19:53
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37435039
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
timtim, 11259280
...
Рейтинг: 0 / 0
11.09.2011, 19:57
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37435123
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
Ципихович Эндрю,

В воскресной прострации я
Сейчас начну материться
Озвучь свою конечную цель! Зачем тебе эта тема?
На оптику переходи.
...
Рейтинг: 0 / 0
11.09.2011, 21:34
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37435174
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
timtim, может в Кремль переехать??
А что плохого будет, если находясь в Ворде я щёлкну по номеру, прога проверит номер ли это и наберёт мне этот номер с городского телефона, это я уже сделал
А тут ещё о чудо, лежит на столе сотовый телефон и прога набирает с него, и без проводов, так и не понял, без проводов это по
1 блютузу?
2 вайфаю?
3 и то и другое на выбор?
нужный номер телефона, что плохого??
...
Рейтинг: 0 / 0
11.09.2011, 22:11
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37435177
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
забыл спросить, что такое: "воскресная прострация" и просто "прострация", а какая она бывает кроме воскресной?
...
Рейтинг: 0 / 0
11.09.2011, 22:13
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37435189
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ребята, я вас мягко пока предупреждаю... давайте в теме по делу... если вообще кому-то охота отвечать ЦЭ по делу
...
Рейтинг: 0 / 0
11.09.2011, 22:22
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37494419
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Здравствуйте, что-то на строке
Код: plaintext
1.
Dim MSComm1 As MSComm
Set MSComm1 = New MSComm 'стал получать ошибку ошибка  429  ACtiveX component can't
create object
В то же время библиотека Microsoft Comm Control 6.0 подключена, как лечить??
Раньше было гладко
дома нет ошибки, а на работе есть
????
В обоих случаях Винда - ХР
Файл MSCOMM32.OCX на работе и дома один и тот же
Библиотеку регистрировал и разрегестрировал и снова регестировал
Ворд переставлял, винду переустнавливал - не помогает
Есть мнение воспользоваться MicrosoftFixit50181.msi
Качнул, там файл MicrosoftFixit50181.msi начинаешь его ставить, что-то деает, что не понятно
Как им пользоваться???
Как лечить???
Заранее спасибо
...
Рейтинг: 0 / 0
23.10.2011, 20:25
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37519108
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
решил эту проблему, аккуратно два месяца она меня нервировала
ответ неожиданный
в ветке
HKEY_CLASSES_ROOT\Licenses\4250E830-6AC2-11cf-8ADB-00AA00C00905
должно быть значение "kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun"
Магическая строка - "kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun"
Не подскажите
1. как отловить, если в указанном в коде порту в компе пусто - нет модема, сообщить пользователю
2. как узнать к модему указанном в коде подключен городской или сотовый телефон
3. если подключу сотовый телефон к компьютеру, как отправить СМС
Заранее спасибо
...
Рейтинг: 0 / 0
09.11.2011, 20:54
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37519157
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
Ципихович Эндрю,

У Вас там подморозило?
...
Рейтинг: 0 / 0
09.11.2011, 21:41
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37523445
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
1
для открытия порта поставил блок
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim q As Byte
        For q =  1  To  254 
        MSComm1.CommPort = q
 
        'ошибка 8012 Метод PortOpen of object IMSComm failed
        MSComm1.PortOpen = True
        MsgBox$ Err.Number & " " & Err.Description
        Err.Number =  0 
        Next q
получил ответы
1-ошибка 8002
2-ошибка 0
3 и дальше до конца ошибка 8005
Всё с ног на голову, у меня заняты порты
2 - Стандартный модем 5600
3 - SoftV92 Data Fax Modem
Значит насколько я понимаю у меня ошибка 0 должна быть когда q = 2 и q = 3
а в остальных случаях какая-то одна ошибка
Но это увы не так
А тут вылазят ошибки 8002 и 8005, что это за ошибки??
Очень удивило, что текст у этих ошибок и главное у ошибки 0 один и тот же
Application-defined or object-defined error
С чего это у ошибки 0 имеется текст???????
Или я не так мыслю???

2
пробую после открытия порта послать команду "AT+CSQ" & vbCr
Код: plaintext
1.
2.
MSComm1.PortOpen = True
'проверка уровня сигнала базовой станции оператора
MSComm1.Output = "AT+CSQ" & vbCr
Но как потом уловить ответ???, какой код??
...
Рейтинг: 0 / 0
12.11.2011, 12:17
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37524218
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
не доганяю, поясните пожалуйста, меня интерисует работа с модемом, но я вынужден гулить
rs 232 и VB6 или COM порт, на странице http://vbstreets.ru/VB/Articles/66394.aspx имеется рисунок rs 232, он же и есть COM порт???
А при чём тут модем?
...
Рейтинг: 0 / 0
13.11.2011, 15:22
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37525976
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
сегодня, ровно до обеда MsgBox$ - выдавал ответ - три порта, что так и есть, а сейчас упорно сообщает, что их 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.
28.
29.
  Dim MSComm1 As MSComm
    Set MSComm1 = New MSComm

    Dim q As Byte
  
    'оператор для отлова ошибок, указывает, что при возникновении ошибки нужно переходить к следующей строке кода
    On Error Resume Next
    
    For q =  1  To  254 
        'номер COM порта
        MSComm1.CommPort = q
        'открыть порт
        MSComm1.PortOpen = True
        '1й Beep
        If MSComm1.PortOpen = True Then Beep
        'устанавливаем\опрашиваем 0 или 1 присутствует на выводе CTS, состояние False или True
        MSComm1CTSHolding = MSComm1.CTSHolding
        '2й Beep
        If MSComm1CTSHolding = True Then Beep: Количество_портов = Количество_портов +  1 

    Next q

MsgBox$ _
            "Количество портов" & Chr( 13 ) & _
                                Количество_портов & Chr( 13 ) & _
                                "Все порты" & Chr( 13 ) & _
                                Все_порты
...
Рейтинг: 0 / 0
14.11.2011, 17:17
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37525981
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
не вижу объявления вашей переименной Количество_портов
...
Рейтинг: 0 / 0
14.11.2011, 17:19
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37526074
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Konst_One, ну сейчас всё по феншую, а толку, всё равно 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.
28.
29.
30.
31.
32.
33.
Option Explicit

Sub FIO()

    Dim MSComm1 As MSComm
    Set MSComm1 = New MSComm

    Dim q As Byte
    Dim Количество_портов As Byte
    Dim MSComm1CTSHolding As Boolean

    'оператор для отлова ошибок, указывает, что при возникновении ошибки нужно переходить к следующей строке кода
    On Error Resume Next

    For q =  1  To  254 
        'номер COM порта
        MSComm1.CommPort = q
        'открыть порт
        MSComm1.PortOpen = True
        '1й Beep
        If MSComm1.PortOpen = True Then Beep
        'устанавливаем\опрашиваем 0 или 1 присутствует на выводе CTS, состояние False или True
        MSComm1CTSHolding = MSComm1.CTSHolding
        '2й Beep
        If MSComm1CTSHolding = True Then Количество_портов = Количество_портов +  1 

    Next q

    MsgBox$ _
            "Количество портов" & Chr( 13 ) & _
                                Количество_портов

End Sub
...
Рейтинг: 0 / 0
14.11.2011, 18:09
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37526963
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
On Error Resume Next
убери это и проверь, что за ошибка
...
Рейтинг: 0 / 0
15.11.2011, 11:51
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37527825
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Konst_One, спасибо, завтра проэкперементирую, скажу
...
Рейтинг: 0 / 0
15.11.2011, 17:59
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37528008
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Интересно, сколько еще раз ЦЭ наступит на эти грабли...
...
Рейтинг: 0 / 0
15.11.2011, 19:14
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37528023
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro, просто уверен, что там нет никаких ошибок, просто затерялась эта строка, раньше всё было по другому, этот блок добавил, подождём до завтра, тем более я же сказал, что
>сегодня, ровно до обеда MsgBox$ - выдавал ответ - три порта, что так и есть, а сейчас упорно сообщает, что их 0, почему????

И с этой строкой выдавал ответ три!!!!!, а сейчас с этой же строкой говорит 0
...
Рейтинг: 0 / 0
15.11.2011, 19:22
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37529090
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
извиняюсь был не прав
но в настоящее время, ещё больше вопросов
и так, всё с начала
на компе у меня два модема, два порта com3 и com4, вот код:
Код: 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.
    Dim MSComm1 As MSComm
    Set MSComm1 = New MSComm

    Dim q As Byte
    Dim Количество_портов As Byte
    Dim MSComm1CTSHolding As Boolean

    For q =  1  To  254 
        'номер COM порта
        MSComm1.CommPort = q
        'открыть порт
        MSComm1.PortOpen = True 'когда q = 2, ошибка 8002
        '1й Beep
        If MSComm1.PortOpen = True Then Beep
        'устанавливаем\опрашиваем 0 или 1 присутствует на выводе CTS, состояние False или True
        MSComm1CTSHolding = MSComm1.CTSHolding
        '2й Beep
        If MSComm1CTSHolding = True Then Количество_портов = Количество_портов +  1 
        
         'закрыть порт
        MSComm1.PortOpen = False

    Next q

    MsgBox$ _
            "Количество портов" & Chr( 13 ) & _
                                Количество_портов
когда q = 2, то есть com2, тогда ошибка 8002, а чем отличается com1 от com2??? - загадка
...
Рейтинг: 0 / 0
16.11.2011, 13:19
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37529101
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
в BIOS лезь и смотри как настроены. моё предположение, что com2 выключен (осутствует в devices).
ещё как вариант стоит программа виртуальных портов и шарит один из них на него.
...
Рейтинг: 0 / 0
16.11.2011, 13:24
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37529435
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Konst_One,
>что com2 выключен (осутствует в devices)
а как же то, что я опрашиваю com2 вручную с Панели управления и получаю ответ - Успешно
???
>стоит программа виртуальных портов и шарит один из них на него
а это как можно узнать??
хотя опять же - я опрашиваю com2 вручную с Панели управления и получаю ответ - Успешно
????
...
Рейтинг: 0 / 0
16.11.2011, 15:25
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37529450
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
что значит?

Ципихович Эндрюа как же то, что я опрашиваю com2 вручную с Панели управления и получаю ответ - Успешно
...
Рейтинг: 0 / 0
16.11.2011, 15:28
| Ответить | Цитировать | Написать  
25 сообщений из 132, страница 4 из 6
  4  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как обратиться к модему?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/moderation_log.php?user_name=User44]:
 0ms
get settings:
 10ms
get forum list:
 12ms
get settings:
 10ms
get forum list:
 14ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 35ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 58ms
get tp. blocked users:
 2ms
others: 868ms
total:  1053ms
созд. / загр.: 1053ms
x
x
Закрыть


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