[TUT]1.Potfunktions Methode in AutoIT

08/22/2012 17:37 Samulau#1

Hallo Leute.
Da es zurzeit viele Bots gibt, die nur Angreifen und aufheben (HP und MP) auslesen m�chte ich euch noch dazu erkl�ren wie ihr eine erweiterte Funktion erstellen k�nnt.Ich nehme hier mal eine Auto-Pot Funktion rein damit ihr seht wie man so etwas aufbauen k�nnte.
So nun zum eigentlichen Bot Aufbau.
Man nehme ein Fenster mit einem Label,eine Combo und einer Input.
(Schnell erstellt sorry f�r das schlechte Design :D)
[Only registered and activated users can see links. Click Here To Register...]

So nun kommen wir zum eigentlichen Code.
Also er sieht bis jetzt noch folgender Ma�en aus :

Spoiler

Code:

#include <ComboConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Levelbot", 277, 31, 192, 124, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE)) GUISetBkColor(0x000000) $Label1 = GUICtrlCreateLabel("Snack benutzen:", 8, 8, 85, 17) GUICtrlSetColor(-1, 0x00FF00) $Combo1 = GUICtrlCreateCombo("", 96, 5, 73, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "6|7|8|9") $Input1 = GUICtrlCreateInput("", 176, 5, 33, 21) $Label2 = GUICtrlCreateLabel("Sekunden", 216, 8, 53, 17) GUICtrlSetColor(-1, 0x3399FF) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd

ALso mit der Combo wollen wir einstellen oder der Benutzer wo diese in der Skill-leiste liegen.Habe jetzt mal nur 6-9 genommen.
In der Input werden die Sekunden eingetragen wenn diese Sekunden auf 0 fallen Pottet er einmal die Taste 6-oder/bis-9 und dannach setzt er die Sekunden von 0 wieder auf die eingetragenen Sekunden ein.Als erstes werden nun die Start/Stop/Exit Funktionen geschrieben jedoch die Start-funktion noch nicht ganz.(Dies kommt noch.)

Spoiler

Code:

#include <ComboConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> Global $active = 0 ;Wir setzen die Variable active auf 0 #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Levelbot", 277, 31, 192, 124, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE)) GUISetBkColor(0x000000) $Label1 = GUICtrlCreateLabel("Snack benutzen:", 8, 8, 85, 17) GUICtrlSetColor(-1, 0x00FF00) $Combo1 = GUICtrlCreateCombo("", 96, 5, 73, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "6|7|8|9") $Input1 = GUICtrlCreateInput("", 176, 5, 33, 21) $Label2 = GUICtrlCreateLabel("Sekunden", 216, 8, 53, 17) GUICtrlSetColor(-1, 0x3399FF) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func Start_() $active = 1 ;wir setzen die Variable active auf 1 If $active = 1 Then ;wenn die Variable active gleich 1 ist dann (funktion) While 1 ;immer wiederholen ;funktion kommt sp�ter WEnd ;schlie�en der Schleife EndIf ;schlie�en der If Bedingung EndFunc ;schlie�en der Funktion Func Stop_() $active = 0 If $active = 0 Then While 1 sleep(20);Schl�ft durchgehend bis das $acive auf 1 gesetzt wird WEnd EndIf EndFunc Func Exit_() Exit EndFunc

Die Funktionen werden im Code beschrieben wer AutoIT etwas kann sollte den Code verstehen k�nnen :)
Nun m�ssen wir diese Funktionen nat�rlich aufrufen k�nnen dies machen wir indem wir die HotKeys platzieren ! Am besten verwendet man die Tasten F1-F11(nicht F12 !).

Spoiler

Code:

HotKeySet("{F1}","Start_");Aufrufen der Startfunktion mit F1 HotKeySet("{F2}","Stop_");= HotKeySet("{F3}","Exit_");=

So nun k�nnen wir die Funktionen auch noch erfolgreich aufrufen mit den Tasten F1,F2,F3.Nun kommen wir zur Save Funktion !Wir m�ssen die Input Speichern bevor wir die eigentliche Funktion starten k�nnen da er die Sekunden nicht einfach so herzaubern kann nachdem die Zahl auf 0 gefallen ist.Daf�r lassen wir eine Save.ini erstellen (es geht auch mit Variablen zeige es jetzt mit diesen Methoden)im gleichen Ordner wo das Script/die .exe liegt.

Spoiler

Code:

$SaveCombo1 = IniRead(@ScriptDir & "\Save.ini", "PotButton", "", "Change") $SaveInput1 = IniRead(@ScriptDir & "\Save.ini", "PotTime", "", "10") Dies wird unter Global $active = 0 gesetzt !

Als n�chstes Brauchen wir die Funktion zum Schreiben in die Save.ini und zum Aufrufen der Save.ini ! Diese Funktionen braucht ihr nun und setzt sie an das Ende des Scriptes !

Spoiler

Code:

Func IniWrite_() IniWrite(@ScriptDir & "\Save.ini", "PotButton", "", GuiCtrlRead($Combo1)) ;In die Save.ini an die Position PotButton den Key aus Combo1 schreiben IniWrite(@ScriptDir & "\Save.ini", "PotTime", "", GuiCtrlRead($Input1)) ;= EndFunc Func IniSee() $SaveCombo1 = IniRead(@ScriptDir & "\Save.ini", "PotButton", "", "Change") ;Lesen der Daten aus der Combo $SaveInput1 = IniRead(@ScriptDir & "\Save.ini", "PotTime", "", "10") ;Lesen der Daten aus der Input EndFunc

Nun brauchen wir eigentlich nur noch die Potfunktion aber ich m�chte noch darauf hinweisen nicht das #RequireAdmin am Anfang zu setzen und die $Save Variablen in die entsprechenden Combos und Inputs aber lest euch den kompletten Code sp�ter nochmal richtig durch damit ihr nichts falsch macht !
Nun kommt die eigentliche Potfunktion !

Spoiler

Code:

Func Pot_() If GuiCtrlRead($Input1) = "0" or "" Then ;Wenn die Input1 auf 0 f�llt dann ... controlsend("NosTale","","",GuiCtrlRead($Combo1)) ;An NosTale den PotButton aus der COmbo senden GuiCtrlSetData($Input1, $SaveInput1) ;Zur�cksetzen der Sekunden auf z.b. 10 von 0 EndIf ;Ende der If Bedingung EndFunc

Nun m�ssen wir nat�rlich die ganzen Funktionen in die Startfunktion versetzen das macht ihr ungef�hr so :

Spoiler

Code:

