如果计算机是否与互联网连接,我如何检查我的应用程序(目前) 如果网络连接,我需要一条消息。
非常感谢 Furqan
答案 0 :(得分:4)
平。 Dim response As Boolean = False response = My.Computer.Network.ping(google.com)
是的,您有访问权限,错误,您没有,或者世界正在结束,因为谷歌处于离线状态。
答案 1 :(得分:3)
我会试试。 它来自VB 6,但我认为你可以轻松转换它。
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef
dwflags As Long, ByVal dwReserved As Long) As Long
Public Function IsOnline() As Boolean
Dim LFlags As Long
IsOnline = InternetGetConnectedState(LFlags, 0&)
End Function
http://bytes.com/topic/visual-basic/answers/14551-detecting-internet-connection
答案 2 :(得分:2)
应该像处理文件可用性一样处理Internet连接。
对于文件,您通常不应该使用File.Exists()来首先查看是否可以打开文件,因为在执行检查和对结果执行操作时结果可能会发生变化,更不用说区别了仅存在和读取权限之间。无论如何,你必须处理这些例外情况,这样才能真正地集中精力。
互联网访问也是如此。最好的选择通常就是去做,并将开发时间集中在异常处理程序上。
答案 3 :(得分:0)
使用此代码:
If My.Computer.Network.IsAvailable Then
MsgBox("Computer is connected.")
Else
MsgBox("Computer is not connected.")
End If
请参阅this link。