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

有多台电脑使用同一软件.

需要做一个判断.当前电脑如何连接到网络,则进行FTP下载(有些图片需要下载到本地),否则不连接网络.

 

请问如何进行这些判断.

http://www.foxtable.com/help/topics/1401.htm

 

 

 ping的时候最好捕捉一下异常

 try
      Network.Ping("www.foxtable.com")
 catch
      messagebox.show("没有联网")
 end try

'上面的方法在服务器设置了防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

收藏备用！

谢谢分享

收藏备用！

谢谢！