Programm schlie�t nicht richtig

10/05/2011 21:21 Ludder231#1

Hi,

ich hab mir ein Programm gebastelt. Dieses erstellt ein paar Accounts. doch jetzt wenn ich es mit dem X in der Koda Form beende schlie�t sich zwar das Fenster aber der Prozess ist immerncoh da und die CPU auslastung steigt auf einmal auf 50% an.Das gleich passiert auch wenn ich auf Button2 dr�cke und auch mit Exit in der Taksleiste glaub ich... Woran kann es liegen?

Hier mal meine While schleife:

PHP Code:


			
While $SUCESS=TRUE

    sleep(10)

    $nMsg = GUIGetMsg()

    Switch $nMsg

    Case $GUI_EVENT_CLOSE

        $sucess = False

        exitloop

        

        case $button1

            _anfang()

            if GUICtrlRead($Input1) = GUICtrlRead($INPUT2) Then

                    msgbox(16, "Error", "Benutzername und Passwort d�rfen nicht gleich sein!")

                endif

            if StringLen(guictrlread($Input2))<$PWlen Then

                MsgBox(16, "Error", "Du musst min. 6 Zeichen eingeben!")

            Else

                _create()

            endif

            

        case $button2

            $sucess = False

            ExitLoop



    EndSwitch

    If GUICtrlRead($Slider1) <> GUICtrlRead($LabelSlider) Then 

        GUICtrlSetData($Labelslider, GUICtrlRead($Slider1))

    endif

10/05/2011 22:07 KDeluxe#2

Nimm bei $GUI_EVENT_CLOSE und $Button2 einfach "Exit".

10/06/2011 01:35 omer36#3

wenn nach dem exitloop nichts mehr passieren soll, machst du entweder das, was KD geschrieben hat oder f�gst am ende deines scriptes noch ein "exit" hinzu.

wobei die variante von KD nat�rlich sinvoller ist.

10/06/2011 15:01 Ludder231#4

Sorry das ich das nciht erw�hnt hatte aber exit hatte ich vorher und es hat auch nicht funktioniert...

Quote:

Originally Posted by klavier22

also der Codeausschnitt ist erstmal Falsch oder schlecht kopiert, es fehlt unten WEnd.
Au�erdem m�sstest du evtl mal das ganze Script schreiben damit man den Ablauf des Scripts besser nachvollziehen kann. Ansonsten kannst du nat�rlich auch wie schon gesagt Exit nehmen, ist aber die Frage ob man nicht lieber den Grund findet warum ExitLoop nicht geht,damit man beim n�chsten mal Bescheid wei� und denFehler nicht nochmal macht :D

Stimmt hab Wend ausversehen nicht mit kopiert, und wie oben schon steht, Exit funktioniert auch net ...

10/06/2011 17:18 KDeluxe#5

Dann startest du in einer Funktion eine andere Schleife, sodass der Exit Befehl erst gar nicht ausgef�hrt wird.
Sollen wir raten? Poste dein ganzes Script.

10/06/2011 18:58 Ludder231#6

Nee eig m�chte ich mein script nicht Posten, kb auf Leecher odersowas .. :)

10/06/2011 19:09 bollen#7

Wie viele GUIs hast du den offen?
bestimmt nicht nur 1 wenn der Script danach nicht beendet werden soll.
oder sind noch Inputboxen oder Msgboxen offen?

10/06/2011 19:29 KDeluxe#8

Quote:

Originally Posted by Ludder231

Nee eig m�chte ich mein script nicht Posten, kb auf Leecher odersowas .. :)

Sehr witzig! Dein Codeschnipsel und deine Frage reicht schon aus um sagen zu k�nnen, dass du nicht viel Ahnung hast. Das ist auch nicht weiter schlimm, jeder f�ngt mal an. Nun meine Frage: Wie kommst du auf die Idee, jemand w�rde Teile deines Scripts verwenden? Alles in einem ist deine Einstellung auch egoistisch, aber jeden das seinem.

