求助,如何用vb实现网络监听
我想用vb编一个程序，他可以监听一个网站是否可以打开，如果这个网站不能够打开的话他会自动打开另一个网站！！请各位高手指点，我曾经用 internet control transfer但好象效率比较底，每次都要把那个网站主页的代码下载下来，效率比较底，请各位高手给出其他思路或给出原代码，谢谢！ 问题点数：0、回复次数：6Top
1 楼sakurako（看晨雾散开,你就是我一生的最爱...）回复于 2005-04-04 13:06:19 得分 0
不如Ping该网址，如果不通，再进行其他处理
ping应该比你比较网页内容快很多了Top
2 楼kahou（kahou）回复于 2005-04-04 14:25:16 得分 0
如果用ping 的话 怎么取回返回值，还是有现成的东西可以用啊Top
3 楼yuyes（无业游民）回复于 2005-04-04 14:55:01 得分 0
用Ping不是太好
建议还是用internet control transfer，它封装了HTTP协议，可以不把整个网页代码下载下来的，你可以只获最目标网站首页的基本信息Top
4 楼jeakyli（土豆）回复于 2005-04-04 15:03:46 得分 0
还是kahou(kahou)说的如果用ping的话怎么取回返回值Top
5 楼yuyes（无业游民）回复于 2005-04-04 15:10:50 得分 0
Private Sub Inet1_StateChanged(ByVal State As Integer)
'根据State判断是否OK，不用等到代码下载完毕的
End Sub
State:整数类型Integer
下面是状态的说明。
常数值 描述icNone
0 未报告状态icHostResolvingHost
1 控件正在寻找指定主机的IP地址icHostResolved
2 控件已成功找到指定主机的IP地址icConnecting
3 控件正在与指定主机进行连接icConnected
4 控件已成功与指定主机连接icRequesting
5 控件正在向主机发出请求icRequestSent
6 控件已成功向主机发出请求icReceivingResponse
7 控件正在从主机接收反馈信息icResponseReceived
8 控件已成功从主机接受反馈信息icDisconnecting
9 控件正在与主机断开icDisconnected
10 控件已与主机断开icError
11 在与主机通信的过程中发生了错误icResponseComp leted
12 请求结束且数据已经接收到Top
6 楼jlum99（闲人）回复于 2005-04-04 15:27:12 得分 0
ping命令是利用了ICMP协议,它是TCP/IP协议族的一个子协议，用于在IP主机、路由器之间传递控制消息。控制消息是指网络通不通、主机是否可达、路由是否可用等网络本身的消息。你可以通过SCOKET编程发送来实现PING 命令.一般的网络编程入门程序就是实现PING命令,你可以找找.Top
