Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2003.07.17;
Скачать: [xml.tar.bz2];

Вниз

Как 100% узнать есть ли в данный момент соединение с инетом?   Найти похожие ветки 

 
keymaster   (2003-05-11 11:47) [0]

Нужно незаметно для юзера узнавать есть ли соединение с интернетом.
Инет - модемный, часто рвётся.
Если использовать InetIsOffline(0) то при первом соединении она скажет что инет есть навсегда. т.е. даже если соединение пропало, то она говорит что оно есть.

Я пользовался такой штукой:

function TMainForm.IsOnline : Boolean;
var
WSAData : TWSAData;
p : PHostEnt;
Str : String;
begin
WSAStartup($0101, WSAData);
try
p := GetHostByName("www.microsoft.com");
Str := inet_ntoa(PInAddr(p.h_addr_list^)^);
//если соединения нет то здесь возникает Exception
Result := True;
except
Result := False;
end;
WSACleanup;
end;


И это должно проверять сеть раз в 5 минут.
Печально то, что при первом запуске программы (из автозагрузки),
возникает окно системы "вы или программа запросили информацию с узла www.microsoft.com" что уже не является "незаметным для пользователя".

Кто с этим боролся, поделитесь, плиз.


 
Song   (2003-05-11 11:56) [1]

Нет 100%-го способа.


 
Reindeer Moss Eater   (2003-05-12 15:27) [2]

Зачем трояну знать о соединении с со всем инетом?
Достаточно соединения с хостом, на который сливается информация.


 
Reindeer Moss Eater   (2003-05-12 15:28) [3]

И если у пользователя есть сетевой экран, от подобного сообщения никуда не деться.



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2003.07.17;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.023 c
14-55836
Феликс
2003-07-01 20:44
2003.07.17
Как так гарно получилось? :)


1-55557
Navi
2003-07-06 22:52
2003.07.17
Вставка текста в ячейку TStringGrid


6-55707
LOX
2003-05-10 14:18
2003.07.17
Код который разрывает связь с инетом.


1-55597
Ross
2003-07-03 13:51
2003.07.17
Создание и удаление файла


14-55742
Кен
2003-07-01 04:55
2003.07.17
Как вы думаете, в какую сторону развивается GLScene ? Чего автор





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский