|
You last visited: Today at 02:25
Advertisement
Programm schließt nicht richtig
Discussion on Programm schließt nicht richtig within the AutoIt forum part of the Coders Den category.
10/05/2011, 21:21
|
#1
|
elite*gold: 0 
Join Date: Aug 2010
Posts: 880
Received Thanks: 113
|
Programm schließt nicht richtig
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
|
#2
|
elite*gold: 0
Join Date: Mar 2009
Posts: 7,260
Received Thanks: 33,149
|
Nimm bei $GUI_EVENT_CLOSE und $Button2 einfach "Exit".
|
|
|
|
|
10/06/2011, 01:35
|
#3
|
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,255
|
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
|
#4
|
elite*gold: 0
Join Date: Aug 2010
Posts: 880
Received Thanks: 113
|
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  |
Stimmt hab Wend ausversehen nicht mit kopiert, und wie oben schon steht, Exit funktioniert auch net ...
|
|
|
|
|
10/06/2011, 17:18
|
#5
|
elite*gold: 0
Join Date: Mar 2009
Posts: 7,260
Received Thanks: 33,149
|
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
|
#6
|
elite*gold: 0
Join Date: Aug 2010
Posts: 880
Received Thanks: 113
|
Nee eig möchte ich mein script nicht Posten, kb auf Leecher odersowas .. 
|
|
|
|
|
10/06/2011, 19:09
|
#7
|
elite*gold: 0
Join Date: Nov 2009
Posts: 221
Received Thanks: 71
|
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
|
#8
|
elite*gold: 0
Join Date: Mar 2009
Posts: 7,260
Received Thanks: 33,149
|
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
|
#9
|
elite*gold: 0
Join Date: Aug 2010
Posts: 880
Received Thanks: 113
|
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
|
#10
|
elite*gold: 0
Join Date: Mar 2009
Posts: 7,260
Received Thanks: 33,149
|
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
|
#11
|
elite*gold: 0
Join Date: Aug 2010
Posts: 880
Received Thanks: 113
|
Ne nur ne for schleife... Aber hier mal mein ganzes Script...:
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
|
#12
|
elite*gold: 0
Join Date: Nov 2009
Posts: 221
Received Thanks: 71
|
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 kannst du weg lassen da der script eh gleich danach beendet wird
|
|
|
|
|
10/08/2011, 19:11
|
#13
|
elite*gold: LOCKED
Join Date: May 2011
Posts: 3,618
Received Thanks: 2,007
|
Vielleicht machst ein Hotkey, indem es sich mit F6 oder sowas schließt.
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
|
#14
|
elite*gold: 0
Join Date: Aug 2010
Posts: 880
Received Thanks: 113
|
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.
|
|
|
|
Similar Threads
|
c++ Programm funktioniert nicht richtig
07/02/2011 - C/C++ - 18 Replies
Huhu e*pvp,
ein Mitschüler aus meiner Klasse nervt mich seit einer Woche damit dass ich ihm helfe einen Facebook-Account zu hacken, langsam nervt es mich darum möchte ich ihn verarschen, mein nein kapiert er nämlich nicht:rolleyes:
Hab einfach ein kleines Programm geschrieben, dass für Leute wie ihn, die weniger als keinen Plan von Coding oder ähnlichem haben so aussieht als könnte man etwas damit Hacken.
Das funktioniert allerdings nicht richtig.
Das Programm ignoriert einfach mehrere...
|
[Frage]C++ Programm schließt sich bei richtiger Eingabe
02/13/2011 - C/C++ - 0 Replies
Edit: Fehler gefunden und behoben!!!
|
All times are GMT +1. The time now is 02:26.
|
|
