027.判断是否连接在线

'###############################################################

'函数作用：判断是否连接在线

'###############################################################

Public Declare Function InternetGetConnectedState _

    Lib "wininet.dll" (lpdwFlags As Long, _

    ByVal dwReserved As Long) As Boolean

Function IsConnected() As Boolean

    Dim Stat As Long

    IsConnected = (InternetGetConnectedState(Stat, 0&) <> 0)

End Function

Sub Test()

    ' Randy Birch

    If IsConnected = True Then

        MsgBox "Copy your mail code here"

    Else

        MsgBox "You can't use this subroutine because you are not online"

    End If

End Sub