Busti Posted October 3, 2006 Share Posted October 3, 2006 (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 : Edited October 3, 2006 by Busti My UDF's : Startet on : 06.06.2006_CaseSearchOrReplaceStr();~> Searches OR Replaces a String,;~> With or Without Casesensivity Link to comment Share on other sites More sharing options...
DaleHohm Posted October 3, 2006 Share Posted October 3, 2006 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 Link to comment Share on other sites More sharing options...
Kickassjoe Posted October 3, 2006 Share Posted October 3, 2006 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. Link to comment Share on other sites More sharing options...
DaleHohm Posted October 3, 2006 Share Posted October 3, 2006 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 Link to comment Share on other sites More sharing options...
Kickassjoe Posted October 3, 2006 Share Posted October 3, 2006 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. What goes around comes around... Payback's a bitch. Link to comment Share on other sites More sharing options...
DaleHohm Posted October 3, 2006 Share Posted October 3, 2006 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 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 Link to comment Share on other sites More sharing options...
Busti Posted October 3, 2006 Author Share Posted October 3, 2006 soz - same error. My UDF's : Startet on : 06.06.2006_CaseSearchOrReplaceStr();~> Searches OR Replaces a String,;~> With or Without Casesensivity Link to comment Share on other sites More sharing options...
DaleHohm Posted October 3, 2006 Share Posted October 3, 2006 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 Link to comment Share on other sites More sharing options...
Busti Posted October 3, 2006 Author Share Posted October 3, 2006 v : t.2.0-5 My UDF's : Startet on : 06.06.2006_CaseSearchOrReplaceStr();~> Searches OR Replaces a String,;~> With or Without Casesensivity Link to comment Share on other sites More sharing options...
DaleHohm Posted October 3, 2006 Share Posted October 3, 2006 v : t.2.0-5OK, 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 Link to comment Share on other sites More sharing options...
Busti Posted October 3, 2006 Author Share Posted October 3, 2006 (edited) 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> </legend>')) == '<legend><font color="royalblue">Citybank Privatkunden</font> </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 My UDF's : Startet on : 06.06.2006_CaseSearchOrReplaceStr();~> Searches OR Replaces a String,;~> With or Without Casesensivity Link to comment Share on other sites More sharing options...
Moderators big_daddy Posted October 3, 2006 Moderators Share Posted October 3, 2006 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. Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now