error in IE.au3?

[Busti]

Hi all, im using ie.au3 now, but sometimes it crashes, and i really don't know why.

IE.au3 (328) : ==> The requested action with this object has failed.: 
Until ($o_object.readyState = "complete" Or $o_object.readyState = 4)

How can i fix this problem ?

Here a PIC :

Edited October 3, 2006 by Busti

[DaleHohm]

Hi all, im using ie.au3 now, but sometimes it crashes, and i really don't know why.

IE.au3 (328) : ==> The requested action with this object has failed.: 
Until ($o_object.readyState = "complete" Or $o_object.readyState = 4)

How can i fix this problem ?

Here a PIC :

If that is line 328, you have an old copy of IE.au3

Please insure you are running the latest version of AutoIt

Dale

[Kickassjoe]

I had the same problem... but it was on line 928....... the script was < 100 lines long.

[DaleHohm]

I had the same problem... but it was on line 928....... the script was < 100 lines long.

928 doesn't match the current version either. There are ways to create this error (or similar) but there are many more safeguards for it in the latest versions.

Dale

[Kickassjoe]

well, 928 wasnt the exact number, I dont even know the exact number it was, because I didnt think much of the error. I was just like "wtf" and then went on scripting.

[DaleHohm]

well, 928 wasnt the exact number, I dont even know the exact number it was, because I didnt think much of the error. I was just like "wtf" and then went on scripting.

So I'm just like "wtf", too bad you felt the need to add your comments to this thread...

I can help if you are specific -- if not, not.

Dale

[Busti]

soz - same error.

[DaleHohm]

Please verify your version of IE.au3 for me by inserting these lines into your code:

$aVersionInfo = _IE_VersionInfo()
MsgBox(0, "VersionInfo", $aVersionInfo[5])

The echoed line in your error message comes from _IELoadWait() which is called by several IE.au3 functions (you may not be calling it directly). If it is able, _IELoadWait uses a COM error handler to trap COM error and should prevent you from seeing such a thing. I say "if it can" because if you instantiate your own COM error handler with ObjEvent instead of using _IEErrorHandlerRegister (as documented) you will prevent IE.au3 from protecting you in this way since only one COM error handler can be in effect at a time.

All that said, the reason for the error you see is that, at the time the readyState property is being tested, the $o_object is NOT a browser object. This can happen, for example, if the browser is destroyed through another thread (or with the mouse) or if there are automatic page redirects occuring. You'll need to do more to understand and explain under what circumstances you see this.

Dale

p.s. My best quess is that you have done something that screws up the internal COM error handling.

[Busti]

v : t.2.0-5

[DaleHohm]

v : t.2.0-5

OK, that is now the current version.

I can't help you any further with then information provided so far. You'll need to work to narrow down the circumstances that lead to this error and try to provide a reproducer. Suggest you read through my last reply for guidance.

Dale

[Busti]

Here's source 4 ya :

expandcollapse popup

#include <GuiConstants.au3>
#include <GuiListView.au3>
#include <IE.au3>
Opt("WinTitleMatchMode", 2)
Dim $Max = 1

GUICreate("FirstLoad.Bot() - early Alpha By Busti; ICQ: 269-424-176; MSN : Busti_ownz@yahoo.de", 700, 320, -1, -1, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))

$GuiList = GUICtrlCreateListView("Firstload.Download|F.Account|F.Passwort|E-Mail - Adresse|E-Mail.Account|E-Mail.Passwort|Kontonummer|Bankleitzahl|Time(ms)|Error('s)", 0, 20, 700, 279)
$StatusLabel = GUICtrlCreateLabel("Status :", 0, 0, 700, 20, $ss_sunken)
$RunMenu = GUICtrlCreateMenu("Run")
$Optionen = GUICtrlCreateMenu("Optionen")
;$Error = GUICtrlCreateMenu("Errors")

;$ErrorSearch = GUICtrlCreateMenuitem("Search for my Error", $Error, 1)
$GAcc = GUICtrlCreateMenuitem("Generate Account('s)", $RunMenu, 1)
$OptMax = GUICtrlCreateMenuitem("Wie viele Accounts.", $Optionen, 1)
$Proxy = GUICtrlCreateMenuitem("Proxy", $Optionen, 2)

$Login = GUICtrlCreateMenu( "Login" )
$Einloggen      = GUICtrlCreateMenuitem("Login",$Login,1)
$Regestrieren   = GUICtrlCreateMenuitem("Registrieren",$Login,2)

