[送分100]如何判断电脑是否在网上（已经连接Internet）? (100分)

如何判断电脑是否在网上（已经连接Internet）?

用ping命令ping一下你的网关就知道了。

在程序中如何写呀？

用webbrowser 控件，
读取大型网站的一个内容很少的网页，
看控件反回的HTML
代码，
正确，就是进入了INTERNET
不正确就是断线了。

也可以用NMFT控件，
如果它的IP地址为：
127。0。0。1
就没上网（对于用猫的用户来说）
如果不是127.0.0.1
说明已上网。
如果在局域网内就用上边的方法了。

我是没有找到好方法呀。
也可以这样：
我在作一个木马时就了这个语句，
try
.....
except
.....

就是异常处理，
让程序自己处理是不是已上网是不是可以和外边通信。

其实我的这个不是什么方法。
是我作程序时用的和想的，
你试试了，
别人可能有好的方法。

procedure rpely(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
Break := True;
case areplystatus.ReplyStatusType of
rsEcho:
begin
Showmessage('远程服务器良好，可以开始传送。');
Break := False;
end;
rsError: Showmessage('收到错误的回应信息。网络状况有问题。');
rsTimeOut: Showmessage('服务器没有响应，超时了。');
rsErrorUnreachable: Showmessage('错误的地址。');
rsErrorTTLExceeded: Showmessage('TTL响应超时，网络状况很不好，建议不要传送。');
else
Showmessage('其它未知错误。');
end;
end;
////////////////////////////
with TIdIcmpClient.Create(self) do
try
host := '202.202.1.1'; //网关地址
onreply := rpely;
try
ping;
except
Showmessage('地址(' + host + ')不可用或没有连接到Internet。');
end;
finally
free;
end

哈哈！我给你发了代码一段。

接受答案了.