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ß Tino