Problem mehrere Buttons auswählen

11/17/2009 21:21 xaqua#1
Hi, ich wollte mir mal selber einen bot machen womit ich mehrere Sachen durch Buttonklick starten kann.
Soweit ist alles ok aber ein Problem gibts trotzdem:
Wenn ich einen Button anklicke wird das auch ausgeführt aber sobalt ich einen 2. dazu haben will funktioniert nur der 1. weiter. Das ist bei jedem Button so den ich dazu starten will.
Kann mir jemand da mal weiterhelfen?
Hier der Script:

#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>
Global $Paused
HotKeySet("{f9}", "TogglePause")
HotKeySet("{f10}", "exitit")

Func TogglePause()
$Paused = not $Paused
While $Paused
ToolTip("paused")
Sleep (1000)
ToolTip ("")
sleep(100)
WEnd


EndFunc

Func exitit()
Tooltip("Bis zum nächsten mal ;)")
Sleep (1000)
Exit
EndFunc ;==>exitit

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("xaqua-bot", 250,300,0)
GUISetBkColor(0xE5FFFF)
$Label1 = GUICtrlCreateLabel ("© xaqua-bot", 150,20 ) ;Label
$Label3 = GUICtrlCreateLabel ("<--Vorher Moblock starten!", 100, 97 ) ;Label
$Label3 = GUICtrlCreateLabel ("HP+MP (1,2)", 167, 137 ) ;Label
$Label3 = GUICtrlCreateLabel ("Pause = F9", 5, 230) ;Label
$Label3 = GUICtrlCreateLabel ("Beenden = F10", 5, 255) ;Label
$Button2 = GUICtrlCreateButton( "Auto Fertigkeiten", 10, 90)
$Button3 = GUICtrlCreateButton( "Auto Hit", 10, 130)
$Button4 = GUICtrlCreateButton( "Hilfe", 10, 170)
$Button6 = GUICtrlCreateButton( "Auto Potion", 100, 130)
$Button7 = GUICtrlCreateButton( "Auto Pickup", 100, 170)
GUISetState ()
#EndRegion ### END Koda GUI section ###




While 1
$MSG = GUIGetMsg()

Select
Case $MSG = $GUI_EVENT_CLOSE
Exit
Case $MSG = $Button2
While (10)
Sleep (100)
Send ("{F1}")
Sleep (100)
Send ("{F2}")
Sleep (100)
Send ("{F3}")
Sleep (100)
Send ("{F4}")
WEnd
Case $MSG = $Button3
While (10)
Send ("{SPACE DOWN}")
Sleep (100)
WEnd
Case $MSG = $Button4
Tooltip("Hallo")
sleep ( 3000 )
Tooltip("Fragen einfach in dem Thread von Elitepvpers posten")
sleep ( 3000 )
Tooltip("Viel Spaß weiterhin noch mit xaqua-bot")
sleep ( 3000 )
Tooltip("")
Sleep (100)
Case $MSG = $Button6
While (10)
Sleep (500)
Send ("1")
Send ("2")
WEnd
Case $MSG = $Button7
While (10)
Sleep(200)
Send ("y")
WEnd
EndSelect
WEnd
Exit
11/18/2009 00:07 pzyhô#2
so müsste es eig gehen:

Code:
While 1
$MSG = GUIGetMsg()

Select
	Case $MSG = $GUI_EVENT_CLOSE
			Exit
	Case $MSG = $Button2
		Sleep (100)
		Send ("{F1}")
		Sleep (100)
		Send ("{F2}")
		Sleep (100)
		Send ("{F3}")
		Sleep (100)
		Send ("{F4}")

	Case $MSG = $Button3

		Send ("{SPACE DOWN}")
		Sleep (100)

	Case $MSG = $Button4
		Tooltip("Hallo")
		sleep ( 3000 )
		Tooltip("Fragen einfach in dem Thread von Elitepvpers posten")
		sleep ( 3000 )
		Tooltip("Viel Spaß weiterhin noch mit xaqua-bot")
		sleep ( 3000 )
		Tooltip("")
		Sleep (100)
		
	Case $MSG = $Button6

		Sleep (500)
		Send ("1")
		Send ("2")

Case $MSG = $Button7
		
		Sleep(200)
		Send ("y")

EndSelect
WEnd
Exit
MFG: ._.Sunny._.
11/18/2009 07:24 xaqua#3
hm... funktioniert immer noch nicht jetzt widerholt der sogar net mehr die einzelnen funktionen...

weiß da jemand noch was?
11/18/2009 10:51 Shadow992#4
Quote:
Originally Posted by xaqua View Post
hm... funktioniert immer noch nicht jetzt widerholt der sogar net mehr die einzelnen funktionen...

