求助,如何用vb实现网络监听

我想用vb编一个程序，他可以监听一个网站是否可以打开，如果这个网站不能够打开的话他会自动打开另一个网站！！请各位高手指点，我曾经用 internet control transfer但好象效率比较底，每次都要把那个网站主页的代码下载下来，效率比较底，请各位高手给出其他思路或给出原代码，谢谢！

解决方案 »

  1.   

    不如Ping该网址，如果不通，再进行其他处理
    ping应该比你比较网页内容快很多了
      

  2.   

    如果用ping 的话 怎么取回返回值，还是有现成的东西可以用啊
      

  3.   

    用Ping不是太好建议还是用internet control transfer，它封装了HTTP协议，可以不把整个网页代码下载下来的，你可以只获最目标网站首页的基本信息
      

  4.   

    还是kahou(kahou)说的如果用ping的话怎么取回返回值
      

  5.   

    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　　　　　请求结束且数据已经接收到
      

  6.   

    ping命令是利用了ICMP协议,它是TCP/IP协议族的一个子协议，用于在IP主机、路由器之间传递控制消息。控制消息是指网络通不通、主机是否可达、路由是否可用等网络本身的消息。你可以通过SCOKET编程发送来实现PING 命令.一般的网络编程入门程序就是实现PING命令,你可以找找.