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