[HOWTO]DinarBot mit einem Fenster !

03/10/2012 05:54 _[I]nvisible_#1
Hallo leute ihr kennt bestimmt alle Wallers Thread wo man einen einfachen DinarBot coded ! Habe mir mal gedacht ich mache ein TuT wie man einen DinarBot in ein zusätzliches Fenster bekommt .
Aufbau :
1. Downloads
2. Koda+Erklärung
3. DinarBot in die GUI einfügen
4. Ende

1. Downloads :
1. AutoITv3 : [Only registered and activated users can see links. Click Here To Register...]
2. KodaFormDesigner :[Only registered and activated users can see links. Click Here To Register...]
3. Net FrameWork4 (Glaube ihr habt es bereits): [Only registered and activated users can see links. Click Here To Register...]
2. Koda+Erklärung :
Zuerst Startet ihr Koda und sieht es direkt :
[Only registered and activated users can see links. Click Here To Register...]
Nun sieht ihr Links unten ein Fenster namens : Object Inspector
In der Box bei Caption könnt ihr euren Fensternamen eingeben !
Bei Color eure Hintergrundfrabe und bei Icon könnt ihr natürlich euer Icon auswählen ! Jedoch komme ich später nochmal auf euer Icon zurück also nichts voreilig auswählen !
Hier in dieser Zeile :
[Only registered and activated users can see links. Click Here To Register...]
Könnt ihr Sachen auswählen z.b das Icon OK anklicken und dann eure Form . Nun habt ihr einen Button in eurer Form den Ihr beliebig verschieben ,vergrößer könnt und dem Button könnt ihr auch eine Farbe und einen Namen geben wie bei der Form ! Bei dem dicken A könnt ihr einen Label erstellen wo ihr beliebig einen Taxt schreiben Könnt z.b die überschrift und den könnt ihr vergrößern indem ihr bei Font das Pluszeichen anklickt und die Size : 8 auf z.b Size : 14 verändert ! Die Farbe könnt ihr am besten dann bei Font unter Color verändern ! Ihr könnt auch mit Koda rumspielen (habe ich auch früher gemacht) damit ihr eure Form beliebig umgestalten könnt ! Um jedoch jedes Icon richtig benutzen zu können müsst ihr alle Grundlagen kennen zu AutoIT die findet ihr hier :
[Only registered and activated users can see links. Click Here To Register...]
Wenn ihr eure Form nun fertig umgestylt habt klickt ihr auf diese Zeichen :
[Only registered and activated users can see links. Click Here To Register...]

Um eure Form auszuführen oder den Code davon zu bekommen !
Diesen fügt ihr in eine Au3 Datei ein ! Meiner ist zum Beispiel jetzt so :
Code:
Code:
HotKeySet("{F1}","Start_") ; Wir setzen ein HotKeySet ! Wenn der Knopf F1 gedrükt wird ,wird die Funktion Start_ aktiviert !
HotKeySet("{F2}","Pause")
HotKeySet("{X}","Beenden_")

Global $Aktive = 0 ; Wir setzen die Aktivität des Bottes auf NULL !


#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("DinarBot", 182, 154, 193, 125)
$Button1 = GUICtrlCreateButton("HotKeys", 8, 88, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Credits", 96, 88, 75, 25, 0)
$Button3 = GUICtrlCreateButton("Seite", 48, 120, 75, 25, 0)
$Label1 = GUICtrlCreateLabel("DinarBot", 8, 8, 116, 36)
GUICtrlSetFont(-1, 20, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Tutorial", 104, 48, 66, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1 
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			msgbox(0,"HotKeys","F1 Start,F2 Pause,X Exit")
		Case $Button2
			msgbox(0,"Credits","Tutorial by .Bl0w")
		Case $Button3
			shellexecute("http://google.de") 

	EndSwitch
WEnd 

Func Start_() ; Die Funktion wird gestartet
	$Aktive = 1 ; Die Aktivität wird auf 1 Gesetzt
	If $Aktive = 1 Then ;wenn die Aktivität auf 1 ist öffnet sich eine Funktion
		While 1 ;Schleife zur wiederholung der Funktion wird geöffnet
			mouseclick("LEFT",x,y);Drückt den StartKnopf in WarRock !
			sleep(100);wartet 100 Milisekunden ! Weniger abstürtze !
			mouseclick("LEFT",x,y);Klickt OK bei der Charakterauswahl INgame
			sleep(100)
			mouseclick("LEFT",x,y);Drückt Back To Lobby wenn das Game vorbei ist !
			sleep(100)
		WEnd ;Die Schleife wird geschlossen
	EndIf ;Die If Schleife wird geschlossen
EndFunc ;Die Funktion wird geschlossen

Func Pause_()
	$Aktive = 0 ;Aktivität wird auf 0 gesetzt
	If $Aktive = 0 Then
		While 1
			sleep(400) ; Der bot wartet 400 Millisekunden die ganze Zeit so kann der Bot nicht weiter Botten
		WEnd
	EndIf
EndFunc

Func Beenden_()
	$Aktive = 2 ; Aktivität wir auf 2 gesetzt
	If $Aktive = 2 Then
		Exit ;Programm wird beenden (dein Bot)
	EndIf
EndFunc
o sollte unser ganze Code auch aussehen und wenn wir denn Bot mit den Richtigen Coordinaten starten (sonst kommen errors)
[Only registered and activated users can see links. Click Here To Register...]


Wenn ihr es mögt klickt doch bitte Thanks und unterlasst den Spam mit Nice oder Thanks !

Dieser Text ist 100% selfmade ! Die Bilder auch !
PS : Um die Coordinaten raus zu finden öffnet ihr die AutoIT Window Help.exe und startet warrock nun könnt ihr mit der "Crosshair" die Coordinaten herausfinden und bei Mouse anzeigen lassen !
03/12/2012 10:05 Rentrix#2
Schön und gut aber closerequest da TEST gebannt ist.
03/13/2012 15:41 GameCrime#3
Hmz . Irgendwie merkwürdig oder ? :P
[Only registered and activated users can see links. Click Here To Register...]
Klau nächstes mal lieber woanders .
03/13/2012 17:03 Drache153™#4
Unnötig da es nichtmehr funktioniert.
Weil man kein 50 Dinar mehr bekommt.