GUISetState(@SW_SHOW)
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $GAcc
            _GenerateAccounts($Max)
        Case $msg = $OptMax
            $Max = InputBox("Wie viele Accounts wollen sie?", "Bitte geben sie hier eine Zahl ihrer Accounts ein, eine erstellung dauert ungefähr 30-40Sekunden.", 5)
        #cs
        Case $msg = $ErrorSearch
            $ErrorCode = InputBox("Bitte Error eingeben.", "Bitte geben sie ihren Error Code in die unten stehende Box ein.", ClipGet())
            Dim $Error[10]
            $Error[1] = Hex(BinaryString("Falsche Kontonummer")) & "|" & "Dies ist ein Fehler der Passiert wenn der Bot eine Kontonummer herauspickt, die Ungültig ist." & @CRLF & "Diesen Fehler können sie nicht Beheben, sie müssen das Programm einfach einen neuen Durchlauf starten lassen."
            $Error[2] = Hex(BinaryString("Keine Email Angekommen")) & "|" & "Dieser Error trifft ein, wenn man bei Firstload eine Falsche/Nicht-vorhandene Email eingibt, was sogut wie nie vorkommt, sollte es dennoch vorkommen, wird man einfach weiterversuche müssen."
            For $i = 1 To 2
                $CError = StringSplit($Error[$i], "|")
                If $CError[1] = $ErrorCode Then
                    MsgBox(0, "Error : " & $CError[1], "ErrorFix : " & @CRLF & $CError[2])
                EndIf
            Next
            
        #ce
        Case $msg = $Proxy
            $proxyurlPort = InputBox( "Bitte wählen sie ihren Proxy aus" , "Sie können nun ihren proxy im Format :" & @CRLF & "url:port eingeben.", "www-cache.myisp.net:8080" ) 
            $username = InputBox( "[Optional] Username" , "Wenn sie einen Usernamen für ihren Proxy haben, geben sie diesen hier ein.", "" ) 
            $passwort = InputBox( "[Optional] Password" , "Wenn sie einen Passwort zu dem oben genannten Username besitzen, bitte hier eingeben", "" ) 
            RegWrite( "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings" , "ProxyEnable" , "dword" , 1 )
            HttpSetProxy(2,$proxyurlPort,$username,$passwort)
    EndSelect
WEnd
Exit


Func _GenerateAccounts($End)
    Local $schritt = 0
    Local $oEOccured=0
    For $i = 1 To $End
        Dim $SetItems[11]       
        $GesamtTimer = TimerInit()
        
        $schritt += 1
        _SetLabel("Downloade und Formatiere Bankdaten. ("&$schritt&"/4)", $i, $End)
        $BankDaten = _GetBankDaten()
        
        $schritt += 1
        _SetLabel("Erstelle eine Email. ("&$schritt&"/4)", $i, $End)
        $GenerateMail = _GenEmail()
        
        $schritt += 1
        _SetLabel("Erstelle einen Firstload Account. ("&$schritt&"/4)", $i, $End)
        $FirstLoadRun = _RunFirstLoad($GenerateMail[1], $BankDaten[1], $BankDaten[2])
        If $FirstLoadRun = "Ungültige Kontonummer angegeben." Then
            Dim $Mail[4]
            $Mail[3] = "Error"
            $Mail[2] = "Error"
            $Mail[1] = "Error"
            $SetItems[10] &= "Falsche Kontonummer;"
            $oEOccured=1
            
        Else
            
            $schritt += 1
            _SetLabel("Lese Emails, Formatiere : 'Account und Passwort' heraus. ("&$schritt&"/4)", $i, $End)
            $Mail = _GetMails($GenerateMail[2], $GenerateMail[3])
            If $Mail = "No Email" Then
                Dim $Mail[4]
                $Mail[3] = "Error"
                $Mail[2] = "Error"
                $Mail[1] = "Error"
                $SetItems[10] &= "Keine E-Mail angekommen;"
                $oEOccured=1
                
            EndIf
        EndIf
        $GesTimer = Round(TimerDiff($GesamtTimer))
        _SetLabel("Benötigte Zeit : " & $GesTimer & "ms", $i, $End)
        TimerStop($GesamtTimer)
    ;Firstload.Download|F.Account|F.Passwort|E-Mail - Adresse|E-Mail.Account|E-Mail.Passwort|Kontonummer|Bankleitzahl
        $SetItems[1] = $Mail[3]; Firstload Download Link
        $SetItems[2] = $Mail[1]; Firstload Account
        $SetItems[3] = $Mail[2]; Firstload Passwort
        $SetItems[4] = $GenerateMail[1]; E-Mail Adresse
        $SetItems[5] = $GenerateMail[2]; E-Mail Account
        $SetItems[6] = $GenerateMail[3]; E-Mail Passwort
        $SetItems[7] = $BankDaten[1]; KontoNummer
        $SetItems[8] = $BankDaten[2]; Bankleitzahl
        $SetItems[9] = $GesTimer
        $msg = ""
        If $oEOccured = 0 Then
            $SetItems[10] = "No Error's"
        EndIf
        For $e = 1 To 10
            $msg &= $SetItems[$e] & "|"
        Next
        $msg = StringTrimRight($msg, 1)
        GUICtrlCreateListViewItem($msg, $GuiList)
        _Log($msg, $i, $End)
        $msg = ""
        $schritt=0
    Next
