如何用VB判断当前网络连接是否可用，并确定指定网络目的是否可达

Question

如题，如何用VB判断当前网络连接是否可用，并确定指定网络目的是否可达

Answer 1

发送1个ping命令给你的DNS，如果有返回证明网络可用
发送命令给客户IP，返回则证明可用

Answer 2

Private Sub Command1_Click()
    If Winsock1.LocalIP = "127.0.0.1" Then
       MsgBox "当前网络连接不可用", vbInformation, ""
    Else
       'Ping目标计算机
       '...
       '...
    End If
End Sub'具体怎么样 Ping 目标计算机，请查看我的Blog：
'http://blog.csdn.net/tanaya/archive/2004/08/14/74566.aspx

Answer 3

忘记了，在窗体上加入一个：Winsock1 和 Command1