vb 判断是否有网络连接

可以使用以下代码来判断是否有网络连接：

Private Function IsConnected() As Boolean
   Dim oInternet As Object
   Dim oRequest As Object
   Dim sURL As String

   ' 需要检查的网址
   sURL = "http://www.google.com"

   On Error Resume Next

   ' 新建InternetExplorer对象
   Set oInternet = CreateObject("InternetExplorer.Application")

   ' 设置不显示IE窗口
   oInternet.Visible = False

   ' 打开网址
   oInternet.Navigate sURL

   ' 等待IE对象加载完毕
   Do While oInternet.Busy
      Sleep 100
   Loop

   ' 获取Http请求对象
   Set oRequest = oInternet.Document

   ' 如果请求对象为空，则说明没有网络连接
   If oRequest Is Nothing Then
      IsConnected = False
   Else
      IsConnected = True
   End If

   ' 关闭IE
   oInternet.Quit
End Function

使用示例：

If IsConnected() Then
   ' 有网络连接
Else
   ' 没有网络连接
End If