Nostale bot

08/14/2010 13:08 takenso#1
so hallo erstmal ^^
ich
ich hab mich vor kurzem mit Autoit angefreundet und mal versucht einen Nostale piibot (auto klicker) zu machen und zwar mit mehreren Funktionen (er drückt die Leertaste oder die Z taste was man halt auswählt und er hebt nebenbei automatisch in der nähe rumliegende Items auf^^) erstmal hab ich den bot mit den Tutorials und einigen Sachen die ich hier im Forum gefunden Gecodet danach wollte ich das etwas übersichtlicher machen und habe ein GUI (Graphical User Interface)
[Only registered and activated users can see links. Click Here To Register...]
eingebaut es läuft auch eigentlich alles alle Buttons und die Funktionen jetzt kommt ein kleiner Fehler wo ich nicht weis wie ich den beheben kann und zwar wen ich einen der Buttons anklicke fängt der bot an zu arbeiten ABER ich kann ihn dann nicht mehr durch den Schließen Button zu machen bzw ich kann nicht zwischen der Funktion Leertaste und Z wechseln. Ich kann ihn dann nur über Prozess beenden schließen.
Da wollte ich mal fragen ob mir wer bei dem Problem helfen könnte.

1. Der bot sollte beim klick auf die Buttons die Funktionen ändern können. Damit ist gemeint während er ausgeführt wird das man zwischen Leertaste und Z Taste wechseln kann.(in meinem Fall geht das nicht)
2.Der bot könnte eine pause Funktion über ein Hotkey vertragen.

