Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" _
(ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Command1_Click()
If InternetCheckConnection("http://www.baidu.com", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
MsgBox "宽带未连接！"
Else
MsgBox "宽带已连接！"
End If
End Sub
转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！