Prüfen ob Webseite erreichbar ist
07.12.2021 15:59:21
Sebastian
ich möchte gern mit VBA den OnlineStatus einer Webseite abrfragen. ich habe schon viel gesucht aber nichts passendes gefunden. Ich möchte z.B. prüfen ob google.de erreichbar ist.
hintergrund ist der, mein Rechner ist leider nicht immer Online. Und ich möchte mir deswegen eine Anfrage bauen. Ich habe gedacht wenn ich prüfen kann ob ich wirkich die Seite erreichen kann, sehe ich so den Online Status meines Rechners.
Hat jemand eine Idee?
Hier mal der Code, der liefert aber immer FALSCH, egal ob online oder nicht.
Option Explicit
Public Function GetLinkStatus(ByVal strUrl As String) As Boolean
Dim objXMLHTTP As Object
If Not Left$(strUrl, 7) = "http://" Then strUrl = "http://" & strUrl
Set objXMLHTTP = CreateObject("Msxml2.XMLHTTP")
On Error Resume Next
objXMLHTTP.Open "GET", strUrl, False
objXMLHTTP.send
GetLinkStatus = objXMLHTTP.Status = 200
Set objXMLHTTP = Nothing
On Error GoTo 0
End Function
Public Sub test()
If GetLinkStatus("http://www.google.de") Then
Call Makro_A
Else
Call Makro_B
End If
End Sub
Public Sub Makro_A()
MsgBox "A"
End Sub
Public Sub Makro_B()
MsgBox "B"
End Sub