Problem mit dem InetControl Verfasst am: 02.02.2009, 20:51
Hallo.
ich bin gerade dabei, ein Programm zu programmieren, was guckt, ob sich an einer Seite etwas verändert hat.
Wenn sie sich verändert hat, und ein bestimmter String vorhanden ist, soll sie eine Meldung ausgeben.
Das Problem ist, dass es beim ersten Mal klappt, jedoch muss ich beim zweiten Mal das Programm neustarten, weil sonst sofort die gleiche Meldung kommt oder einfach gar nichts passiert.
Ich leere in der Sub den String quelltext, um ihn wieder einzulesen.
Vielleicht weiß ja jemand Rat? Ich bin hier am verzweifeln.
Danke,
breekachu.
Wäre bestimmt von Vorteil, wenn du den SourceCode posten würdest.
breekachu Newbie
Anmeldedatum: 29.01.2009 Beiträge: 5
Verfasst am: 03.02.2009, 10:40
Den kann sich ja jeder denken.
Code:
check.navigate "http://google.de", 4
Do While check.Busy = true
DoEvents
Loop
quelltext = check.Document.documentElement.outerHTML
If Instr(quelltext, "string1") then
msgbox "string 1"
ElseIf Instr(quelltext, "string2") then
msgox "string 2"
End if
quelltext = ""
check.navigate "http://anderesite.de"
Registrieren
Login
