以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于这段判断网络通畅的代码!  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=15990)

--  作者:gaoyong30000
--  发布时间:2012/1/28 20:09:00
--  [求助]关于这段判断网络通畅的代码!
If My.Computer.Network.IsAvailable Then
    MessageBox.Show("网络正常!")
Else
    MessageBox.Show("网络异常!")
End If

 

 

我发现 我断网后  它还是判断通畅   什么情况?


--  作者:yangming
--  发布时间:2012/1/29 0:57:00
--  
If My.Computer.Network.IsAvailable = True Then
    MsgBox("电脑网络已经连接.")
Else
    MsgBox("电脑网络未连接.")
End If

--  作者:狐狸爸爸
--  发布时间:2012/1/29 10:10:00
--  
If Network.Ping("www.baidu.com") Then
    Messagebox.Show("通")
Else
    messagebox.show("不通")
End If

--  作者:gaoyong30000
--  发布时间:2012/1/29 11:32:00
--  
老大 你的代码  不通的话  是这样的

图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看


--  作者:狐狸爸爸
--  发布时间:2012/1/29 11:38:00
--  

Try
    If Network.Ping("www.baidu.com") Then
         Messagebox.Show("通")
    Else
        messagebox.show("不通")
    End If
Catch ex As Exception

    messagebox.show("不通")
End Try


--  作者:gaoyong30000
--  发布时间:2012/1/29 11:41:00
--  
见鬼啊 
我在家里  这段代码貌似无论什么情况 都是通的  公司不是这样的!猫的问题?
If My.Computer.Network.IsAvailable = True Then
    MsgBox("电脑网络已经连接.")
Else
    MsgBox("电脑网络未连接.")
End If

--  作者:czy
--  发布时间:2012/1/29 11:41:00
--  

我测试一楼的没问题。

 

三楼的改成这样试试

 

try
    If Network.Ping("www.baidu.com") Then
        Messagebox.Show("通")
    End If
Catch ex As Exception
    messagebox.show("不通")
End try


--  作者:gaoyong30000
--  发布时间:2012/1/29 13:30:00
--  
多谢各位了 晚上回家测试一下看看!