De: "Mark Taylor" <mark.taylor@infinity-insurance.com>
Objet: Re: off- or online?
Date : jeudi 23 septembre 1999 20:57

"Sebastian A." wrote:

> Do you know an api-function which tells you whether you are on- or offline?

Hey Sebastian

This is some code I found in this NG a while back.  I hope this is what you are
looking for.


'declare constants
Public Const INTERNET_CONNECTION_MODEM As Long = &H1
Public Const INTERNET_CONNECTION_LAN As Long = &H2
Public Const INTERNET_CONNECTION_PROXY As Long = &H4
Public Const INTERNET_CONNECTION_MODEM_BUSY As Long = &H8
Public Const INTERNET_RAS_INSTALLED As Long = &H10
Public Const INTERNET_CONNECTION_OFFLINE As Long = &H20
Public Const INTERNET_CONNECTION_CONFIGURED As Long = &H40

'API function declaration
Public Declare Function InternetGetConnectedState Lib "wininet.dll" (ByVal
lpdwFlags As Long, ByVal dwReserved As Long) As Long


Private Sub cmdConnected_Click()

    Dim lpdwFlags As Long

    If InternetGetConnectedState(lpdwFlags, 0) Then
      Msgbox "Connected"
    Else
      Msgbox "I am here all alone"
    End If

End Sub

 