URL Prüfen mit FIREFOX/ohne IE
20.12.2021 16:40:42
Kirk
ich stehe vor dem Problem, dass in unserer Firma IE für externe WWW Seiten gesperrt wurde. Bei uns da der Standard Browser FIREFOX.
Nun habe ich in einer XLS Tabelle aber viele viele externe URLs (www) (als reiner STRING) und möchte prüfen, ob die noch aktuell sind und noch existieren oder nicht.
Habe schon viele Lösungen hier gegoogelt, aber die gehen bei mir eben nicht, da ich über IE nichts machen kann.... Z.b. diese Lösung hier geht bei mir NICHT:
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
Option Explicit
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" ( _
ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByRef lParam As Any) As Long
Private Const WM_CLOSE = &H10
Private Const GCCLASSNAMEFIREFOX = "MozillaWindowClass"
Sub LoadUrl()
Dim firefox As String, adresse As String
Dim hWnd As Long
' Öffnen
firefox = "C:\Program Files (x86)\Mozilla Firefox\firefox.exe" 'anpassen
adresse = "http://www.google.de" ' Google nur als TEST... Muss ich natürlcihanpassen
Shell firefox & " -new-tab " & adresse, vbNormalFocus
' Rückmeldung, ob Laden geklappt hat...
' Firefox wieder schließen
hWnd = FindWindow(GCCLASSNAMEFIREFOX, vbNullString)
PostMessage hWnd, WM_CLOSE, 0&, 0&
End Sub
1000 DANKE und VLG Kirk