Func Start_() IniWrite_() IniSee() GuiCtrlSetState($Input1,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) GuiCtrlSetState($Combo1,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $active = 1 ;wir setzen die Variable active auf 1 If $active = 1 Then ;wenn die Variable active gleich 1 ist dann (funktion) While 1 ;immer wiederholen GuiCtrlSetData($Input1, GuiCtrlRead($Input1)-1);Jede Sekunde durch die Sleep die Skunden -1 Zahl setzen ! Pot_() sleep(1000);1 sekunde Abstand f�r den Timer der Sekunden WEnd ;schlie�en der Schleife EndIf ;schlie�en der If Bedingung EndFunc ;schlie�en der Funktion Func Stop_() GuiCtrlSetState($Input1,$GUI_Enable) GuiCtrlSetState($Combo1,$GUI_Enable) GuiCtrlSetData($Input1,$SaveInput1) GuiCtrlSetData($Combo1,$SaveCombo1) $active = 0 If $active = 0 Then While 1 sleep(20);Schl�ft durchgehend bis das $acive auf 1 gesetzt wird WEnd EndIf EndFunc

Zudem habe ich dort noch eingestellt das man w�hrend des Bottens nichts ver�ndern kann an den Sekunden und an dem Potbutton und das wenn man ihn stoppt das die richtigen Sekunden wieder angezeigt werden statt die bei der man stehen geblieben ist.
Und herzlichen Gl�ckwunsch du hast eine Methode der Potfunktion herausgefunden und kannst sie hoffentlich nun auch benutzen.
Hier sit der komplette Code:

Spoiler

Code:

#RequireAdmin HotKeySet("{F1}","Start_");Aufrufen der Startfunktion mit F1 HotKeySet("{F2}","Stop_");= HotKeySet("{F3}","Exit_");= #include <ComboConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> Global $active = 0 ;Wir setzen die Variable active auf 0 $SaveCombo1 = IniRead(@ScriptDir & "\Save.ini", "PotButton", "", "Change") $SaveInput1 = IniRead(@ScriptDir & "\Save.ini", "PotTime", "", "10") #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Levelbot", 277, 31, 192, 124, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE)) GUISetBkColor(0x000000) $Label1 = GUICtrlCreateLabel("Snack benutzen:", 8, 8, 85, 17) GUICtrlSetColor(-1, 0x00FF00) $Combo1 = GUICtrlCreateCombo($SaveCombo1, 96, 5, 73, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "6|7|8|9") $Input1 = GUICtrlCreateInput($SaveInput1, 176, 5, 33, 21) $Label2 = GUICtrlCreateLabel("Sekunden", 216, 8, 53, 17) GUICtrlSetColor(-1, 0x3399FF) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func Start_() IniWrite_() IniSee() GuiCtrlSetState($Input1,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) GuiCtrlSetState($Combo1,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $active = 1 ;wir setzen die Variable active auf 1 If $active = 1 Then ;wenn die Variable active gleich 1 ist dann (funktion) While 1 ;immer wiederholen GuiCtrlSetData($Input1, GuiCtrlRead($Input1)-1);Jede Sekunde durch die Sleep die Skunden -1 Zahl setzen ! Pot_() sleep(1000);1 sekunde Abstand f�r den Timer der Sekunden WEnd ;schlie�en der Schleife EndIf ;schlie�en der If Bedingung EndFunc ;schlie�en der Funktion Func Stop_() GuiCtrlSetState($Input1,$GUI_Enable) GuiCtrlSetState($Combo1,$GUI_Enable) $active = 0 If $active = 0 Then While 1 sleep(20);Schl�ft durchgehend bis das $acive auf 1 gesetzt wird WEnd EndIf EndFunc Func Exit_() Exit EndFunc Func IniWrite_() IniWrite(@ScriptDir & "\Save.ini", "PotButton", "", GuiCtrlRead($Combo1)) ;In die Save.ini an die Position PotButton den Key aus Combo1 schreiben IniWrite(@ScriptDir & "\Save.ini", "PotTime", "", GuiCtrlRead($Input1)) ;= EndFunc Func IniSee() $SaveCombo1 = IniRead(@ScriptDir & "\Save.ini", "PotButton", "", "Change") ;Lesen der Daten aus der Combo $SaveInput1 = IniRead(@ScriptDir & "\Save.ini", "PotTime", "", "10") ;Lesen der Daten aus der Input EndFunc Func Pot_() If GuiCtrlRead($Input1) = "0" or "" Then ;Wenn die Input1 auf 0 f�llt dann ... controlsend("NosTale","","",GuiCtrlRead($Combo1)) ;An NosTale den PotButton aus der COmbo senden GuiCtrlSetData($Input1, $SaveInput1) ;Zur�cksetzen der Sekunden auf z.b. 10 von 0 EndIf ;Ende der If Bedingung EndFunc

Bitte informiert mich wenn Fehler vorhanden sind aber NICHT wenn ihr eine bessere Methode kennt !Das interessiert mich hier im Thread nicht .Rechtschreibfehler k�nnt ihr auch f�r euch behalten ,ich wei� das ich nicht gerade der beste in Sachen Rechtschreibung bin !
Ich hoffe ihr habt es halbwegs verstanden und k�nnt jetzt auch eine Potfunktion in euren Bot schreiben.
Ich bitte euch wenn ihr diese Funktion benutzt meine Credits mit an zu geben.

Mfg Samulau

PS.: Ich hoffe ich habe es euch genug erkl�rt und n�her gebracht und mit ein paar Funktionen hier k�nnt ihr auch einiges Automatisch abspeichern lassen :)
Um die Save.ini zu erhalten m�sst ihr meines erachtens nach einem die Potfunktion starten und dann den Bot wieder beenden.

