Gruppe
API
Problem
Es soll geprüft werden, ob eine Internetverbindung besteht.
StandardModule: Modul1
Public Declare Function InternetGetConnectedState _
Lib "wininet.dll" (lpdwFlags As Long, _
ByVal dwReserved As Long) As Boolean
Function IsConnected() As Boolean
Dim lStat As Long
IsConnected = (InternetGetConnectedState(lStat, 0&) <> 0)
End Function
Sub Meldung()
Dim bln As Boolean
bln = IsConnected
If bln Then
MsgBox "Internetverbindung besteht!"
Else
MsgBox "Internetverbindung besteht nicht!"
End If
End Sub