Hi,
ich öffne momentan eine Datei und lese dort Servernamen aus. Diese trage ich dann im IE ein und öffne die Seite. Soweit funktioniert das auch. Nun kann es vorkommen, dass einige Offline sind. Es wird dann die Meldung "Die Seite kann nicht angezeigt werden." bzw. "Server nicht gefunden" angezeigt. Der Code so weit:
[autoit]
#include <IE.au3>
#include <file.au3>
Dim $Dateiname = "dateiliste.txt"
Dim $DateiInhalt
Dim $oIE
Dim $error = "Die Seite kann nicht angezeigt werden"
If Not _FileReadToArray($Dateiname,$DateiInhalt) Then
MsgBox(4096,"Error", " Error reading log to Array error:" & @error)
Exit
EndIf
For $x = 1 to $DateiInhalt[0]
[/autoit][autoit][/autoit][autoit]$oIE = _IECreate ($DateiInhalt[$x])
;Fehler: Die Seite kann nicht angezeigt werden. abfangen und Loggen
;Opt("WinTitleMatchMode",4)
THEN
$text = _IEBodyReadText($oIE)
IF $text = "Die Seite kann nicht angezeigt werden" THEN
_writeLog($DateiInhalt[$x])
Msgbox(0,"HTML Read",$text)
EXIT
ENDIF
Next
Func _writeLog($ErrorCode)
$file = FileOpen("log.txt", 1)
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
ELSE
FileWriteLine($file, $ErrorCode & @CRLF)
FileClose($file)
EndIf
EndFunc
Ich habe schon mit ReadHtml und WinTitleMatchMode rumprobiert, leider ohne Erfolg.
Kann mir jemand Denkanstöße geben