weiß da jemand noch was?
Also , dieses Problem wirst du mit AutoIT alleine nie so gelöst bekommen , wie du es dir vorstellst , da an dieser Stelle mit mindestens 2 Threads gearbeitet werden müsste . Leider kann AutoIT aber keine Threads erstellen , es gibt eine Funktion die versucht einen Thread nachzuahmen , aber so wirklich funktionieren tut das nicht , da der Rest vom Code während diese Funktion ausgeführt wird , gestoppt wird .

Ich habe trotzdem mal versucht wenigstens annähernd eine Lösung für dein Problem zu finden , es gibt keine Syntax errors , aber ich habe nicht ausprobiert ob der Code funktioniert (theoretisch müsste er) .

PHP Code:

#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>

Global $Funktion[4]
Global $Paused

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("xaqua-bot", 250,300,0)
GUISetBkColor(0xE5FFFF)
$Label1 = GUICtrlCreateLabel ("© xaqua-bot", 150,20 ) ;Label
$Label3 = GUICtrlCreateLabel ("<--Vorher Moblock starten!", 100, 97 ) ;Label
$Label3 = GUICtrlCreateLabel ("HP+MP (1,2)", 167, 137 ) ;Label
$Label3 = GUICtrlCreateLabel ("Pause = F9", 5, 230) ;Label
$Label3 = GUICtrlCreateLabel ("Beenden = F10", 5, 255) ;Label
$AllesAusschalten = GUICtrlCreateButton( "Alles Ausschalten", 10, 10)
$Button2 = GUICtrlCreateButton( "Auto Fertigkeiten", 10, 90)
$Button3 = GUICtrlCreateButton( "Auto Hit", 10, 130)
$Button4 = GUICtrlCreateButton( "Hilfe", 10, 170)
$Button6 = GUICtrlCreateButton( "Auto Potion", 100, 130)
$Button7 = GUICtrlCreateButton( "Auto Pickup", 100, 170)
GUISetState ()
#EndRegion ### END Koda GUI section ###
HotKeySet("{f9}", "TogglePause")
HotKeySet("{f10}", "exitit")
AdlibEnable("Funktionen",100)

While 1
$MSG = GUIGetMsg()

Select

Case $MSG = $GUI_EVENT_CLOSE
Exit
Case $MSG = $AllesAusschalten
For $i=0 to 3
    $Funktion[$i]=0
Next
        Tooltip("Es wurden alle Funktionen deaktiviert , um sie wieder zu starten muss nur auf den jeweiligen Button gedrückt werden")
        sleep ( 8000 )
        Tooltip("")
Case $MSG = $Button2
$Funktion[0]=1
Case $MSG = $Button3
$Funktion[1]=1
Case $MSG = $Button4
        Tooltip("Hallo")
        sleep ( 3000 )
        Tooltip("Fragen einfach in dem Thread von Elitepvpers posten")
        sleep ( 3000 )
        Tooltip("Viel Spaß weiterhin noch mit xaqua-bot")
        sleep ( 3000 )
        Tooltip("")
        Sleep (100)
Case $MSG = $Button6
$Funktion[2]=1
Case $MSG = $Button7
$Funktion[3]=1
EndSelect
WEnd

func Funktionen()
    AdlibDisable()
    If $Funktion[0]=1 Then
        Sleep (100)
        Send ("{F1}")
        Sleep (100)
        Send ("{F2}")
        Sleep (100)
        Send ("{F3}")
        Sleep (100)
        Send ("{F4}")
    EndIf

    If $Funktion[1]=1 Then
        Send ("{SPACE DOWN}")
        Sleep (100)
    EndIf



    If $Funktion[2]=1 Then
        Sleep (500)
        Send ("1")
        Send ("2")
    EndIf

    If $Funktion[3]=1 Then
        Sleep(200)
        Send ("y")
    EndIf
    AdlibEnable("Funktionen",100)
EndFunc

Func TogglePause()
$Paused = not $Paused
While $Paused
ToolTip("paused")
Sleep (1000)
ToolTip ("")
sleep(100)
WEnd


EndFunc

Func exitit()
Tooltip("Bis zum nächsten mal ")
Sleep (1000)
Exit
EndFunc ;==>exitit 
11/18/2009 16:24 xaqua#5
sauber funktioniert nun alles =)
vielen dank!

p.s. danke auch für den ausschalt button ;)
11/18/2009 18:46 Shadow992#6
Quote:
Originally Posted by xaqua View Post
sauber funktioniert nun alles =)
vielen dank!

p.s. danke auch für den ausschalt button ;)
Kein Problem :D