SOS! Мне нужен реальный код! Windows XP. Delphi 7. Internet.
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
SOS! Мне нужен реальный код! Windows XP. Delphi 7. Internet. - 2004-10-07 15:53:41
|
|
|
Erekle
Сообщений: 3
Оценки: 0
Присоединился: 2004-10-07 12:56:32
|
SOS! Мне нужен реальный код!
Windows XP. Delphi 7. Internet.
Мне нужен реальный код, чтобы проверять Интернет соединение “Connected”, “Not Connected” или “Disconnected”! Windows XP. Delphi 7. Internet.
Что-то вроде етаго, но это дрянь в WinXP-е не работает:
function InetIsOffline(Flag: Integer): Boolean; stdcall; external ''URL.DLL'';
procedure TForm1.Button1Click(Sender: TObject);
begin
if InetIsOffline(0) then
showMessage(''This computer is not connected to Internet!'')
else
showMessage(''You are connected to Internet!'');
end;
|
|
|
|
|
SOS! Мне нужен реальный код! Windows XP. Delphi 7. Internet. - 2004-10-07 19:47:52
|
|
|
DeepThinker
Сообщений: 177
Оценки: 0
Присоединился: 2004-06-13 02:26:09
|
Не знаю, че там в делфи, но как вариант можно проверить айпи. Если он 127.0.0.1, комп не подключен.
|
|
|
|
|
SOS! Мне нужен реальный код! Windows XP. Delphi 7. Internet. - 2004-10-11 20:31:55
|
|
|
MishaSt
Сообщений: 10
Оценки: 0
Присоединился: 2004-06-18 21:28:53
|
——-cuttted from MyDoom.A/lib.c———–
<BR>/* Returns: 0=offline, 1=online, 2=don't know */<BR>int is_online(void)<BR>{<BR> WININET_GETCONNECTEDSTATE pInternetGetConnectedState;<BR> HINSTANCE hWinInet;<BR> DWORD igcs_flags;<BR> char tmp[64];<BR><BR> rot13(tmp, "jvavarg.qyy"); /* "wininet.dll" */<BR> hWinInet = GetModuleHandle(tmp);<BR> if (hWinInet == NULL || hWinInet == INVALID_HANDLE_VALUE) {<BR> hWinInet = LoadLibrary(tmp);<BR> if (hWinInet == NULL || hWinInet == INVALID_HANDLE_VALUE)<BR> return 2;<BR> }<BR><BR> rot13(tmp, "VagreargTrgPbaarpgrqFgngr"); /* "InternetGetConnectedState" */<BR> pInternetGetConnectedState = (WININET_GETCONNECTEDSTATE)GetProcAddress(hWinInet, tmp);<BR> if (pInternetGetConnectedState == NULL)<BR> return 2;<BR><BR> return (pInternetGetConnectedState(&igcs_flags, 0) == 0) ? 0 : 1;<BR>}<BR>
————————–
На Delphi сам переводи
|
|
|
|
|
SOS! Мне нужен реальный код! Windows XP. Delphi 7. Internet. - 2004-10-12 13:18:44
|
|
|
SiDChik
Сообщений: 16
Оценки: 0
Присоединился: 2004-10-11 21:35:36
|
Как вариант можно пропинговать какойнить http сервак. Либо просто скачать страничку с него….. Хотя и долговато зато наверника. :)[sm=9.gif]
|
|
|
|
|
|