10/06/2011 21:52 Ludder231#9

Quote:

Originally Posted by KillerDeluxe

Sehr witzig! Dein Codeschnipsel und deine Frage reicht schon aus um sagen zu k�nnen, dass du nicht viel Ahnung hast. Das ist auch nicht weiter schlimm, jeder f�ngt mal an. Nun meine Frage: Wie kommst du auf die Idee, jemand w�rde Teile deines Scripts verwenden? Alles in einem ist deine Einstellung auch egoistisch, aber jeden das seinem.

Weil wie ich finde schon ein etwas gr��eres Projekt ist(f�r meine verh�ltnisse) und mir viel m�he bzw. Arbeit gekostet hat und das nicht einfach iwelchen Leuten die das nciht selber k�nnen, erlaube mein Code zu leechen...

10/06/2011 22:39 KDeluxe#10

Wir reden hier �ber AutoIt. Wenn man richtig sucht findet man zu allem Umsetzbaren eine L�sung. Auf ein Script mehr oder weniger kommt es nicht drauf an.
Exit m�sste funktionieren, da es laut deiner Aussage aber nicht funktioniert, wird die Funktion wahrscheinlich erst gar nicht aufgerufen. Daf�r kann es viele Gr�nde geben. Ziel ist es zu helfen, nicht zu raten.
Aber dennoch mal geraten: Hast du irgendwo noch eine 2. Schleife? W�rde diese kein Sleep beinhalten, w�rde es auch das "Problem" mit deiner CPU Auslastung erkl�ren.

10/07/2011 15:02 Ludder231#11

Ne nur ne for schleife... Aber hier mal mein ganzes Script...:

Spoiler

PHP Code:


			
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 Author:        Joker3e

 Script Function:
    Creating Howrse accounts

#ce ----------------------------------------------------------------------------

#region [SETTING GLOBAL VARIABLES]y
Global $oWebTcp, $AccountName, $input1, $input2, $i, $pwlen, $accountname, $accountpasswort
#endregion