08/22/2012 18:22 Mr.Tr33#2

Schlechtes Tutorial ;)
Also indirekt :D Ich habe es nicht durchgelesen und nur die Beispielscripte angeguckt.
Wenn man schon eine GUI hat, warum baut man nicht gleich Start/Stop und Exit Buttons ein? Hotkeyset w�ren in deinem Fall unn�tig ;)
Ich helfe momentan [Only registered and activated users can see links. Click Here To Register...] bei AutoIt (mein Sch�ler :P) und er w�rde ein besseres Script, mit dem selben Funktionen und kleinerem Aufwand hinlegen, wenn er sich bem�ht :P

Desweiterem ist dies hier der falsche Bereich daf�r und man sollte jemanden nicht was "falsches" beibringen, wenn es auch richtig geht ...

08/22/2012 18:44 Samulau#3

Was ist falsch wenn die Funktion trotzdem funktioniert ?
Was ist falsch daran ein HotKeySet zu nehmen wenn es nicht so Zeitraubend ist ?
Was ist falsch an den Funktionen ?
Ganz genau NICHTS ist hier falsch.
Ich habe hier meine Methode gepostet du konntest deine Posten hast es aber nicht getan und lese bitte den Thread nochmal genau durch.
Ich habe das Tutorial genau so erkl�rt und wollte NICHT das hier etwas von wegen einer anderen Methode usw. gepostet wird .
Mich nervt es einm�hlig das hier manche meinen zu Posten das er das Tut schlecht findet vom Source aus obwohl er funktionst�chtig ist.
Wie Bartholo mal sagte
Selbst schreiben -> Releasen -> Beschweren.

PS.: Ich kann Kritik vertragen jedoch nicht wenn die Threadregeln gebrochen werden.

Mfg

08/22/2012 19:24 Mr.Tr33#4

Naja, ich habe gerade keine Lust drauf ein zu gehen, weil ich gleich weg muss.
Mach was du richtig findest, so sollte man es aber keinem beibringen wenn man schon jemanden was beibringen m�chte ...

08/22/2012 19:30 xXKonaXx#5

Quote:

Originally Posted by Mr.Tr33

Schlechtes Tutorial ;)
Also indirekt :D Ich habe es nicht durchgelesen und nur die Beispielscripte angeguckt.
Wenn man schon eine GUI hat, warum baut man nicht gleich Start/Stop und Exit Buttons ein? Hotkeyset w�ren in deinem Fall unn�tig ;)
Ich helfe momentan [Only registered and activated users can see links. Click Here To Register...] bei AutoIt (mein Sch�ler :P) und er w�rde ein besseres Script, mit dem selben Funktionen und kleinerem Aufwand hinlegen, wenn er sich bem�ht :P

Desweiterem ist dies hier der falsche Bereich daf�r und man sollte jemanden nicht was "falsches" beibringen, wenn es auch richtig geht ...

1.Hotkey's sind bei Bots viiiiiieeel handlicher als Buttons.
2.GUI's werden verwendet damit der User eingaben machen kann(Deswegen auch [G]raphical [U]ser [I]nterface), was in diesem Fall auch n�tig ist.
3.Jeder hat seinen eigenen Schreibstyle, der vielleicht nicht der beste ist aber dennoch funktioniert.
4.Was willst du f�r ein "Lehrer" sein? :facepalm:
Lass deine unausgereifte Kritik bitte bei dir.

@Samulau
Ich bin der Meinung das dein Tutorial gut ist, weil du die einzelnen Codeabschnitte recht gut erkl�rst und du mal etwas Abwechslung in diese Forumabteilung bringst.

08/22/2012 20:24 Samulau#6