Code:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Pii Bot", 194, 195, 381, 189)
$Button1 = GUICtrlCreateButton("Leertasten Bot Starten", 8, 8, 177, 41)
$Button2 = GUICtrlCreateButton("Z Tasten Bot Starten", 8, 56, 177, 41)
$Button3 = GUICtrlCreateButton("Schließen (Turn OFF)", 8, 104, 177, 33)
$Button4 = GUICtrlCreateButton("INFO", 16, 152, 81, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			While 1
	ControlSend("NosTale", "", 0, "{Space}")
	Sleep (300)
	ControlSend("NosTale", "", 0, "{X}")
	Sleep (500)
WEnd
Exit
		Case $Button2
			While 1
	ControlSend("NosTale", "", 0, "{Z}")
	Sleep (300)
	ControlSend("NosTale", "", 0, "{X}")
	Sleep (500)
WEnd
Exit
		Case $Button4
			MsgBox (0,"Info","Der Bot drückt Entweder die Leertaste oder die Z Taste zum Angreifen (Je nach auswahl). Nebenbei hebt er Automatisch die items auf!  Viel Spaß damit :P")
		Case $Button3
	Exit
	EndSwitch
WEnd
wen mir wer helfen könnte wäre ich sehr dankbar
MfG Takenso
PS: wer Rechtschreibfehler findet darf sie gerne Gratis behalten :P
Edit: tu noch alle daten in eine zip rein dan könnt ihr euch das vieleicht genauer angucken [Only registered and activated users can see links. Click Here To Register...]
08/17/2010 01:11 takenso#2
*Push* kennt den keiner eine lösung dafür :( ich hätt ja wenigstens eine kleine antwort erwartet <,<
08/17/2010 13:59 Semih89335#3
soll ich dir ein tipp geben tu mal den link rein dan könens andere mal irgendvie in den daten rumschau :)
08/17/2010 14:11 -Arkian-#4
Quote:
Originally Posted by takenso View Post
Code:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
[COLOR="Red"][B]$Form1_1 = GUICreate("Pii Bot", 194, 195, 381, 189)
$Button1 = GUICtrlCreateButton("Leertasten Bot Starten", 8, 8, 177, 41)
$Button2 = GUICtrlCreateButton("Z Tasten Bot Starten", 8, 56, 177, 41)
$Button3 = GUICtrlCreateButton("Schließen (Turn OFF)", 8, 104, 177, 33)
$Button4 = GUICtrlCreateButton("INFO", 16, 152, 81, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
[/B][/COLOR]
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			While 1
	ControlSend("NosTale", "", 0, "{Space}")
	Sleep (300)
	ControlSend("NosTale", "", 0, "{X}")
	Sleep (500)
WEnd
Exit
		Case $Button2
			While 1
	ControlSend("NosTale", "", 0, "{Z}")
	Sleep (300)
	ControlSend("NosTale", "", 0, "{X}")
	Sleep (500)
WEnd
Exit
		Case $Button4
			MsgBox (0,"Info","Der Bot drückt Entweder die Leertaste oder die Z Taste zum Angreifen (Je nach auswahl). Nebenbei hebt er Automatisch die items auf!  Viel Spaß damit :P")
		Case $Button3
	Exit
	EndSwitch
WEnd
wen mir wer helfen könnte wäre ich sehr dankbar
MfG Takenso
PS: wer Rechtschreibfehler findet darf sie gerne Gratis behalten :P
Guck dir das rot makierte mal an.. vielleicht liegts ja daran.
08/17/2010 15:04 takenso#5
hab mir das rot markierte mal angeschaut werde aber auch nicht schlau draus bin so gut mit Autoit auch nicht vertraut vor allem hab den Code von Koda bekommen ich denke mal nicht das Koda Fehler machen würde oder ô.o ?
11/28/2010 00:34 Amarun24#6
-closed-
11/28/2010 10:29 Δbraxas#7
Quote:
Originally Posted by Amarun24
-closed-
Ähm... Du weisst schon dass du den Thread nicht schließen kannst...
Und warum pushst du diesen Thread auch noch? Der war schon Monate alt....

Das gibt ein #reported xD
11/28/2010 13:09 Lighthex#8
Ehm der Fehler liegt einfach daran das du den Bot nicht mehr auf das Gui achten lässt du hast eine While Schleife und in der Nocheine also macht er eine tat so lange bis die Bedingung nicht erfüllt ist und 1 ist nie erfüllt ...
Kurz gesagt so muss es sein ...:
PHP Code:
#RequireAdmin
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$startleerstate="no" ; damit es überhaupt definiert ist
$startztaste="no" ;damit es überhaupt definiert ist 
#Region ### START Koda GUI section ### Form= ;kein Fehler im Gui ;)
$Form1_1 = GUICreate("Pii Bot", 194, 195, 381, 189)
$Button1 = GUICtrlCreateButton("Leertasten Bot Starten", 8, 8, 177, 41)
$Button2 = GUICtrlCreateButton("Z Tasten Bot Starten", 8, 56, 177, 41)
$Button3 = GUICtrlCreateButton("Schließen (Turn OFF)", 8, 104, 177, 33)
$Button4 = GUICtrlCreateButton("INFO", 16, 152, 81, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            If $startleertaste = "no" Then
                $startleertaste = "yes"
            ElseIf $startleertaste = "yes" Then
                $startleertaste = "no"
            EndIf
        Case $Button2
            If $startztaste = "no" Then
                $startztaste = "yes"
            ElseIf $startztaste = "yes" Then
                $startztaste = "no"
            EndIf
        Case $Button4
            MsgBox(0, "Info", "Der Bot drückt Entweder die Leertaste oder die Z Taste zum Angreifen (Je nach auswahl). Nebenbei hebt er Automatisch die items auf!  Viel Spaß damit :P")
        Case $Button3
            Exit
    EndSwitch
    If $startleertaste = "yes" Then ; wenn leerstaste benutzt werden soll dann kann man nicht gleichzeitig Z benutzen ... Trick bei ElseIf ;)
        Leertaste()
    ElseIf $startztaste = "yes Then
        ZTaste()
    EndIf
WEnd

Func Leertaste() ; lieber zwei Funktionen für das Botten
    ControlSend("NosTale", "", 0, "{SPACE}")
    Sleep(300)
    ControlSend("NosTale", "", 0, "{X}")
    Sleep(500)
EndFunc   ;==>Leertaste
Func ZTaste() ; lieber zwei Funktionen für das Botten
    ControlSend("NosTale", "", 0, "{Z}")
    Sleep(300)
    ControlSend("NosTale", "", 0, "{X}")
    Sleep(500)
EndFunc   ;==>ZTaste 
Wir benutzen die While Schleife die schon fürs Überwachen des Gui gibt ...
Wichtig auserhalb des Switch ....
Und jetzt funktionieren die Buttons auch ;)

Fehler in deinem Script :
PHP Code:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Pii Bot", 194, 195, 381, 189)
$Button1 = GUICtrlCreateButton("Leertasten Bot Starten", 8, 8, 177, 41)
$Button2 = GUICtrlCreateButton("Z Tasten Bot Starten", 8, 56, 177, 41)
$Button3 = GUICtrlCreateButton("Schließen (Turn OFF)", 8, 104, 177, 33)
$Button4 = GUICtrlCreateButton("INFO", 16, 152, 81, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            While 1 ; Wenn hier eine While Schleife in einer While Schleife startet dann wird auf die erste While Schleife nicht mehr geachtet und in dieser While Schleife wird auf die Button geachtet ....
    ControlSend("NosTale", "", 0, "{Space}")
    Sleep (300)
    ControlSend("NosTale", "", 0, "{X}")
    Sleep (500)
WEnd
Exit
        Case $Button2
            While 1 ; Wenn hier eine While Schleife in einer While Schleife startet dann wird auf die erste While Schleife nicht mehr geachtet und in dieser While Schleife wird auf die Button geachtet ....
    ControlSend("NosTale", "", 0, "{Z}")
    Sleep (300)
    ControlSend("NosTale", "", 0, "{X}")
    Sleep (500)
WEnd
Exit
        Case $Button4
            MsgBox (0,"Info","Der Bot drückt Entweder die Leertaste oder die Z Taste zum Angreifen (Je nach auswahl). Nebenbei hebt er Automatisch die items auf!  Viel Spaß damit :P")
        Case $Button3
    Exit
    EndSwitch
WEnd 
Benutz lieber ma bitte Tidy bevor du es postest so ist das viel zu unübersichtlich...
Benutzt #RequireAdmin dann müssen Vista User nicht nochmal rechtsklick ...

Sry wenn rechtschreibfehler sind ich musste das auf die schnelle schreiben :D