If My.Computer.Network.IsAvailable Then ‘网络连接正常
???????????If My.Computer.Network.Ping("192.168.10.111",1000) Then ?????‘拼对应IP地址超时1000毫秒
???????????????MsgBox("服务器连接正常.")
???????????Else
???????????????MsgBox("服务器连接超时或不在线.")
???????????End If
???????Else
???????????MsgBox("没有接入网络.") ????????
???????End If
vb.net判断网络状态
原文地址：https://www.cnblogs.com/hnqychen2008/p/8227705.html