Abfrage der Gleichheit zweier Webbrowser? Verfasst am: 30.11.2008, 12:06
Guten Morgen.
ich habe hier diesen Code, welcher nach ablauf eine rbestimmten Zeit einen von zwei webbrowsern neu auf eine bestimmte Seite führen soll, und dann überprüfen, ob sie mit der alten version übereinstimmt. sollte dies nicht der Falll sein, soll eine Message Box aufgerufen werden, wo er nachfragt, ob diese Seite geöffnet werden sol.
Hier ist der Code.
Ich habe sogar schon probiert, eine ganz andere Seite beim ersten Browser laden zu lassen, aber dennoch keine Reaktion..
Code:
Private Sub Timer_Timer()
Timer.Enabled = False
wb_alt_dokument = False
wb_aktuell_dokument = False
wb_aktuell.Navigate "<url>"
Do
DoEvents
Loop Until wb_aktuell_dokument = True
If wb_aktuell.Object <> wb_alt.Object Then
frage = MsgBox("News at <url> Möchten Sie diese Seite jetzt aufrufen?", vbQuestion & vbYesNo, "News")
Select Case frage
Case vbYes:
Shell ("explorer <url>")
End Select
Else
wb_alt.Navigate "<url>"
Do
DoEvents
Loop Until wb_alt_dokument = True
End If
Timer.Enabled = True
End Sub
Private Sub wb_aktuell_DocumentComplete(ByVal pDisp As Object, URL As Variant)
wb_aktuell_dokument = True
End Sub
Private Sub wb_alt_DocumentComplete(ByVal pDisp As Object, URL As Variant)
wb_alt_dokument = True
End Sub
Registrieren
Login