EndFunc  ;==>_GenerateAccounts
Func _Log($msg, $c = 0, $m = 0)
    FileWriteLine("log.txt", $msg & "   Run(" & $c & "/" & $m & ")")
EndFunc  ;==>_Log
Func _SetLabel($msg, $c = 0, $m = 0)
    GUICtrlSetData($StatusLabel, "Status(" & $c & "/" & $m & ") : " & $msg)
EndFunc  ;==>_SetLabel

Func _GetBankDaten()
    Dim $return[3]
    $_BankDaten = _IECreate();("about:blank", 0,0,1,0)
    _IENavigate($_BankDaten, "http://scenesoft.iquebec.com/",1 )
    _IEAction($_BankDaten, "refresh")
    InetGet("http://scenesoft.iquebec.com/", "temp.txt")
    _IEQuit($_BankDaten)
;FileWrite( "temp.txt" , _IEBodyReadHTML( $_BankDaten ) )
    $text = FileRead("temp.txt", FileGetSize("temp.txt"))
    Do
        $text = StringTrimLeft($text, 1)
    Until StringLeft($text, StringLen('<font color="lime" size="2" face="verdana">Kontonummer:</font>')) == '<font color="lime" size="2" face="verdana">Kontonummer:</font>'
    Do
        $text = StringTrimRight($text, 1)
    Until StringRight($text, StringLen('<legend><font color="royalblue">Citybank Privatkunden</font> &nbsp;</legend>')) == '<legend><font color="royalblue">Citybank Privatkunden</font> &nbsp;</legend>'
    Do
        $text = StringTrimLeft($text, 1)
    Until StringLeft($text, StringLen('<font color="lightgreen" size="2" face="verdana">')) == '<font color="lightgreen" size="2" face="verdana">'
    $text = StringTrimLeft($text, StringLen('<font color="lightgreen" size="2" face="verdana"> '))
    $return[1] = StringLeft($text, 10)
    Do
        $text = StringTrimLeft($text, 1)
    Until StringLeft($text, StringLen('<font color="lightgreen" size="2" face="verdana">')) == '<font color="lightgreen" size="2" face="verdana">'
    $text = StringTrimLeft($text, StringLen('<font color="lightgreen" size="2" face="verdana"> '))
    $return[2] = StringLeft($text, 8)
    $text = ""
    FileDelete("temp.txt")
    Return $return
EndFunc  ;==>_GetBankDaten

Func _GenEmail()
    Dim $return[4]
    Local $emailURL = "http://stoned.com:7080/cgi/user.cgi?cmd=user_check"
    Local $full_name = _GenerateRandomWord(12) & " " & _GenerateRandomWord(8)
    Local $username = _GenerateRandomWord(8) & _GenerateRandomNumber(3)
    Local $passwort = _GenerateRandomWord(15)
    $return[1] = $username & "@" & "stoned.com"
    $return[2] = $username
    $return[3] = $passwort
    
    $_EmailCreation = _IECreate();("about:blank", 0,0,1,0)
    _IENavigate($_EmailCreation, $emailURL, 1)

    $loginform = _IEFormGetObjByName($_EmailCreation, "main")
    $lname = _IEFormElementGetObjByName($loginform, "full_name")
    $usern = _IEFormElementGetObjByName($loginform, "username")
    _IEFormElementSetValue($lname, $full_name)
    _IEFormElementSetValue($usern, $username)
    
    _IEFormImageClick($_EmailCreation, "http://www.stoned.com/check.gif")
