Sign in to follow this  
Followers 0
Busti

error in IE.au3?

12 posts in this topic

#1 ·  Posted (edited)

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 :

post-11571-1159839515_thumb.png

Edited by Busti

My UDF's : Startet on : 06.06.2006_CaseSearchOrReplaceStr();~> Searches OR Replaces a String,;~> With or Without Casesensivity

Share this post


Link to post
Share on other sites



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


Free Internet Tools: DebugBar, AutoIt IE Builder, HTTP UDF, MODIV2, IE Developer Toolbar, IEDocMon, Fiddler, HTML Validator, WGet, curl

MSDN docs: InternetExplorer Object, Document Object, Overviews and Tutorials, DHTML Objects, DHTML Events, WinHttpRequest, XmlHttpRequest, Cross-Frame Scripting, Office object model

Automate input type=file (Related)

Alternative to _IECreateEmbedded? better: _IECreatePseudoEmbedded  Better Better?

IE.au3 issues with Vista - Workarounds

SciTe Debug mode - it's magic: #AutoIt3Wrapper_run_debug_mode=Y Doesn't work needs to be ripped out of the troubleshooting lexicon. It means that what you tried did not produce the results you expected. It begs the questions 1) what did you try?, 2) what did you expect? and 3) what happened instead?

Reproducer: a small (the smallest?) piece of stand-alone code that demonstrates your trouble

Share this post


Link to post
Share on other sites

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


What goes around comes around... Payback's a bitch.

Share this post


Link to post
Share on other sites

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


Free Internet Tools: DebugBar, AutoIt IE Builder, HTTP UDF, MODIV2, IE Developer Toolbar, IEDocMon, Fiddler, HTML Validator, WGet, curl

MSDN docs: InternetExplorer Object, Document Object, Overviews and Tutorials, DHTML Objects, DHTML Events, WinHttpRequest, XmlHttpRequest, Cross-Frame Scripting, Office object model

Automate input type=file (Related)

Alternative to _IECreateEmbedded? better: _IECreatePseudoEmbedded  Better Better?

IE.au3 issues with Vista - Workarounds

SciTe Debug mode - it's magic: #AutoIt3Wrapper_run_debug_mode=Y Doesn't work needs to be ripped out of the troubleshooting lexicon. It means that what you tried did not produce the results you expected. It begs the questions 1) what did you try?, 2) what did you expect? and 3) what happened instead?

Reproducer: a small (the smallest?) piece of stand-alone code that demonstrates your trouble

Share this post


Link to post
Share on other sites

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. :lmao:


What goes around comes around... Payback's a bitch.

Share this post


Link to post
Share on other sites

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. :lmao:

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


Free Internet Tools: DebugBar, AutoIt IE Builder, HTTP UDF, MODIV2, IE Developer Toolbar, IEDocMon, Fiddler, HTML Validator, WGet, curl

MSDN docs: InternetExplorer Object, Document Object, Overviews and Tutorials, DHTML Objects, DHTML Events, WinHttpRequest, XmlHttpRequest, Cross-Frame Scripting, Office object model

Automate input type=file (Related)

Alternative to _IECreateEmbedded? better: _IECreatePseudoEmbedded  Better Better?

IE.au3 issues with Vista - Workarounds

SciTe Debug mode - it's magic: #AutoIt3Wrapper_run_debug_mode=Y Doesn't work needs to be ripped out of the troubleshooting lexicon. It means that what you tried did not produce the results you expected. It begs the questions 1) what did you try?, 2) what did you expect? and 3) what happened instead?

Reproducer: a small (the smallest?) piece of stand-alone code that demonstrates your trouble

Share this post


Link to post
Share on other sites

soz - same error.

post-11571-1159875565_thumb.png


My UDF's : Startet on : 06.06.2006_CaseSearchOrReplaceStr();~> Searches OR Replaces a String,;~> With or Without Casesensivity

Share this post


Link to post
Share on other sites

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.


Free Internet Tools: DebugBar, AutoIt IE Builder, HTTP UDF, MODIV2, IE Developer Toolbar, IEDocMon, Fiddler, HTML Validator, WGet, curl

MSDN docs: InternetExplorer Object, Document Object, Overviews and Tutorials, DHTML Objects, DHTML Events, WinHttpRequest, XmlHttpRequest, Cross-Frame Scripting, Office object model

Automate input type=file (Related)

Alternative to _IECreateEmbedded? better: _IECreatePseudoEmbedded  Better Better?

IE.au3 issues with Vista - Workarounds

SciTe Debug mode - it's magic: #AutoIt3Wrapper_run_debug_mode=Y Doesn't work needs to be ripped out of the troubleshooting lexicon. It means that what you tried did not produce the results you expected. It begs the questions 1) what did you try?, 2) what did you expect? and 3) what happened instead?

Reproducer: a small (the smallest?) piece of stand-alone code that demonstrates your trouble

Share this post


Link to post
Share on other sites

v : t.2.0-5


My UDF's : Startet on : 06.06.2006_CaseSearchOrReplaceStr();~> Searches OR Replaces a String,;~> With or Without Casesensivity

Share this post


Link to post
Share on other sites

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


Free Internet Tools: DebugBar, AutoIt IE Builder, HTTP UDF, MODIV2, IE Developer Toolbar, IEDocMon, Fiddler, HTML Validator, WGet, curl

MSDN docs: InternetExplorer Object, Document Object, Overviews and Tutorials, DHTML Objects, DHTML Events, WinHttpRequest, XmlHttpRequest, Cross-Frame Scripting, Office object model

Automate input type=file (Related)

Alternative to _IECreateEmbedded? better: _IECreatePseudoEmbedded  Better Better?

IE.au3 issues with Vista - Workarounds

SciTe Debug mode - it's magic: #AutoIt3Wrapper_run_debug_mode=Y Doesn't work needs to be ripped out of the troubleshooting lexicon. It means that what you tried did not produce the results you expected. It begs the questions 1) what did you try?, 2) what did you expect? and 3) what happened instead?

Reproducer: a small (the smallest?) piece of stand-alone code that demonstrates your trouble

Share this post


Link to post
Share on other sites

#11 ·  Posted (edited)

Here's source 4 ya :

#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 by Busti

My UDF's : Startet on : 06.06.2006_CaseSearchOrReplaceStr();~> Searches OR Replaces a String,;~> With or Without Casesensivity

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0