Bot Problem

02/24/2010 19:53 ´Romka#1
Hallo
ich bin ein neuling in sachen AutoIt.
Ich wolte mal was ausprobieren aber ich habe ein Problem
Code:
#include <GUIConstants.au3>  
$Form1 = GUICreate("PicUp Bot by .FreakY", 250, 250, 200, 200)
$Button1 = GUICtrlCreateButton("AN ", 45, 23, 161, 33, 0)
$Button2 = GUICtrlCreateButton("AUS", 45, 59, 161, 33, 0)
$Button3 = GUICtrlCreateButton("An", 45, 135, 161, 33, 0)
$Button4 = GUICtrlCreateButton("Aus", 45, 175, 161, 33, 0)
$label1=GuiCtrlCreateLabel("PicUp",110,2,100,15)
$label2=GuiCtrlCreateLabel("AutoAtack",100,115,101,15)
GUISetState(@SW_SHOW) 
guictrlsetstate($button2,$gui_disable)
guictrlsetstate($button4,$gui_disable)
$state = false 
While 1
	$nMsg = GUIGetMsg() 
	Switch $nMsg 
		Case $GUI_EVENT_CLOSE 
			Exit 
		case $button3  
			guictrlsetstate($button3,$gui_enable) 
			guictrlsetstate($button4,$gui_disable)
			$state = true 
			ToolTip("") 
		case $button4
			guictrlsetstate($button4,$gui_enable) 
			guictrlsetstate($button3,$gui_disable)
			$state = false
		EndSwitch
		if $state =true then
			send ("{*}")
			sleep(10)
		endif
		WEnd
While 1
	$nMsg = GUIGetMsg() 
	Switch $nMsg 
		Case $GUI_EVENT_CLOSE 
		case $button1
			guictrlsetstate($button2,$gui_enable)
			guictrlsetstate($button1,$gui_disable) 
			ToolTip("") 
			$state = true 
		case $button2 
			guictrlsetstate($button1,$gui_enable) 
			guictrlsetstate($button2,$gui_disable)
			$state = false 
		EndSwitch 
		if $state = true Then 
			send("{^}")
			send("{y}")
			sleep(10) 
		endif 
		
WEnd
Ich will das es so machen, das wen ich PicUp anmache er halt ^y drückt.
Wenn ich auf Aus drücke er stoppen soll.
Genau so ie bei autoatack, nur da soll er die LERTASTE drücken
02/27/2010 22:49 KDeluxe#2
Das muss schon in einer Schleife sein und die Leertaste ist in AutoIt {SPACE}

Ich habs mal ganz einfach gelöst:
PHP Code:
$Form1 = GUICreate("PicUp Bot by .FreakY", 250, 100)
$Button1 = GUICtrlCreateButton("AN ", 45, 23, 161, 33, 0)
$Button2 = GUICtrlCreateButton("AUS", 45, 59, 161, 33, 0)
$Label1=GuiCtrlCreateLabel("Auto Attack / PicUp", 105,2,100,15)
GUISetState(@SW_SHOW)

While True
    $msg = GUIGetMsg()
    Switch $msg
        Case -3
            Exit
        Case $Button1
            Do
                Send("^y")
                Sleep(10)
                Send("{SPACE}")
                Sleep(10)
            Until GUIGetMsg() = $Button2
    EndSwitch
WEnd 
02/28/2010 11:07 | Moep |#3
Hotkeys FTW?!

Code:
Global $pickUp,$autoAttack
HotKeySet("{F1}", "TogglePickUp")
HotKeySet("{F2}", "ToggleAutoAttack")

While 1
    Sleep(100)
WEnd

Func TogglePickUp()
    $pickUp = NOT $pickUp
    $autoAttack = false
    While $pickUp
        sleep(100)
	Send("{^}")
	Send("y")
        ToolTip("PickUp "&$pickUp&@CRLF&"AutoAttack "&$autoAttack,0,0)
    WEnd
    ToolTip("PickUp "&$pickUp&@CRLF&"AutoAttack "&$autoAttack,0,0)
EndFunc

Func ToggleAutoAttack()
    $autoAttack = NOT $autoAttack
    $pickUp = false
    While $autoAttack
        sleep(100)
	Send("{SPACE}")
        ToolTip("PickUp "&$pickUp&@CRLF&"AutoAttack "&$autoAttack,0,0)
    WEnd
    ToolTip("PickUp "&$pickUp&@CRLF&"AutoAttack "&$autoAttack,0,0)
EndFunc
Mit F1 und F2 startest du deine Loot und Attack Sequenzen... ;)