Главная страница
    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.44 MB
Время: 0.007 c
3-55453
Rel_
2003-06-24 13:58
2003.07.17
Создание таблицы


7-55877
Карелин Артем
2003-04-28 13:34
2003.07.17
Сервис для W2000. Восстановление при сбое.


14-55843
cyborg
2003-07-01 00:30
2003.07.17
100 самых часто употребимых россиянами слов


3-55409
Relaxxx
2003-06-23 16:29
2003.07.17
MultiSelect в DBGrid


3-55471
AlexA
2003-06-11 12:53
2003.07.17
ApplyUpdates?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский