Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Integer, ByVal dwReserved As Integer) As Integer
Public Shared Function IfOnline() As Boolean
Const FLAG_ICC_FORCE_CONNECTION As Integer = &H1
Return InternetCheckConnection("http://www.baidu.com", FLAG_ICC_FORCE_CONNECTION, 0)
End Function
if IfOnline() =True then
msgbox("网络通畅")
else
msgbox("网络不通畅")
end if