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
