| Вопрос: Событие: выход в интернет | Добавлено: 22.09.04 10:53 |
Автор вопроса:  ANDREY Z5Z | Web-сайт: save-games.info
|
| Очень хотелось бы знать, как отследить выход в I-net. Или придется посылать запросы через какое-то время? |
| Ответы | Всего ответов: 15 |
|
Номер ответа: 1 Автор ответа:  mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #1 | Добавлено: 22.09.04 13:27 |
| Есть несколько способов решить эту проблему, где-то у меня исходник был, что демонстрирует эту проверку только тремя. Возможно, что с этого сайта. А что, это идея - сделать ActiveX Control, имеющий только одно событие - выход в интернет и свойство - проверка подключения (булево). Естественно, оформить это дело в исходниках и положить на сайт. Кто возьмется (могу я)? Да, ANDREY Z5Z, сделай поиск по форуму, этот вопрос обсуждался много раз... | ||
|
Номер ответа: 2 Автор ответа: ANDREY Z5Z Вопросов: 38 Ответов: 125 |
Web-сайт: Профиль | | #2 | Добавлено: 22.09.04 14:04 |
| Возьмись, наверно многим будет интересно. А на сайте я посмотрю. | ||
|
Номер ответа: 3 Автор ответа: ANDREY Z5ZВопросов: 38 Ответов: 125 |
Web-сайт: Профиль | | #3 | Добавлено: 22.09.04 14:30 |
| Кстати, я ничего не нашел - может скажете местоположение точно ? | ||
|
Номер ответа: 4 Автор ответа: Piton_4m Вопросов: 10 Ответов: 26 |
Профиль | | #4 | Добавлено: 22.09.04 15:05 |
|
Попробуй узнать имя соединения,,, если имя есть то есть и соединение, я так делал
Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long 'Где нибудь в процедуре Bf = Space$(100) InternetGetConnectedStateEx 0, bf, 99, 0 MsgBox Bf |
||
|
Номер ответа: 5 Автор ответа: ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #5 | Добавлено: 22.09.04 15:19 |
|
Код есть в Библиотеке кодов. |
||
|
Номер ответа: 6 Автор ответа: dNWВопросов: 30 Ответов: 683 |
Профиль | | #6 | Добавлено: 22.09.04 16:38 |
|
Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long Private Sub Form_Load() Dim Ret As Long, Res As Long Ret=IsNetworkAlive(Res) If Ret=1 And Res=2 Then MsgBox "Сейчас связь есть" Else MsgBox "Нет связи" End Sub |
||
|
Номер ответа: 7 Автор ответа: dNWВопросов: 30 Ответов: 683 |
Профиль | | #7 | Добавлено: 22.09.04 16:40 |
|
To Graymorda:
Система может вернуть тебе имя локального соединения, тогда как связи с инетом нет |
||
|
Номер ответа: 8 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #8 | Добавлено: 22.09.04 19:17 |
|
http://user.rol.ru/~jsmaster/isconnect3.zip
на 30 дней |
||
|
Номер ответа: 9 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #9 | Добавлено: 22.09.04 19:40 |
|
ANDREY Z5Z
А что за программу пишешь, интересно. Контрол, мне кажется, после этого примера тебе не понадобится. |
||
|
Номер ответа: 10 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #10 | Добавлено: 22.09.04 21:30 |
Да ну что хоть вы... два раза кидал код, три типа, на трех языках... Кто ищет тот всегда найдет 
|
||
|
Номер ответа: 11 Автор ответа:  BarsikРазработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #11 | Добавлено: 23.09.04 13:18 |
|
Молодец sne!!!
правду говоришь.... кстати твой код очень полезен!!! |
||
|
Номер ответа: 12 Автор ответа: ANDREY Z5ZВопросов: 38 Ответов: 125 |
Web-сайт: Профиль | | #12 | Добавлено: 23.09.04 16:33 |
| Пишу некий "вирус", который должен срабатывать при выходе в I-net. | ||
|
Номер ответа: 13 Автор ответа: dNWВопросов: 30 Ответов: 683 |
Профиль | | #13 | Добавлено: 23.09.04 17:17 |
| Только учти, что IsNetworkAlive глючит в win98 | ||
|
Номер ответа: 14 Автор ответа: BarsikРазработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #14 | Добавлено: 25.09.04 21:08 |
|
Возьми пример с сайта IsConnect3 и не парься.
Там три способа. Выбери оптимальный... |
||
|
Номер ответа: 15 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #15 | Добавлено: 25.09.04 23:33 |
|
2 ANDREY Z5Z
Давай вместе? Я свой бросил на середине, влом стало. Просто я кое-что умею полезного в этом направлении. |
||
Страница: 1 |