Ich freue mich das jemand meine Arbeit zu sch�tzen wei� ,wei� was man damit anfangen kann und auch wei� das es v�llig richtig ist.
Ich finde es auch gut das du "Abwechslung" einbringst da ich hier eh nie TuT�s von irgendwas sehe.Also solltet ihr mal froh sein ,dass ich �berhaupt mal ein TuT release.
Achja
@Mr.Tr33
Wieso ist dies hier der falsche Bereich ?
Dachte es w�re richtig korrigiert mich wenn ich hier falsch bin und wo es eigentlich hin muss.Wenn mir jemand mit AutoIT Section kommt neh :P Istn NosTale Tut.

08/22/2012 20:59 Δbraxas#7

Ich habs mir jetzt nicht genau durchgelesen, aber was unterscheidet das von einem Normalen Bot? Es wird ja nur eine bestimmte Taste in einem Zeitintervall gedr�ckt, oder?
W�re es nicht kl�ger die HP auszulesen und bei x% zu potten?

08/22/2012 22:27 Furkiii#8

Zuuuuu aufwandvoll ....

Inputbox -> Zeit reinschreiben ---> In Bot einbauen ---> Fertig

Sollte ein script nicht �ber 20 Zeilen sein

08/22/2012 22:49 Samulau#9

Lest den ersten post ich m�chte nichts von einer anderen methode wissen und dabei ist nichts zeitaufwendig wenn du den code einmal richtig gelesen hast und sieht zuvleich auch nicht schlecht aus
Released eure tuts ich meine jedoch glaube ich kaum das ihr dies machdn werdet.das mit den pointer ist auch was anderes ich wollte was zum forum beitragen und wieder diese kommentare tut von mir ... nie wieder k�nnt ihr schlaumeier machen :)
sorry schreibe auf handx

08/23/2012 11:59 Atzenkeeper#10

Ich glaub sie wollen einfach alle darauf hinaus da der Code unsauber und unn�tig verkompliziert ist.

Nehmen wir mal:

Code:

$active = 1 ;wir setzen die Variable active auf 1
If $active = 1 Then ;wenn die Variable active gleich 1 ist dann (funktion)

Was soll denn bittesch�n diese Abfrage obwohl active jedesmal vor der Abfrage auf 1 gesetzt wird ??

Zudem ist es lediglich ein Keypresser mit unn�tigen speicher Funktionen.
Was macht er er dr�ckt mit nem bestimmten Delay ne bestimmte Taste.
Also genau das selbe wie ein Leertasten Bot. W�rde man dort jetzt Leertaste angeben k�nnen w�re es genau das selbe. Die Autopot Funktion bekommt jeder hin der nen Keypresser schreiben kann also JEDER.

Und Kritik muss man auch vertragen k�nnen wenn man hier was Postet zumal du ja auch in den Credits erw�hnt werden willst :D

08/23/2012 13:27 Nestos#11

Schlechte Kritik ist nicht immer etwas schlechtes, aber so wie ihr es r�berbringt ist es wirklich unn�tze Kritik. Das ganze grenzt ja schon am Schlechtmachen.

Seit froh dass er den Anf�ngern soetwas zur Verf�gung stellt. Wenn ihr es besser k�nnt dann macht einen eigenen Thread daf�r und beweist es.

BTT:
Ich finde die Idee nicht schlecht, vorallem f�r Anf�nger ist es etwas n�tzliches.
Allerdings w�rde ich dir folgendes ans Herz legen:

Statt GUIGetMsg solltest du den GUIOnEventMode nutzen. Leichter zu handln und in meinen Augen auch machtvoller.
Versuch die HotkeySet's mit _IsPressed auszutauschen, da HotkeySet die Tasten f�r das Programm reserviert.
Dr�ck �fters in SciTE 'Strg + T' um Tidy aufzurufen, welches dein Skript seubert und somit leserlicher macht.
Gew�hn dir an vor deinen eigenen Funktionen ein '_' zu setzen, damit man schneller erkennen kann dass es sich bei der Funktion um keine native handelt.
Versuch deinen Funktionen eindeutigere Namen zu geben. Weil IniWrite_ ist nicht gerade sehr eindeutig und beinhaltet zudem noch den Namen einer nativen Methode, was bei dr�berlesen schnell zu Verwirrung f�hren kann.
While-Schleifen sind in Funktionen generell immer zu vermeiden, da sie das gesamte Skript blockieren.

Dann noch ein Fehler in deinem Skript:

Code:

Func Stop_()
    GuiCtrlSetState($Input1,$GUI_Enable)
    GuiCtrlSetState($Combo1,$GUI_Enable)
	$active = 0
	If $active = 0 Then
		While 1
			sleep(20);Schl�ft durchgehend bis das $acive auf 1 gesetzt wird
		WEnd
	EndIf
EndFunc

Das Programm kann die While-Schleife nie verlassen, weil die While-Schleife sich wiederholt solange 1 == 1 ist, was immer der Fall ist. Somit ist das Kommentar ";Schl�ft durchgehend bis das $acive auf 1 gesetzt wird" falsch, weil $active jetzt garnichtmehr ber�cksichtigt werden kann.
Au�erdem ist es eine schlechte Angewohnheit While-Schleifen in Funktionen zu verwenden, da sie wie oben gesagt das ganze Skript blockieren.
Das ganze sollte in die Hauptschleife verlegt werden, weil es wirklich nur dort Sinn macht.

Aber nette Idee auf alle F�lle. ;)

MfG,
Nestos.

08/23/2012 14:32 Samulau#12

Danke f�r die gute Kritik.
Es ist kein Fehler im Script ,da der Bot perfekt stoppt kannst es ja mal ausprobieren :)
Aber danke das andere werde ich mir zu Herzen nehmen auch wenn ich es so gelernt habe ,und wahrscheinlich dennoch weiterhin so anwenden werde.
Finde ich einfach leichter ,mein Script-style und HotKey�s verbaue ich meist in Bots da es f�r mich auch leichter ist und zudem schneller und handlicher.

08/25/2012 13:40 *-Zero-*#13

Eigendlich ganz gut gelungen das Tut, ist zwar f�r richtige Anf�nger noch etwas zu kompliziert aber sonst gut!

08/25/2012 13:46 TTPP#14

Quote:

Originally Posted by *-Zero-*

Eigendlich ganz gut gelungen das Tut, ist zwar f�r richtige Anf�nger noch etwas zu kompliziert aber sonst gut!

Dann bist du ja weit entfernt es zu verstehen!

08/27/2012 04:01 Mr.Tr33#15

Quote:

Originally Posted by *-Zero-*

Meine fans haten mal wieder ;) findsch jut ...

Mich magst du ja am aller meisten, hast du gesagt :D

/Edit:
@Samulau
Ich habe mir das ganze jetzt mal durchgelesen und dachte das ich doch etwas zu hard war. Ich sehe das du den Usern helfen m�chtest.
Ich wei� das du keine �nderungen haben m�chtest an deinem Script, aber ich kann es nicht anssehen, dass man so viele Schleifen benutzt.
Naja, ich habe es dir grob angepasst. Nun funktioniert die Gui so wie sie funktionieren soll (man kann sie �ber das X schliessen ^^) und das ganze l�uft nur noch �ber eine Schleife.
Schau es dir einfach an, ich habe so manche stellen kommentiert, aber meine Kommentare wirst du schon sehen :)

Spoiler

PHP Code:


			
#RequireAdmin
HotKeySet("{F1}","Start_");Aufrufen der Startfunktion mit F1
HotKeySet("{F2}","Stop_");=
HotKeySet("{F3}","Exit_");=


;~ #include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
;~ #include <StaticConstants.au3>
#include <WindowsConstants.au3>

Global $active = 0 ;Wir setzen die Variable active auf 0
Global $nStart = False ; =========== start "funktion", wenn auf true, dann wird gepottet, wenn auf false, dann nicht

$SaveCombo1 = IniRead(@ScriptDir & "\Save.ini", "PotButton", "", "Change")
$SaveInput1 = IniRead(@ScriptDir & "\Save.ini", "PotTime", "", "10")

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Levelbot", 277, 31, -1, -1, -1, $WS_EX_TOOLWINDOW) ; ======= x und y auf -1 setzen, sodass es zentriert ist
GUISetBkColor(0x000000)
$Label1 = GUICtrlCreateLabel("Snack benutzen:", 8, 8, 85, 17)
GUICtrlSetColor(-1, 0x00FF00)
$Combo1 = GUICtrlCreateCombo($SaveCombo1, 96, 5, 73, 25) ; ============ unn�tig, braucht keiner: ,BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "6|7|8|9")
$Input1 = GUICtrlCreateInput($SaveInput1, 176, 5, 33, 21)
$Label2 = GUICtrlCreateLabel("Sekunden", 216, 8, 53, 17)
GUICtrlSetColor(-1, 0x3399FF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$nTimer = TimerInit() ; =========== speicher aktuelle zeit zum sp�teren verwenden

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case -3 ; ========= -3 = $GUI_EVENT_CLOSE, da spaart man sich unn�tige include :)
            Exit

    EndSwitch

    If ($nStart = True) Then ; =========== Wenn die Variable $nStart auf True gesetzt wird, dann wird der Code da drunter ausgef�hrt
        If (TimerDiff($nTimer) >= 1000) Then ; ========== wenn 1000 millisekunden abgelaufen sind, dann wird der code ausgef�hrt
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1)-1);Jede Sekunde durch die Sleep die Skunden -1 Zahl setzen !
            Pot_()
            $nTimer = TimerInit() ; ========== neu setzung der zeit
        EndIf
    EndIf
WEnd

Func Start_()
    $nStart = True ; ========= variable auf true �ndern
    IniWrite_()
    IniSee()
    GuiCtrlSetState($Input1,$ES_READONLY) ; ========= was willst du eig. mit dem ganzen BitOR :D
    GuiCtrlSetState($Combo1,$ES_READONLY)
    #cs
    $active = 1 ;wir setzen die Variable active auf 1
    If $active = 1 Then ;wenn die Variable active gleich 1 ist dann (funktion)
        While 1 ;immer wiederholen

            sleep(1000);1 sekunde Abstand f�r den Timer der Sekunden
        WEnd ;schlie�en der Schleife
    EndIf ;schlie�en der If Bedingung
    #ce
EndFunc ;schlie�en der Funktion

Func Stop_()
    GuiCtrlSetState($Input1,$GUI_Enable)
    GuiCtrlSetState($Combo1,$GUI_Enable)
    $nStart = False ; ============= variable auf false setzen und es wird nicht mehr gepottet
    #cs
    $active = 0
    If $active = 0 Then
        While 1
            sleep(20);Schl�ft durchgehend bis das $acive auf 1 gesetzt wird
        WEnd
    EndIf
    #ce
EndFunc

Func Exit_()
    Exit
EndFunc

Func IniWrite_()
   IniWrite(@ScriptDir & "\Save.ini", "PotButton", "", GuiCtrlRead($Combo1)) ;In die Save.ini an die Position PotButton den Key aus Combo1 schreiben
   IniWrite(@ScriptDir & "\Save.ini", "PotTime", "", GuiCtrlRead($Input1)) ;=
EndFunc

Func IniSee()
   $SaveCombo1 = IniRead(@ScriptDir & "\Save.ini", "PotButton", "", "Change") ;Lesen der Daten aus der Combo
   $SaveInput1 = IniRead(@ScriptDir & "\Save.ini", "PotTime", "", "10") ;Lesen der Daten aus der Input
EndFunc

Func Pot_()
    If GuiCtrlRead($Input1) = "0" or "" Then ;Wenn die Input1 auf 0 f�llt dann ...
        controlsend("NosTale","","",GuiCtrlRead($Combo1)) ;An NosTale den PotButton aus der COmbo senden
        GuiCtrlSetData($Input1, $SaveInput1) ;Zur�cksetzen der Sekunden auf z.b. 10 von 0
    EndIf ;Ende der If Bedingung
EndFunc

Desweiterem w�rde ich dich bitten den Unterstrich bei Funktionen am Anfang zu setzen :P

Wenn du selbst Hilfe bei AutoIt brauchst, du kannst dich jederzeit bei mir melden. Ich helfe gerne jemanden, bei dem ich sehe das er was lernen m�chte. Also keine Angst ;)