;_IEFormSubmit($loginform,1)

    $loginform = _IEFormGetObjByName($_EmailCreation, "main")
;$username = _IEFormElementGetObjByName ($loginform,        "username")
    $password = _IEFormElementGetObjByName($loginform, "password")
    $password_again = _IEFormElementGetObjByName($loginform, "password_again")
;$full_name = _IEFormElementGetObjByName ($loginform,       "full_name")
    $pass_question = _IEFormElementGetObjByName($loginform, "pass_question")
    $pass_answer = _IEFormElementGetObjByName($loginform, "pass_answer")
    
    _IEFormElementSetValue($password, $passwort)
    _IEFormElementSetValue($password_again, $passwort)
    _IEFormElementSetValue($pass_question, $passwort)
    _IEFormElementSetValue($pass_answer, $passwort)
    
    _IEFormImageClick($_EmailCreation, "http://www.stoned.com/create.gif")
    _IEQuit($_EmailCreation)
    
    Return $return

EndFunc  ;==>_GenEmail

Func _GetMails($username, $password)
;GET MAILS !
    $_Emailget = _IECreate();("about:blank", 0,0,1,0)
    _IENavigate($_Emailget, "http://stoned.com:7080/scripts/webmail.exe", 1)
    $loginform = _IEFormGetObjByName($_Emailget, "loginform")
    $lname = _IEFormElementGetObjByName($loginform, "user")
    $pass = _IEFormElementGetObjByName($loginform, "pass")
    _IEFormElementSetValue($lname, $username)
    _IEFormElementSetValue($pass, $password)
    _IEFormSubmit($loginform, 1)
;<input type="button" class="btn100" value="Inbox" onclick="ci()">
    _IELinkClickByIndex($_Emailget, 1)
; - Soo bin bei den emails :
; - nun auslesen :>
    $temphtml = _IEBodyReadHTML($_Emailget)
    $timer = TimerInit()
    While Not StringInStr($temphtml, "Firstload.de", 1) And TimerDiff($timer) <= 6000
    ;ConsoleWrite("New E-Mails : " & StringInStr(FileRead($temphtml), "Firstload.de", 1) & @LF)
        $temphtml = _IEBodyReadHTML($_Emailget)
        _IEAction($_Emailget, "refresh")
        Sleep(1000)
    WEnd
    TimerStop($timer)
    $temphtml = ""; Free up Buffer
    $ret = _IELinkClickByText($_Emailget, "Firstload.de")
    If $ret = 0 Then
        Return "No Email"
    EndIf
    FileWrite("temp.txt", _IEBodyReadHTML($_Emailget))
    $AccPwDL = _FText(FileRead("temp.txt"))
    FileDelete("temp.txt")
    _IEQuit($_Emailget)
    Return $AccPwDL
;FileWrite( "FormatHTML.txt" , _IEBodyReadHTML($_Emailget) )
EndFunc  ;==>_GetMails

Func _FText($sText)
    $file = $sText
    Dim $return[4]

    Do
        $file = StringTrimLeft($file, 1)
    Until StringLeft($file, StringLen("Benutzername: ")) == "Benutzername: "
    $file = StringTrimLeft($file, StringLen("Benutzername: "))
    $return[1] = StringLeft($file, 9)

    Do
        $file = StringTrimLeft($file, 1)
    Until StringLeft($file, StringLen("Passwort: ")) == "Passwort: "
    $file = StringTrimLeft($file, StringLen("Passwort: "))
    $return[2] = StringLeft($file, 8)

    Do
        $file = StringTrimLeft($file, 1)
    Until StringLeft($file, StringLen('target=_blank>')) == 'target=_blank>'
    $file = StringTrimLeft($file, StringLen('target=_blank>'))
    $return[3] = StringLeft($file, StringLen('http://www.firstload.de/dl/Firstload.exe'))

    Return $return
EndFunc  ;==>_FText

