hi,
ich hoffe es kann mir einer wiedermal helfe
Die for schleife läuft nur 19 bis 30 mal durch,
danach sagt er das
if StringInStr(FileRead(FileOpen(@ScriptDir & "\Quelltexte\insel_1.txt", 0)), 'switch_right') <> 0 Then
nicht erfüllt ist, wobei es erfüllt ist
starte ich die func nochmal dann macht er max 2 durchläufe bis er wieder abbricht.
starte ichaber das komplete Programm neu gehts wieder 19 - 30 mal
Spoiler anzeigen
$oIE = _IECreate($seite, 1, $verstecken, 1)
_IELoadWait ($oIE)
;_IELinkClickByIndex ($oIE, 1)
_IELinkClickByText ($oIE, "Kolonie")
_IELoadWait ($oIE)
$sText = _IEDocReadHTML ($oIE)
;MsgBox(0, "Body Text", $sText)
$file_setStatus1 = FileOpen(@ScriptDir & "\Quelltexte\insel_1.txt", 2)
FileWriteLine($file_setStatus1, $sText)
FileClose($file_setStatus1)
for $x = 0 to $inselanzahl
$abbruch ="0"
$time = $Ladezeit * 1000
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]for $y=1 to $time/1000
sleep("1000")
$a = $time/1000 - $y
;Tooltip(" on "& $a&" Sek",0,85)
Next
Tooltip($x &" / "&$inselanzahl,100,100)
$fortschtitt = $x
$sText = _IEDocReadHTML ($oIE)
$file_setStatus1 = FileOpen(@ScriptDir & "\Quelltexte\insel_1.txt", 2)
FileWriteLine($file_setStatus1, $sText)
FileClose($file_setStatus1)
if StringInStr(FileRead(FileOpen(@ScriptDir & "\Quelltexte\insel_1.txt", 0)), 'Bitte erneut anmelden!') <> 0 Then
_SetStatus("Login ungültig")
_SetStatus("insel id holen abgebrochen")
;msgbox(0,"Source:","Bitte erneut anmelden")
$abbruch ="1"
else
if Not StringInStr(FileRead(FileOpen(@ScriptDir & "\Quelltexte\insel_1.txt", 0)), 'Bitte erneut anmelden!') <> 0 Then
[/autoit] [autoit][/autoit] [autoit]_IELinkClickByText ($oIE, "Rathaus") ;lickt link
_IELoadWait ($oIE)
$sText = _IEDocReadHTML ($oIE)
$file_setStatus1 = FileOpen(@ScriptDir & "\Quelltexte\insel_1.txt", 2)
FileWriteLine($file_setStatus1, $sText)
FileClose($file_setStatus1)
Sleep(50)
EndIf
if Not StringInStr(FileRead(FileOpen(@ScriptDir & "\Quelltexte\insel_1.txt", 0)), 'Abbrechen') <> 0 Then
if StringInStr(FileRead(FileOpen(@ScriptDir & "\Quelltexte\insel_1.txt", 0)), 'Ausbau') <> 0 Then
[/autoit] [autoit][/autoit] [autoit]if Not StringInStr(FileRead(FileOpen(@ScriptDir & "\Quelltexte\insel_1.txt", 0)), 'Bitte erneut anmelden!') <> 0 Then
; Sleep(2000)
_IELinkClickByIndex ($oIE, 22)
;_IELinkClickByText ($oIE, "Rathaus (")
_IELoadWait ($oIE)
;_IELinkClickByText ($oIE, "Kolonie")
$sText = _IEDocReadHTML ($oIE)
$file_setStatus1 = FileOpen(@ScriptDir & "\Quelltexte\insel_1.txt", 2)
FileWriteLine($file_setStatus1, $sText)
FileClose($file_setStatus1)
for $xx = 1 to 10
if Not StringInStr(FileRead(FileOpen(@ScriptDir & "\Quelltexte\insel_1.txt", 0)), 'Bitte erneut anmelden!') <> 0 Then
if StringInStr(FileRead(FileOpen(@ScriptDir & "\Quelltexte\insel_1.txt", 0)), 'Ausbau ') <> 0 Then
_IELinkClickByIndex ($oIE, 22+$xx+$xx)
;_IELinkClickByText ($oIE, "Rathaus (")
_IELoadWait ($oIE)
$sText = _IEDocReadHTML ($oIE)
$file_setStatus1 = FileOpen(@ScriptDir & "\Quelltexte\insel_1.txt", 2)
FileWriteLine($file_setStatus1, $sText)
FileClose($file_setStatus1)
;msgbox(0,"Source:",$xx+$xx)
EndIf
Else
$abbruch ="1"
EndIf
Next
[/autoit] [autoit][/autoit] [autoit]$Read = _IEDocReadHTML ($oIE)
$sPattern2 = '\((.*?)\) Punkte:'
$aArray2 = StringRegExp($Read, $sPattern2, 3)
$key_00 = $aArray2[0]
$file_setStatus = FileOpen(@ScriptDir & "\Daten\fortschritt_habe_gebaut.txt", 1)
FileWriteLine($file_setStatus, $key_00)
FileClose($file_setStatus)
IniWrite(@ScriptDir & "\settings.gld", "Insel", "bau_last", $key_00)
GUICtrlSetData ( $label_bau, "Letzte Insel: "&$key_00)
EndIf
EndIf
EndIf
if Not StringInStr(FileRead(FileOpen(@ScriptDir & "\Quelltexte\insel_1.txt", 0)), 'Bitte erneut anmelden!') <> 0 Then
[/autoit] [autoit][/autoit] [autoit]_IELinkClickByIndex ($oIE, 20)
_IELoadWait ($oIE)
$sText = _IEDocReadHTML ($oIE)
$file_setStatus1 = FileOpen(@ScriptDir & "\Quelltexte\insel_1.txt", 2)
FileWriteLine($file_setStatus1, $sText)
FileClose($file_setStatus1)
$abbruch ="0"
;Sleep(250)
EndIf
if Not StringInStr(FileRead(FileOpen(@ScriptDir & "\Quelltexte\insel_1.txt", 0)), 'Bitte erneut anmelden!') <> 0 Then
;MsgBox(0, "Body Text", $sText)
Sleep(250)
if StringInStr(FileRead(FileOpen(@ScriptDir & "\Quelltexte\insel_1.txt", 0)), 'switch_right') <> 0 Then
[/autoit] [autoit][/autoit] [autoit]$Read = _IEDocReadHTML ($oIE)
$sPattern2 = '\((.*?)\) Punkte:'
$aArray2 = StringRegExp($Read, $sPattern2, 3)
$key_00 = $aArray2[0]
$file_setStatus = FileOpen(@ScriptDir & "\Daten\fortschritt_bau.txt", 1)
FileWriteLine($file_setStatus, $key_00)
FileClose($file_setStatus)
$sText = _IEDocReadHTML ($oIE)
;$sText = _IEBodyReadText ($oIE)
$sPattern3 = 'Ladezeit:(.*?)sec'
$aArray2 = StringRegExp($Read, $sPattern3, 3)
$key_01 = StringTrimRight($aArray2[0],1)
$key_01 = StringTrimLeft($key_01, 1)
;MsgBox(0, "Body Text", $sText)
$file_setStatus1 = FileOpen(@ScriptDir & "\Quelltexte\insel_1.txt", 2)
FileWriteLine($file_setStatus1, $sText)
FileClose($file_setStatus1)
_GUICtrlStatusBar_SetText($gui_stb_1,"ladezeit "& $key_01 &"sek" , 0)
_GUICtrlStatusBar_SetText($gui_stb_1,$fortschtitt+1&" Insel "& $key_00 , 1)
Else
[/autoit] [autoit][/autoit] [autoit]$x = $inselanzahl +1
MsgBox(0, "Body Text", "Inselbau bendet")
MsgBox(0, "Body Text", $fehler)
_SetStatus($fortschtitt&" geschaft durch zu Bauen ")
_SetStatus(" Inselbau bendet")
EndIf
EndIf
EndIf
if $abbruch = "1" Then
$x = $inselanzahl +1
_SetStatus($fortschtitt&" geschaft durch zu Bauen ")
_SetStatus(" Inselbau abbruch")
_SetStatus("Login ungültig")
_SetStatus("inselbau holen abgebrochen")
MsgBox(0, "Body Text", "insel id holen abgebrochen")
EndIf
next
Gruß Matti