如何判断internet已经断开？(50分)

如何检测当前，internet 的状态？

post一下新浪最实际

从各大门户网站取回一些HTML，如果都取不回来说明INTERNET断开了
（包括直接连线、通过网关的局域网等方式上网的机器），
除非各大门户网站都倒闭了，但这种概率只有
0.000000000000000000000000000000000001%。

function InternetConnected: Boolean;
const
// local system uses a modem to connect to the Internet.
INTERNET_CONNECTION_MODEM = 1;
// local system uses a local area network to connect to the Internet.
INTERNET_CONNECTION_LAN = 2;
// local system uses a proxy server to connect to the Internet.
INTERNET_CONNECTION_PROXY = 4;
// local system's modem is busy with a non-Internet connection.
INTERNET_CONNECTION_MODEM_BUSY = 8;
var
dwConnectionTypes : DWORD;
begin
dwConnectionTypes := INTERNET_CONNECTION_MODEM+ INTERNET_CONNECTION_LAN
+ INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;

InternetGetConnectedState
InetIsOffline
http://www.tomore.com/4/4.html

函數測試不准的 我以前試驗過 結論就是我所說的

判断不出来，断网后显示是通的