#include <GUIConstants.au3>
#include<file.au3>
#include <GuiRichEdit.au3>
#include <Color.au3>
#include<webtcp.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Account Creator", 419, 272, 305, 261)
$hRichEdit = _GUICtrlRichEdit_Create($Form1_1, "", 0, 160, 417, 110, BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL,$ES_NOHIDESEL))
$Label1 = GUICtrlCreateLabel("Standart account Name:", 8, 8, 142, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("Beispiel: TOMMY", 8, 32, 145, 21)
$Label2 = GUICtrlCreateLabel("Standart account Passwort:", 8, 64, 161, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("Beispiel: JESNE123", 8, 88, 169, 21)
$Label3 = GUICtrlCreateLabel("0/0", 280, 32, 25, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Progress1 = GUICtrlCreateProgress(8, 120, 406, 17)
;$List1 = GUICtrlCreateList("", 0, 160, 417, 110)
$Label4 = GUICtrlCreateLabel("Status:", 224, 8, 51, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("", 280, 8, 46, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF00FF)
$Button1 = GUICtrlCreateButton("Start", 336, 8, 75, 25, 0)
GUICtrlSetState(-1, $GUI_FOCUS)
$Button2 = GUICtrlCreateButton("Abbrechen", 336, 32, 75, 25, 0)
$Slider1 = GUICtrlCreateSlider(264, 80, 150, 29)
GUICtrlSetLimit(-1, 100, 1)
GUICtrlSetData($slider1, 5)
$Label6 = GUICtrlCreateLabel("Anzahl:", 208, 88, 54, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$LabelSlider = GUICtrlCreateLabel("?", 384, 64, 26, 17)
GUISetState(@SW_SHOW)

#RequireAdmin
#EndRegion ### END Koda GUI section ###
$PWlen=stringlen("123456")
#region [TCP STARTUP]
_AUTOITOBJECT_STARTUP()
$oWEBTCP=_WEBTCP_CREATE(FALSE ,FALSE )
TCPSTARTUP()
#endregion

GUICtrlSetData($label5, "Suchen")
$OWEBTCP.navigate("www.howrse.de")
IF STRINGINSTR($OWEBTCP.body,"BEI HOWRSE ANMELDEN")THEN
$SUCESS=TRUE
GUICtrlSetData($label5, "Bereit")
else
$SUCESS=FALSE 
MSGBOX(16,"Error","Server nicht gefunden!")
endif


While $SUCESS=TRUE
    sleep(10)
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
        $sucess = False
        exit
        
        case $button1
            _anfang()
            if GUICtrlRead($Input1) = GUICtrlRead($INPUT2) Then
                    msgbox(16, "Error", "Benutzername und Passwort d�rfen nicht gleich sein!")
                endif
            if StringLen(guictrlread($Input2))<$PWlen Then
                MsgBox(16, "Error", "Du musst min. 6 Zeichen eingeben!")
            Else
                _create()
            endif
            
        case $button2
            $sucess = False
            Exit

    EndSwitch
    If GUICtrlRead($Slider1) <> GUICtrlRead($LabelSlider) Then 
        GUICtrlSetData($Labelslider, GUICtrlRead($Slider1))
    endif
    

WEnd

func _create()
    ;GUICTRLSETDATA($LIST1,"["&@HOUR&":"&@MIN&":"&@SEC&"]"&" Account erstellung wird vorbereitet.")
     _GUICtrlRichEdit_SetSel($hRichEdit,-1,-1)
    _GUICtrlRichEdit_AppendText($hRichEdit, "["&@HOUR&":"&@MIN&":"&@SEC&"]"&" Account erstellung wird vorbereitet.")
    _RichEdit_AddColoredText($hRichEdit, @CR, 0x000000)
    
for $i = 1 to GUICtrlRead($Slider1)
    GUICTRLSETDATA($Label3, $i&"/"&GUICtrlRead($slider1))
    $EMail = IniRead(@scriptdir&"\OptionaleEinstellungen.ini", "Einstellungen", "EMail verifizieren", "")
    $Sponsor= ""
    $AccountName = GUICtrlRead($Input1)
    $AccountPasswort = GUICtrlRead($input2)
    
    ;------------------------------------------------------------------------Account Daten auslesen
    
    $oWebTcp.Navigate("http://www.howrse.de/inscription/inscription?etape=2", "inscriptionType=1&inscriptionNom="&$AccountName&$i&"&inscriptionSexe=femelle")

    $oWebTcp.Navigate("http://www.howrse.de/dossiers/robeChoix", "id=42&field=robe") ;id noch w�hlbar machen

    $oWebTcp.Navigate("http://www.howrse.de/inscription/inscription", "etape=3&pays=&inscriptionNom="&$AccountName&$i&"&inscriptionSexe=femelle&inscriptionType=cheval&inscriptionMonde=&race=42&robe=26");id & robe w�hlbar machen
    ;Fail
    $oWebTcp.Navigate("http://www.howrse.de/site/signUp")
    
    $oWebTcp.Navigate("http://www.howrse.de/site/doSignUp", "login="&$AccountName&$i&"&accountParentalAuth=&password="&$AccountPasswort&"&passwordBis="&$AccountPasswort&"&referer="&$Sponsor&"&origin=&birthdateDay=1&birthdateMonth=1&birthdateYear=1980&birthdate=1980-01-01&terms=1&") ; &$Sponsor&
    
    IF STRINGINSTR($OWEBTCP.body,"Du kannst nicht weitermachen...") Then
        msgbox(16, "Error", "Du kannst nicht weitermachen..." &@crlf& _ 
        "Der Benutzername existiert bereits.")
        
    else 

        
        _FileWriteToLine(@ScriptDir&"\AccountDaten.txt", $i, $Accountname&$i&":"&$AccountPasswort, 0)
    
         
        _GUICtrlRichEdit_AppendText($hRichEdit, "["&@HOUR&":"&@MIN&":"&@SEC&"] Account:[")
         _RichEdit_AddColoredText($hRichEdit, $i, 0xCD2626)
        _RichEdit_AddColoredText($hRichEdit, "] " ,000000)
        _RichEdit_AddColoredText($hRichEdit, $Accountname&$i , 0x9932CC)
        _RichEdit_AddColoredText($hRichEdit, " erfolgreich erstellt." ,000000)
        _RichEdit_AddColoredText($hRichEdit, @CR, 0x000000)
         _GUICtrlRichEdit_AppendText($hRichEdit, "Account:[")
        _RichEdit_AddColoredText($hRichEdit, $i, 0xFF0000)
        _RichEdit_AddColoredText($hRichEdit, "] " ,000000)
        _RichEdit_AddColoredText($hRichEdit, "Gew�hlte Einstellung: " ,000000)
        _RichEdit_AddColoredText($hRichEdit, $Email , 0xEE0000)
        _RichEdit_AddColoredText($hRichEdit, @CR, 0x000000)
        
        if $EMail = "True" then
            
             _GUICtrlRichEdit_AppendText($hRichEdit, "["&@HOUR&":"&@MIN&":"&@SEC&"] Account:[")
            _RichEdit_AddColoredText($hRichEdit, $i, 0xFF0000)
            _RichEdit_AddColoredText($hRichEdit, "] " ,000000)
            _RichEdit_AddColoredText($hRichEdit, $Accountname&$i , 0x9932CC)
            _RichEdit_AddColoredText($hRichEdit, " Account wird verifiziert." ,000000)
            _RichEdit_AddColoredText($hRichEdit, @CR, 0x000000)
            _RichEdit_AddColoredText($hRichEdit, @CR, 0x000000)
            _verifizieren()
            
        endif
        GUICtrlSetData($Progress1, $i/guictrlread($slider1)*100)
endif
        
next

EndFunc


func _CreateEmail()
    ;$oWebTcp.navigate("https://registrierung.web.de/;jsessionid=ACD599C668531F52D1571D413562AC16.reg-webde001?wicket:interface=:0:freemailForm:wishnamePanel:wishnameForm:check_availability::IActivePageBehaviorListener:0:&wicket:ignoreIfNotActive=true&random="&Random(0, 10)&"", "id10_hf_0=&personaldataPanel%3Asalutation=Herr&personaldataPanel%3AfirstName=Vornamehier&personaldataPanel%3AlastName=nachnameier&addressdataPanel%3Acountry=DE&addressdataPanel%3AzipCityContainer%3AzipCode=27333&addressdataPanel%3AzipCityContainer%3Acity=B%C3%BCcken&addressdataPanel%3Astreet=M%C3%BChlenweg%2044%20&dateOfBirth%3Abirthdata%3Aday=01&dateOfBirth%3Abirthdata%3Amonth=01&dateOfBirth%3Abirthdata%3Ayear=1990&mobileNumberPanel%3AmobileNumber=&wishnamePanel%3AwishnameForm%3AuserNameCorrected=true&wishnamePanel%3AwishnameForm%3AuserName=EMail.Email2web.de&tld=web.de&passwordPanel%3ApasswordPanelForm%3Apassword=&passwordPanel%3ApasswordPanelForm%3ApasswordConfirm=&challengePanel%3Aemail=&challengePanel%3Achallenge=1&challengePanel%3AchallengeAnswer=&captchaPanel%3AcaptchaContainer%3AcaptchaResponse=&wishnamePanel%3AwishnameForm%3Acheck_availability=1")
EndFunc

func _verifizieren()
    
    $LOGINPOST="login="&$AccountName&"&password="&$AccountPasswort&"&"
    $OWEBTCP.Navigate("http://www.howrse.de/site/doLogIn",$LOGINPOST)
    FileWrite(@scriptdir&"\bla1.html", $oWebTcp.body)
    IF STRINGINSTR($OWEBTCP.body,"Du kannst nicht weitermachen...") or STRINGINSTR($OWEBTCP.body,"Fehler: Offline-Modus") or STRINGINSTR($OWEBTCP.body," Die Webseite kann nicht angezeigt werden") THEN
        
        _GUICtrlRichEdit_AppendText($hRichEdit, "["&@HOUR&":"&@MIN&":"&@SEC&"] Account:[")
        _RichEdit_AddColoredText($hRichEdit, $i, 0xFF0000)
        _RichEdit_AddColoredText($hRichEdit, "] " ,000000)
        _RichEdit_AddColoredText($hRichEdit, $Accountname&$i , 0x9932CC)
        _RichEdit_AddColoredText($hRichEdit, " einloggen fehlgeschlagen." ,000000)
        _RichEdit_AddColoredText($hRichEdit, @CR, 0x000000)
    ELSE
    $oWEBTCP.Navigate("http://www.howrse.de/jeu/?identification=1")
    
endif
FileWrite(@scriptdir&"\bla2.html", $oWebTcp.body)
endfunc

func _anfang()
    GUICTRLSETDATA($Label3, "0"&"/"&"0")
EndFunc

#region [TCPSHUTDOWN]
_AUTOITOBJECT_SHUTDOWN()
TCPSHUTDOWN()
#endregion

Func _RichEdit_AddColoredText($hRichEdit, $sText, $nColor)
    ;SEuBo
    Local $aSel, $aNSel
    $aSel = _GUICtrlRichEdit_GetSel($hRichEdit) ; aktuelle Cursorpos.
    _GUICtrlRichEdit_AppendText($hRichEdit, $sText) ; Text ah�ngen
    $aNSel = _GUICtrlRichEdit_GetSel($hRichEdit) ; Cursorpos nach dem Text einf�gen
    _GUICtrlRichEdit_SetSel($hRichEdit, $aSel[0], $aNSel[0], True) ; Geschriebenen Text w�hlen
    _GUICtrlRichEdit_SetCharColor($hRichEdit, $nColor) ; Einf�rben
    _GUICtrlRichEdit_SetSel($hRichEdit, -1, -1) ; Und cursor ans ende setzen
EndFunc   ;==>_RichEdit_AddColoredText

10/07/2011 21:00 bollen#12

Also wenn ich den Script ausf�hre und ihn danach beenden will klapt das einwandfrei.
Kannst du uns eventuell noch sagen wann der script nicht mehr funktioniert?
also nach welcher Aktion du den Script nicht mehr beenden kannst

€: das

Code:

$sucess=False

kannst du weg lassen da der script eh gleich danach beendet wird

10/08/2011 19:11 Kurosaki'#13

Vielleicht machst ein Hotkey, indem es sich mit F6 oder sowas schlie�t.

Spoiler

PHP Code:


			
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 Author:        Joker3e

 Script Function:
    Creating Howrse accounts

#ce ----------------------------------------------------------------------------

#region [SETTING GLOBAL VARIABLES]y
Global $oWebTcp, $AccountName, $input1, $input2, $i, $pwlen, $accountname, $accountpasswort
#endregion

#include <GUIConstants.au3>
#include<file.au3>
#include <GuiRichEdit.au3>
#include <Color.au3>
#include<webtcp.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
HotKeySet ("{F6}", "_Exit")
$Form1_1 = GUICreate("Account Creator", 419, 272, 305, 261)
$hRichEdit = _GUICtrlRichEdit_Create($Form1_1, "", 0, 160, 417, 110, BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL,$ES_NOHIDESEL))
$Label1 = GUICtrlCreateLabel("Standart account Name:", 8, 8, 142, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("Beispiel: TOMMY", 8, 32, 145, 21)
$Label2 = GUICtrlCreateLabel("Standart account Passwort:", 8, 64, 161, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("Beispiel: JESNE123", 8, 88, 169, 21)
$Label3 = GUICtrlCreateLabel("0/0", 280, 32, 25, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Progress1 = GUICtrlCreateProgress(8, 120, 406, 17)
;$List1 = GUICtrlCreateList("", 0, 160, 417, 110)
$Label4 = GUICtrlCreateLabel("Status:", 224, 8, 51, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("", 280, 8, 46, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF00FF)
$Button1 = GUICtrlCreateButton("Start", 336, 8, 75, 25, 0)
GUICtrlSetState(-1, $GUI_FOCUS)
$Button2 = GUICtrlCreateButton("Abbrechen", 336, 32, 75, 25, 0)
$Slider1 = GUICtrlCreateSlider(264, 80, 150, 29)
GUICtrlSetLimit(-1, 100, 1)
GUICtrlSetData($slider1, 5)
$Label6 = GUICtrlCreateLabel("Anzahl:", 208, 88, 54, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$LabelSlider = GUICtrlCreateLabel("?", 384, 64, 26, 17)
GUISetState(@SW_SHOW)

#RequireAdmin
#EndRegion ### END Koda GUI section ###
$PWlen=stringlen("123456")
#region [TCP STARTUP]
_AUTOITOBJECT_STARTUP()
$oWEBTCP=_WEBTCP_CREATE(FALSE ,FALSE )
TCPSTARTUP()
#endregion

GUICtrlSetData($label5, "Suchen")
$OWEBTCP.navigate("www.howrse.de")
IF STRINGINSTR($OWEBTCP.body,"BEI HOWRSE ANMELDEN")THEN
$SUCESS=TRUE
GUICtrlSetData($label5, "Bereit")
else
$SUCESS=FALSE
MSGBOX(16,"Error","Server nicht gefunden!")
endif


While $SUCESS=TRUE
    sleep(10)
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
        $sucess = False
        exit
        Func _Exit()
            Exit 0

        case $button1
            _anfang()
            if GUICtrlRead($Input1) = GUICtrlRead($INPUT2) Then
                    msgbox(16, "Error", "Benutzername und Passwort d�rfen nicht gleich sein!")
                endif
            if StringLen(guictrlread($Input2))<$PWlen Then
                MsgBox(16, "Error", "Du musst min. 6 Zeichen eingeben!")
            Else
                _create()
            endif

        case $button2
            $sucess = False
            Exit

    EndSwitch
    If GUICtrlRead($Slider1) <> GUICtrlRead($LabelSlider) Then
        GUICtrlSetData($Labelslider, GUICtrlRead($Slider1))
    endif


WEnd

func _create()
    ;GUICTRLSETDATA($LIST1,"["&@HOUR&":"&@MIN&":"&@SEC&"]"&" Account erstellung wird vorbereitet.")
     _GUICtrlRichEdit_SetSel($hRichEdit,-1,-1)
    _GUICtrlRichEdit_AppendText($hRichEdit, "["&@HOUR&":"&@MIN&":"&@SEC&"]"&" Account erstellung wird vorbereitet.")
    _RichEdit_AddColoredText($hRichEdit, @CR, 0x000000)

for $i = 1 to GUICtrlRead($Slider1)
    GUICTRLSETDATA($Label3, $i&"/"&GUICtrlRead($slider1))
    $EMail = IniRead(@scriptdir&"\OptionaleEinstellungen.ini", "Einstellungen", "EMail verifizieren", "")
    $Sponsor= ""
    $AccountName = GUICtrlRead($Input1)
    $AccountPasswort = GUICtrlRead($input2)

    ;------------------------------------------------------------------------Account Daten auslesen

    $oWebTcp.Navigate("http://www.howrse.de/inscription/inscription?etape=2", "inscriptionType=1&inscriptionNom="&$AccountName&$i&"&inscriptionSexe=femelle")

    $oWebTcp.Navigate("http://www.howrse.de/dossiers/robeChoix", "id=42&field=robe") ;id noch w�hlbar machen

    $oWebTcp.Navigate("http://www.howrse.de/inscription/inscription", "etape=3&pays=&inscriptionNom="&$AccountName&$i&"&inscriptionSexe=femelle&inscriptionType=cheval&inscriptionMonde=&race=42&robe=26");id & robe w�hlbar machen
    ;Fail
    $oWebTcp.Navigate("http://www.howrse.de/site/signUp")

    $oWebTcp.Navigate("http://www.howrse.de/site/doSignUp", "login="&$AccountName&$i&"&accountParentalAuth=&password="&$AccountPasswort&"&passwordBis="&$AccountPasswort&"&referer="&$Sponsor&"&origin=&birthdateDay=1&birthdateMonth=1&birthdateYear=1980&birthdate=1980-01-01&terms=1&") ; &$Sponsor&

    IF STRINGINSTR($OWEBTCP.body,"Du kannst nicht weitermachen...") Then
        msgbox(16, "Error", "Du kannst nicht weitermachen..." &@crlf& _
        "Der Benutzername existiert bereits.")

    else


        _FileWriteToLine(@ScriptDir&"\AccountDaten.txt", $i, $Accountname&$i&":"&$AccountPasswort, 0)


        _GUICtrlRichEdit_AppendText($hRichEdit, "["&@HOUR&":"&@MIN&":"&@SEC&"] Account:[")
         _RichEdit_AddColoredText($hRichEdit, $i, 0xCD2626)
        _RichEdit_AddColoredText($hRichEdit, "] " ,000000)
        _RichEdit_AddColoredText($hRichEdit, $Accountname&$i , 0x9932CC)
        _RichEdit_AddColoredText($hRichEdit, " erfolgreich erstellt." ,000000)
        _RichEdit_AddColoredText($hRichEdit, @CR, 0x000000)
         _GUICtrlRichEdit_AppendText($hRichEdit, "Account:[")
        _RichEdit_AddColoredText($hRichEdit, $i, 0xFF0000)
        _RichEdit_AddColoredText($hRichEdit, "] " ,000000)
        _RichEdit_AddColoredText($hRichEdit, "Gew�hlte Einstellung: " ,000000)
        _RichEdit_AddColoredText($hRichEdit, $Email , 0xEE0000)
        _RichEdit_AddColoredText($hRichEdit, @CR, 0x000000)

        if $EMail = "True" then

             _GUICtrlRichEdit_AppendText($hRichEdit, "["&@HOUR&":"&@MIN&":"&@SEC&"] Account:[")
            _RichEdit_AddColoredText($hRichEdit, $i, 0xFF0000)
            _RichEdit_AddColoredText($hRichEdit, "] " ,000000)
            _RichEdit_AddColoredText($hRichEdit, $Accountname&$i , 0x9932CC)
            _RichEdit_AddColoredText($hRichEdit, " Account wird verifiziert." ,000000)
            _RichEdit_AddColoredText($hRichEdit, @CR, 0x000000)
            _RichEdit_AddColoredText($hRichEdit, @CR, 0x000000)
            _verifizieren()

        endif
        GUICtrlSetData($Progress1, $i/guictrlread($slider1)*100)
endif

next

EndFunc


func _CreateEmail()
    ;$oWebTcp.navigate("https://registrierung.web.de/;jsessionid=ACD599C668531F52D1571D413562AC16.reg-webde001?wicket:interface=:0:freemailForm:wishnamePanel:wishnameForm:check_availability::IActivePageBehaviorListener:0:&wicket:ignoreIfNotActive=true&random="&Random(0, 10)&"", "id10_hf_0=&personaldataPanel%3Asalutation=Herr&personaldataPanel%3AfirstName=Vornamehier&personaldataPanel%3AlastName=nachnameier&addressdataPanel%3Acountry=DE&addressdataPanel%3AzipCityContainer%3AzipCode=27333&addressdataPanel%3AzipCityContainer%3Acity=B%C3%BCcken&addressdataPanel%3Astreet=M%C3%BChlenweg%2044%20&dateOfBirth%3Abirthdata%3Aday=01&dateOfBirth%3Abirthdata%3Amonth=01&dateOfBirth%3Abirthdata%3Ayear=1990&mobileNumberPanel%3AmobileNumber=&wishnamePanel%3AwishnameForm%3AuserNameCorrected=true&wishnamePanel%3AwishnameForm%3AuserName=EMail.Email2web.de&tld=web.de&passwordPanel%3ApasswordPanelForm%3Apassword=&passwordPanel%3ApasswordPanelForm%3ApasswordConfirm=&challengePanel%3Aemail=&challengePanel%3Achallenge=1&challengePanel%3AchallengeAnswer=&captchaPanel%3AcaptchaContainer%3AcaptchaResponse=&wishnamePanel%3AwishnameForm%3Acheck_availability=1")
EndFunc

func _verifizieren()

    $LOGINPOST="login="&$AccountName&"&password="&$AccountPasswort&"&"
    $OWEBTCP.Navigate("http://www.howrse.de/site/doLogIn",$LOGINPOST)
    FileWrite(@scriptdir&"\bla1.html", $oWebTcp.body)
    IF STRINGINSTR($OWEBTCP.body,"Du kannst nicht weitermachen...") or STRINGINSTR($OWEBTCP.body,"Fehler: Offline-Modus") or STRINGINSTR($OWEBTCP.body," Die Webseite kann nicht angezeigt werden") THEN

        _GUICtrlRichEdit_AppendText($hRichEdit, "["&@HOUR&":"&@MIN&":"&@SEC&"] Account:[")
        _RichEdit_AddColoredText($hRichEdit, $i, 0xFF0000)
        _RichEdit_AddColoredText($hRichEdit, "] " ,000000)
        _RichEdit_AddColoredText($hRichEdit, $Accountname&$i , 0x9932CC)
        _RichEdit_AddColoredText($hRichEdit, " einloggen fehlgeschlagen." ,000000)
        _RichEdit_AddColoredText($hRichEdit, @CR, 0x000000)
    ELSE
    $oWEBTCP.Navigate("http://www.howrse.de/jeu/?identification=1")

endif
FileWrite(@scriptdir&"\bla2.html", $oWebTcp.body)
endfunc

func _anfang()
    GUICTRLSETDATA($Label3, "0"&"/"&"0")
EndFunc

#region [TCPSHUTDOWN]
_AUTOITOBJECT_SHUTDOWN()
TCPSHUTDOWN()
#endregion

Func _RichEdit_AddColoredText($hRichEdit, $sText, $nColor)
    ;SEuBo
    Local $aSel, $aNSel
    $aSel = _GUICtrlRichEdit_GetSel($hRichEdit) ; aktuelle Cursorpos.
    _GUICtrlRichEdit_AppendText($hRichEdit, $sText) ; Text ah�ngen
    $aNSel = _GUICtrlRichEdit_GetSel($hRichEdit) ; Cursorpos nach dem Text einf�gen
    _GUICtrlRichEdit_SetSel($hRichEdit, $aSel[0], $aNSel[0], True) ; Geschriebenen Text w�hlen
    _GUICtrlRichEdit_SetCharColor($hRichEdit, $nColor) ; Einf�rben
    _GUICtrlRichEdit_SetSel($hRichEdit, -1, -1) ; Und cursor ans ende setzen
EndFunc   ;==>_RichEdit_AddColoredText

Hab mal dein Script verbessert.
�ffne es und dr�cke auf F6 und er schlie�t sich =)

10/16/2011 14:14 Ludder231#14

Ich habs jz so gel�st; ich hab mir den zusatz programm gemacht das gestartet wird wenn man auf Exit dr�ckt ausf�hrt und den process closed.