Online-Status prüfen

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, _
 ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long
Dim sConnType As String * 255


Sub Test_Online()

'** Dimensionierung der Variablen
Dim lngStatus As Long
        
'** Stauts auslesen
lngStatus = InternetGetConnectedStateEx(Ret, sConnType, 254, 0)

'** Hinweis ausgeben
If lngStatus = 1 Then
  MsgBox "Du bist online!"
Else
  MsgBox "Du bist nicht online!"
End If

End Sub