Func _RunFirstLoad($email = "", $kntnummer = "", $bnkleitzahl = "")
    $_FirstLoadSide = _IECreate();("https://www.firstload.de", 0,0,1,0)
    _IENavigate($_FirstLoadSide, "https://www.firstload.de/signup.php?log=170788",1)
    Sleep(5000)
    Local $_FirstName = _GenerateRandomWord(6)
    Local $_SecondName = _GenerateRandomWord(12)
    Local $_Street = _GenerateRandomWord(15) & "." & _GenerateRandomNumber(2)
    Local $_PCode = _GenerateRandomNumber(5)
    Local $_City = _GenerateRandomWord(7)
    Local $_BdayD = Random(1, 30, 1)
    Local $_BdayM = Random(1, 12, 1)
    Local $_BdayY = Random(1970, 1980, 1)
    Local $_Email = $email;"Busti_ownz@yahoo.de";"FSL" & _GenerateRandomWord(3) & "_" & _GenerateRandomWord(2) & "@Trash-Mail.de"
    ClipPut($_Email)
    Local $_Phone = "089" & " " & _GenerateRandomNumber(8)

    $loginform = _IEFormGetObjByName($_FirstLoadSide, 1)
    $fname = _IEFormElementGetObjByName($loginform, "namefirst")
    $lname = _IEFormElementGetObjByName($loginform, "namelast")
    $stree = _IEFormElementGetObjByName($loginform, "street")
    $pcode = _IEFormElementGetObjByName($loginform, "pcode")
    $city = _IEFormElementGetObjByName($loginform, "city")
    $email = _IEFormElementGetObjByName($loginform, "email")
    $phone = _IEFormElementGetObjByName($loginform, "phone")
    $bdayd = _IEFormElementGetObjByName($loginform, "birthdate_d")
    $bdaym = _IEFormElementGetObjByName($loginform, "birthdate_m")
    $bdayy = _IEFormElementGetObjByName($loginform, "birthdate_y")

    _IEFormElementSetValue($fname, $_FirstName)
    _IEFormElementSetValue($lname, $_SecondName)
    _IEFormElementSetValue($stree, $_Street)
    _IEFormElementSetValue($pcode, $_PCode)
    _IEFormElementSetValue($city, $_City)
    _IEFormElementOptionselect($bdayd, 20)
    _IEFormElementOptionselect($bdayd, $_BdayD, 1, "byIndex")
    _IEFormElementOptionselect($bdaym, $_BdayM, 1, "byIndex")
    _IEFormElementOptionselect($bdayy, $_BdayY, 1, "byText")
    _IEFormElementSetValue($email, $_Email)
    _IEFormElementSetValue($phone, $_Phone)
    
    _IEFormSubmit($loginform)
    
; 2. SEITE :
    Local $_KNR = $kntnummer;_GenerateRandomNumber(10)
    Local $_BLZ = $bnkleitzahl;_GenerateRandomNumber(8)

    $loginform = _IEFormGetObjByName($_FirstLoadSide, 1)
    $KontoNR = _IEFormElementGetObjByName($loginform, "b_accno")
    $BankLZA = _IEFormElementGetObjByName($loginform, "b_code")
    _IEFormElementSetValue($KontoNR, $_KNR)
    _IEFormElementSetValue($BankLZA, $_BLZ)
    _IEFormSubmit($loginform, 1)
    Sleep(1000)
    If StringInStr(_IEBodyReadHTML($_FirstLoadSide), "Ungültige Kontonummer angegeben", 1) Then
    ;ConsoleWrite("Ungültige Kontonummer angegeben." & @LF)
        _IEQuit($_FirstLoadSide)
        Return "Ungültige Kontonummer angegeben."
    EndIf
    
    If StringInStr(_IEBodyReadHTML($_FirstLoadSide), "Anmeldung erfolgreich") Then
    ;ConsoleWrite("Anmeldung erfolgreich!" & @LF)
    EndIf
    
    _IEQuit($_FirstLoadSide)
    Return "EKN"
    
EndFunc  ;==>_RunFirstLoad

Func _GenerateRandomWord($Lengh)
    Local $retVal = ""
    For $i = 1 To $Lengh
        $retVal &= Chr(Random(Asc("a"), Asc("z"), 1))
    Next
    Return $retVal
EndFunc  ;==>_GenerateRandomWord

Func _GenerateRandomNumber($Lengh)
    Local $retVal = ""
    For $i = 1 To $Lengh
        $retVal &= Random(1, 9, 1)
    Next
    Return $retVal
EndFunc  ;==>_GenerateRandomNumber


; / (c) \ BY BUSTI ! / (c) \
; Still ALPHA.

if you use any of this code, pls credit me :/

Edited October 3, 2006 by Busti

[big_daddy]

You'll need to work to narrow down the circumstances that lead to this error and try to provide a reproducer.

This means provide the least amount of code possible that can be used to reproduce the error.