以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  判断当前是电脑是否联网  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=23753)
--  作者：飞天
--  发布时间：2012/9/18 20:26:00
--  判断当前是电脑是否联网

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

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

 

请问如何进行这些判断.
--  作者：czy
--  发布时间：2012/9/18 20:33:00
--  

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

 

 
--  作者：lin_hailun
--  发布时间：2012/9/18 22:21:00
--  
 ping的时候最好捕捉一下异常

 try
      Network.Ping("www.foxtable.com")
 catch
      messagebox.show("没有联网")
 end try
--  作者：飞
--  发布时间：2012/9/19 11:05:00
--  

\'上面的方法在服务器设置了防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
--  作者：程兴刚
--  发布时间：2012/9/23 1:48:00
--  

收藏备用！
--  作者：hanxuntx
--  发布时间：2012/9/23 9:36:00
--  
谢谢分享
--  作者：bohe
--  发布时间：2012/9/24 20:07:00
--  

收藏备用！

谢谢！