undzwar habe ich mir einen account checker gebastelt
das problem ist nur wenn zb. das passwort falsch ist schmiert der bot ab
$sHTML = _IEBodyReadHTML($oIE)
$aPunkte = StringRegExp($sHTML, 'Punktestand[^>]+>[^>]+>(\d+)', 3)
$aTyp = StringRegExp($sHTML, 'Accounttyp[^>]+>[^>]+>(\w+)', 3)
;MsgBox(0, "", "Accounttyp: " & $aTyp[0] & @LF & "Punkte: " & $aPunkte[0])
If $aTyp[0] = "Premium" Then
$LogFile = FileOpen(@ScriptDir & "\Premium.txt", 1)
FileWriteLine($LogFile, @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & " " & $aergebnis[$i][0] & ":" & $aergebnis[$i][1] & " / " & $aPunkte[0] & " / " & $aTyp[0] & @CRLF)
FileClose($LogFile)
Sleep(500)
ElseIf $aTyp[0] = "Free" And Int($aPunkte[0]) >= 9000 Then
$LogFile = FileOpen(@ScriptDir & "\Premium.txt", 1)
FileWriteLine($LogFile, @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & " " & $aergebnis[$i][0] & ":" & $aergebnis[$i][1] & " / " & $aPunkte[0] & " / " & $aTyp[0] & @CRLF)
FileClose($LogFile)
Sleep(200)
EndIf
_IEQuit($oIE)
Quote:
If $aTyp[0] = "Premium" Then
If $aTyp^ ERROR
|