wie kann ich per VBA-Code prüfen, ob ein Rechner aktuell grad "Online" ist - und somit eine Verbindung zu einer Website durchgeführt werden kann, bzw. eben exit sub, wenn nicht online ?!
Gruß und vielen Dank für Eure Unterstützung !
Kay
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
Function Check_Online() As Boolean
Dim Ret As Long
Ret = InternetGetConnectedStateEx(Ret, sConnType, 254, 0)
Check_Online = IIf(Ret = 1, True, False)
End Function
Sub Beispiel()
If Check_Online Then
MsgBox "online"
Else
MsgBox "offline"
End If
End Sub
Gruß TinoDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen