Kleines Autoit Totorial

03/19/2010 17:18 .Die#1
AutoIT Grundlagen für anfänger

Hallo ich setze ma lein kleines
totorial rein , für AutoIT

Fangen wir mal an :

wir scripten jetzt mal einen kleinen Bot
erstmal ein Hotkeyset. das is dazu geeignet
wenn man dann die eingegebende Taste drückt
fängt der Bot/programm an zu arbeiten.

script:
HotKeySet ( "{F7}" , "Start" ) ; Der Taste Numpad7 ist nun die Info Start hinzugefügt
HotKeySet ( "{F8}" , "Ende" ) ; Der Taste Numpad8 ist nun die Info Ende hinzugefügt

dann kommt der befehl while 1 das heißt Endlosschleife anfang und 1 für an.
dann kommt der befehl sleep Überprüft jetzt 0,5 Sek ob die oben genannten Tasten/Infos gedrückt worden sind
dann der befehl send der drückt für euch immer die Taste die ihr eingeben habt

dann kommt der befehl WEnt Wend ; gehört immer dazu wen du ein While machst
und dann komm noch der EndFunc ; Beendet den Func wie der name schon sagt:D

Func Ende () ;Das Ziel für die Info ende
Exit ; Programm beendet sich

also so ein script sieht dann so aus wenn es fertig is :


HotKeySet ( "{F7}" , "Start" )
HotKeySet ( "{F8}" , "Ende" )

while 1
sleep(500)
wend;

Func Start ()
While (1)
Send("y")
Sleep (500)
Wend

EndFunc
Func Ende ()
Exit
EndFunc

Updates Folgen , Andere Funktion kommen noch ;)

2. Nun Kommen wir zu einer Form, einige Fragen immer wie hat Marcopolo dieses kleine kästchen gemacht mit den ganzen einstellungen?

Hier das Script bloß die Funktionen müssen noch Hinzugefügt werden

#include <GUIConstants.au3>


$Form1 = GUICreate("Elitepvpers", 387, 219, 286, 177)
GUISetBkColor(0xFFFF00)
$Label1 = GUICtrlCreateLabel("Pickup Bot", 136, 8, 103, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Pickup Bot Starten", 56, 176, 265, 33, 0)
$Label2 = GUICtrlCreateLabel("Funktionen müssen noch Hinzugefügt werden und Naürlich eine kleine Anleitung", 0, 72, 385, 17)
GUISetState(@SW_SHOW)


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd


3. Jetzt Kommen wir zur Checkbox hier ein kleines Script:

#include <GUIConstants.au3>

$Form1 = GUICreate("Elitepvpers", 387, 219, 286, 177)
GUISetBkColor(0xFFFF00)
$Checkbox1 = GUICtrlCreateCheckbox("Yangsammler", 24, 32, 169, 49)
$Checkbox2 = GUICtrlCreateCheckbox("Autopickup", 24, 96, 153, 33)
$Checkbox3 = GUICtrlCreateCheckbox("Zoom Hack", 240, 48, 97, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Walk hack", 240, 104, 97, 17)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd


4. Jetzt kommen wir zur einer Text eingabe:

#include <GUIConstants.au3>

$Form1 = GUICreate("Elitepvpers", 300, 166, 346, 235)
GUISetBkColor(0xFF0000)
GUICtrlCreateInput("", 24, 64, 217, 21)
$Label1 = GUICtrlCreateLabel("Text eingeben der gesendet werden soll", 24, 24, 193, 17)
$Button1 = GUICtrlCreateButton("Senden", 40, 120, 185, 33, 0)
$Label2 = GUICtrlCreateLabel("Funktionen müssen noch Hinzugefügt werden!!!", 32, 96, 230, 17)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd


5. Jetzt Kommen wir zur einem Auwähle Punkt : Script:
#include <GUIConstants.au3>

$Form1 = GUICreate("Elitepvpers", 265, 270, 397, 213)
GUISetBkColor(0xFF0000)
GUICtrlCreateCombo("", 24, 88, 145, 25)
GUICtrlSetData(-1, "Vollmondschwert|Roteisenklinge|elitepvpers.com ")
$Label1 = GUICtrlCreateLabel("Wähle aus:", 24, 48, 58, 17)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd
03/19/2010 17:19 NeonBlue#2
das gehört eher in die coding sektion und ich glaube das es schon solche ähnliches tuts schon gab.
03/19/2010 21:38 .Die#3
Quote:
Originally Posted by NeonBlue View Post
das gehört eher in die coding sektion und ich glaube das es schon solche ähnliches tuts schon gab.
Link?
03/19/2010 21:44 Bayolein#4
Für den Anfang nicht schlecht aber da ich nicht weiß ob es solche TuTs schon gab erstmal kein Thx =D Wenns das noch nich gab dann bekommste Lorbeeren^^
03/19/2010 21:51 Daunenjacke#5
[Only registered and activated users can see links. Click Here To Register...]
03/19/2010 21:52 Bayolein#6
Oh na ich geb dir trotzdem Thanks für Mühe xDD