主题：判断当前是电脑是否联网

'上面的方法在服务器设置了防Ping策略的时候是行不通的,还有有些有线通的用户是ping不到电信的服务器的,研究过各种办法之后用下面的代码比较好一点:

If Not My.Computer.Network.IsAvailable Then
    MsgBox("您的电脑没有联网!", 16, "提示")
    Return Nothing
End If

Try
    Dim Client As System.Net.Sockets.Socket = New System.Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork, System.Net.Sockets.SocketType.Stream, System.Net.Sockets.ProtocolType.Tcp)
    Client.Connect("这里写上你的服务器域名或者IP", "21")
    Client.Close()
    Msgbox("已成功连接到FTP服务器!",64,"提示")
Catch Ex As Exception
    Msgbox("连接FTP服务器失败!",16,"提示")
End Try