ulti
Active Members-
Posts
28 -
Joined
-
Last visited
ulti's Achievements
Seeker (1/7)
0
Reputation
-
Thank you, it works for the slider value it seams. but i was trying to use the same thing to check if the check box is checked and it wouldnot work the same? #include<misc.au3> #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <SliderConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form=C:UsersBeastDesktopForm1_1.kxf $Form1_1 = GUICreate("Form1", 448, 198, 257, 122) $Button1 = GUICtrlCreateButton("1", 32, 48, 49, 33) $Button2 = GUICtrlCreateButton("2", 144, 48, 49, 33) $Button3 = GUICtrlCreateButton("3", 248, 48, 49, 33) $Button4 = GUICtrlCreateButton("4", 360, 48, 49, 33) $Slider1 = GUICtrlCreateSlider(0, 120, 105, 33) GUICtrlSetLimit(-1, 10000, 50) GUICtrlSetData(-1, 50) $Slider2 = GUICtrlCreateSlider(112, 120, 105, 33) GUICtrlSetLimit(-1, 10000, 50) GUICtrlSetData(-1, 50) $Slider3 = GUICtrlCreateSlider(216, 120, 105, 41) GUICtrlSetLimit(-1, 10000, 50) GUICtrlSetData(-1, 50) $Slider4 = GUICtrlCreateSlider(336, 120, 105, 49) GUICtrlSetLimit(-1, 10000, 0) $Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 8, 88, 97, 17) $Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 120, 88, 97, 17) $Checkbox3 = GUICtrlCreateCheckbox("Checkbox3", 232, 88, 97, 17) $Checkbox4 = GUICtrlCreateCheckbox("Checkbox4", 344, 88, 97, 17) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch Sleep(10) if (GUICtrlRead ( "$Checkbox1" )) = 1 then While _IsPressed('20') MsgBox(4096, "press", "you are holding space, 10) Sleep(GUICtrlRead($Slider1)) WEnd endif if (GUICtrlRead ( "$Checkbox2" )) = 1 then While _IsPressed('20') MsgBox(4096, "press", "you are holding space wait, 10) Sleep(GUICtrlRead($Slider2)) WEnd endif if (GUICtrlRead ( "$Checkbox3" )) = 1 then While _IsPressed('20') MsgBox(4096, "press", "you are holding space still, 10) Sleep(GUICtrlRead($Slider3)) WEnd endif if (GUICtrlRead ( "$Checkbox4" )) = 1 then While _IsPressed('20') MsgBox(4096, "press", "you are holding space again, 10) Sleep(GUICtrlRead($Slider4)) WEnd endif WEnd i only want to have While _IsPressed('20') MsgBox(4096, "press", "you are holding space, 10) Sleep(GUICtrlRead($Slider1)) WEnd work while check box is ticked?
-
Hai, im not that good with gui. but i was wondering if some one could lead me in the right direction i made this silly script to try get my head around gui so here it is #include<misc.au3> #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <SliderConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 447, 197, 274, 144) $Button1 = GUICtrlCreateButton("1", 32, 48, 49, 33) $Button2 = GUICtrlCreateButton("2", 144, 48, 49, 33) $Button3 = GUICtrlCreateButton("3", 248, 48, 49, 33) $Button4 = GUICtrlCreateButton("4", 360, 48, 49, 33) $Slider1 = GUICtrlCreateSlider(0, 120, 105, 33) $Slider2 = GUICtrlCreateSlider(112, 120, 105, 33) $Slider3 = GUICtrlCreateSlider(216, 120, 105, 41) $Slider4 = GUICtrlCreateSlider(336, 120, 105, 49) $Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 8, 88, 97, 17) $Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 120, 88, 97, 17) $Checkbox3 = GUICtrlCreateCheckbox("Checkbox3", 232, 88, 97, 17) $Checkbox4 = GUICtrlCreateCheckbox("Checkbox4", 344, 88, 97, 17) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch Sleep(10) While _IsPressed('20') MsgBox(4096, "press", "you are holding space, 10) Sleep(2000) WEnd While _IsPressed('20') MsgBox(4096, "held", "you are holding space still, 10) Sleep(4000) WEnd WEnd ok so i know it will not work currently i just used koda to create a form. What i would like. is to have the slider adjust the sleep between each msgbox, so if the slider is at the front it would be 1 seccond between mesages if space was held, and if the slider was at the end it would be 10 secconds between wach msgbox And have it so if i click the button, it will check/unchek the check box, and then if check box is on start displaying the message box if the space is held from there i think ill have a good understanding of it. any help is apreciated.
-
well to the people that helped thanks a bundle, here is what i came up with. HotKeySet("^{F9}","Quit") ;press CTRL+F9 to exit HotKeySet("^{F8}","Start") HotKeySet("^{F7}","Stop") #Include <Misc.au3> $dll = DllOpen("user32.dll") $lmb = 01 Global $RUN = False $pos = MouseGetPos() While 1 If $RUN Then ClickPoint() Sleep(900) WEnd Func Start() $RUN = True EndFunc Func Stop() $RUN = False EndFunc Func ClickPoint() $pos = MouseGetPos() if _IsPressed($lmb ,$dll)= 0 then MouseClick("left",240,562,1,0) MouseMove($pos[0], $pos[1],0) EndIf EndFunc Func Quit() Exit EndFunc
-
yes i uderstand this is not great english but this is not 4chan gtfo of my thread.
-
Hello Autoit team has been a while since i posted on these here forums since i have not been useing Autoit. but recently i have i am trying to make mouse click an area and then move back to whare mouse was before it clicked that new area and is working fine. now i want to make it so the script pauses or dosent click the area defined if the mose is doing something mainly currently clicking down on an item "click drag" i cant seam to find out whare i would find that option to monitor a mouse event and then how i would use that information to stop the script and start it again on release of the mouse button. any one have any idears? keep in mind i am still heavly learning. here is my code as it stands atm HotKeySet("^{F9}","Quit") HotKeySet("^{F8}","Start") HotKeySet("^{F7}","Stop") Global $RUN = False $pos = MouseGetPos() While 1 If $RUN Then ClickPoint() Sleep(900) WEnd Func Start() $RUN = True EndFunc Func Stop() $RUN = False EndFunc Func ClickPoint() $pos = MouseGetPos() MouseClick("left",246,589,1,0) MouseMove($pos[0], $pos[1],0) EndFunc Func Quit() Exit EndFunc
-
well the only way i could figure out how to do it was useing Run("") and haveing each of the seperate loops saved as a single .exe case $fast If ProcessExists("fFol.exe") Then ProcessClose("fFol.exe") GUICtrlSetData($fast, "Fast Follow") Else Run("fFol.exe") GUICtrlSetData($fast, "Turn off Fast Follow") EndIf ohh well one day ill figure out a way im sure
-
did u mean something like this? i already tried that if u did #include <GUIConstantsEx.au3> #Region ### START Koda GUI section ### Form= Opt("GUIOnEventMode", 1) Opt("TrayIconDebug", 1) $mainwindow = GUICreate("Auto W0W", 313, 220, 298, 134) GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked") ;Gui buttons \/ $Start = GUICtrlCreateButton("Start", 32, 136, 257, 65) $Fast = GUICtrlCreateButton("Fast", 32, 8, 65, 41) $Stop = GUICtrlCreateButton("Stop all", 256, 96, 33, 33) $Medium = GUICtrlCreateButton("Medium", 128, 8, 65, 41) $Slow = GUICtrlCreateButton("Slow", 224, 8, 65, 41) $Afk = GUICtrlCreateCheckbox("AFK", 48, 64, 97, 17) $As = GUICtrlCreateCheckbox("Auto Swing", 152, 64, 97, 17) $Clicker = GUICtrlCreateCheckbox("Clicker", 48, 104, 97, 17) $Class = GUICtrlCreateCheckbox("Class Ability", 152, 104, 97, 17) ;Setonevent GUICtrlSetOnEvent($Start, "Start") GUICtrlSetOnEvent($Stop, "stop") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### $dostart = false While 1 Sleep(100) if $dostart then start2() WEnd Func start2() If GUICtrlRead($Afk) = 1 then Do sleep (1000) Send("{3}") Sleep(Random(800, 1000)) GUICtrlRead($Afk) Until $dostart = false EndIf If GUICtrlRead($As) = 1 Then Do sleep (1100) Send("{2}") Sleep(80) Send("{2}") Sleep(Random(1000, 2000)) GUICtrlRead($As) Until $dostart = false EndIf If GUICtrlRead($Clicker) = 1 Then Do sleep (1301) MouseClick("right") Sleep(100) MouseClick("left") Sleep(Random(9000, 9500)) GUICtrlRead($Clicker) Until $dostart = false EndIf If GUICtrlRead($Class ) = 1 Then Do sleep (1200) Send("{4}") Sleep(150) Send("{4}") Sleep(150) Send("{4}") Sleep(Random(4000, 8000)) GUICtrlRead($Class ) Until $dostart = false EndIf EndFunc Func startafk() Do sleep (1000) Send("{3}") Sleep(Random(800, 1000)) GUICtrlRead($Afk) Until $dostart = false EndFunc Func CLOSEClicked() If @GUI_WinHandle = $mainwindow Then Exit EndIf EndFunc ;==>CLOSEClicked Func Start() $dostart = true EndFunc ;==>Start Func Stop() $dostart = false GUICtrlSetState($As, $GUI_UNCHECKED) GUICtrlSetState($Afk, $GUI_UNCHECKED) GUICtrlSetState($Clicker, $GUI_UNCHECKED) GUICtrlSetState($Class, $GUI_UNCHECKED) MsgBox(0, "GUI Event", "Stoped") EndFunc ;==>Stop im thinking the only way might be to have separate .exes
-
I tried something similar to this before but it had the same result only one thing happens at once #include <GUIConstantsEx.au3> #Region ### START Koda GUI section ### Form= Opt("GUIOnEventMode", 1) Opt("TrayIconDebug", 1) $mainwindow = GUICreate("Auto W0W", 313, 220, 298, 134) GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked") ;Gui buttons \/ $Start = GUICtrlCreateButton("Start", 32, 136, 257, 65) $Fast = GUICtrlCreateButton("Fast", 32, 8, 65, 41) $Stop = GUICtrlCreateButton("Stop all", 256, 96, 33, 33) $Medium = GUICtrlCreateButton("Medium", 128, 8, 65, 41) $Slow = GUICtrlCreateButton("Slow", 224, 8, 65, 41) $Afk = GUICtrlCreateCheckbox("AFK", 48, 64, 97, 17) $As = GUICtrlCreateCheckbox("Auto Swing", 152, 64, 97, 17) $Clicker = GUICtrlCreateCheckbox("Clicker", 48, 104, 97, 17) $Class = GUICtrlCreateCheckbox("Class Ability", 152, 104, 97, 17) ;Setonevent GUICtrlSetOnEvent($Start, "Start") GUICtrlSetOnEvent($Stop, "stop") GUISetState(@SW_SHOW) $dostart = false While 1 Sleep(100) if $dostart then start2() WEnd Func CLOSEClicked() If @GUI_WinHandle = $mainwindow Then Exit EndIf EndFunc Func Start() $dostart = true EndFunc Func start2() Do Select Case GUICtrlRead($Afk) = 1 sleep (1000) Send("{3}") Sleep(Random(800, 1000)) Case GUICtrlRead($As) = 1 sleep (1000) Send("{4}") Sleep(Random(800, 1000)) Case GUICtrlRead($Class) = 1 sleep (1000) Send("{5}") Sleep(Random(800, 1000)) Case GUICtrlRead($Clicker) = 1 sleep (1000) Send("{2}") Sleep(Random(800, 1000)) EndSelect Until $dostart = false EndFunc Func Stop() $dostart = false GUICtrlSetState($As, $GUI_UNCHECKED) GUICtrlSetState($Afk, $GUI_UNCHECKED) GUICtrlSetState($Clicker, $GUI_UNCHECKED) GUICtrlSetState($Class, $GUI_UNCHECKED) MsgBox(0, "GUI Event", "Stoped") EndFunc any other ideas?
-
thanks i was testing something before and hadn't bothered to remove it yet.
-
Hello this bot is simply meant to send key stokes if i check a check box and press start. this works if i check only one check box, but if multiple boxes are checked it will only run which ever function is at the top most of the script and i cant figure out why? i would like to have any number of combination's of the check boxes checked and run the appropriate function tied to them. #include <GUIConstantsEx.au3> #Region ### START Koda GUI section ### Form= Opt("GUIOnEventMode", 1) Opt("TrayIconDebug", 1) $mainwindow = GUICreate("Auto W0W", 313, 220, 298, 134) GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked") ;Gui buttons \/ $Start = GUICtrlCreateButton("Start", 32, 136, 257, 65) $Fast = GUICtrlCreateButton("Fast", 32, 8, 65, 41) $Stop = GUICtrlCreateButton("Stop all", 256, 96, 33, 33) $Medium = GUICtrlCreateButton("Medium", 128, 8, 65, 41) $Slow = GUICtrlCreateButton("Slow", 224, 8, 65, 41) $Afk = GUICtrlCreateCheckbox("AFK", 48, 64, 97, 17) $As = GUICtrlCreateCheckbox("Auto Swing", 152, 64, 97, 17) $Clicker = GUICtrlCreateCheckbox("Clicker", 48, 104, 97, 17) $Class = GUICtrlCreateCheckbox("Class Ability", 152, 104, 97, 17) ;Setonevent GUICtrlSetOnEvent($Start, "Start") GUICtrlSetOnEvent($Stop, "stop") GUISetState(@SW_SHOW) $dostart = false $doafk = false $doAs = false $doClicker = false $doClass = false While 1 Sleep(100) if $dostart then start2() if $doAs then startas() if $doafk then startafk() if $doClicker then startClicker() if $doClass then startClass() WEnd Func CLOSEClicked() If @GUI_WinHandle = $mainwindow Then Exit EndIf EndFunc Func Start() $dostart = true EndFunc Func start2() If GUICtrlRead($As) = 1 Then $doAs = True If GUICtrlRead($Afk) = 1 Then $doafk = True If GUICtrlRead($Clicker) = 1 Then $doClicker = True If GUICtrlRead($Class) = 1 Then $doClass = True EndFunc ;check box functions Func startAs() Do sleep (1100) Send("{2}") Sleep(80) Send("{2}") Sleep(Random(1000, 2000)) GUICtrlRead($As) Until $doas = false EndFunc Func startafk() Do sleep (1000) Send("{3}") Sleep(Random(800, 1000)) GUICtrlRead($Afk) Until $doafk = false EndFunc Func startClicker() Do sleep (1301) MouseClick("right") Sleep(100) MouseClick("left") Sleep(Random(9000, 9500)) GUICtrlRead($Clicker) Until $doClicker = false EndFunc Func startClass() Do sleep (1200) Send("{4}") Sleep(150) Send("{4}") Sleep(150) Send("{4}") Sleep(Random(4000, 8000)) GUICtrlRead($Class ) Until $doClass = false EndFunc ;stop function Func Stop() $dostart = false $doafk = False $doClass = false $doClicker = false $doas = false GUICtrlSetState($As, $GUI_UNCHECKED) GUICtrlSetState($Afk, $GUI_UNCHECKED) GUICtrlSetState($Clicker, $GUI_UNCHECKED) GUICtrlSetState($Class, $GUI_UNCHECKED) MsgBox(0, "GUI Event", "Stoped") EndFunc i have found out that i cant realy run 2 functions simultaneously. besides making separate .exes for each function is there any other way i could look in to to make this work in one project with out all the extra .exes?
-
Yes thanks u very much now to rack my brain for a while and figure out what u did many thanks mate
-
heya guys i beleve this to be a simple thing, i have a loop running when i press start on gui providing check box anti afk is checked. if i unchecked that check box the script stops working which is good, all tho when i press the stop button wicth unchecks the box while script isnt running wont do the same while it running any ideas? #include <GUIConstantsEx.au3> #Region ### START Koda GUI section ### Form= Opt("GUIOnEventMode", 1) Opt("TrayIconDebug",1) $mainwindow = GUICreate("Auto W0W", 313, 220, 298, 134) GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked") $Start = GUICtrlCreateButton("Start", 32, 136, 257, 65) $Fast = GUICtrlCreateButton("Fast", 32, 8, 65, 41) $Stop = GUICtrlCreateButton("Stop all", 256, 96, 33, 33) $Medium = GUICtrlCreateButton("Medium", 128, 8, 65, 41) $Slow = GUICtrlCreateButton("Slow", 224, 8, 65, 41) $Folow = GUICtrlCreateCheckbox("Auto Folow", 48, 64, 97, 17) $Afk = GUICtrlCreateCheckbox("Anti Afk", 152, 64, 97, 17) $Clicker = GUICtrlCreateCheckbox("Clicker", 48, 104, 97, 17) $Class = GUICtrlCreateCheckbox("Class Ability", 152, 104, 97, 17) GUICtrlSetOnEvent($Start, "Start") GUICtrlSetOnEvent($Stop, "stop") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 Sleep(1000) WEnd Func CLOSEClicked() If @GUI_WINHANDLE = $mainwindow Then Exit EndIf EndFunc Func Start() if GUICtrlRead($Afk) = 1 then do sleep (1000);want this to loop till $Afk is unchecked send ("{1}") GUICtrlRead($Afk) until GUICtrlRead($Afk) = $GUI_UNCHECKED;works if i click the check box it stops the script running else MsgBox(0, "GUI Event", "No Modes selected") endif EndFunc Func Stop();i want on pressing the stop button to uncheck all boxes thus stopping script. but while loop is running the stop button becomes un responsive? GUICtrlSetState($Folow, $GUI_UNCHECKED) GUICtrlSetState($afk, $GUI_UNCHECKED) GUICtrlSetState($Clicker, $GUI_UNCHECKED) GUICtrlSetState($Class, $GUI_UNCHECKED) MsgBox(0, "GUI Event", "Stoped") EndFunc
-
i am allso trying to achive this but u cannot use GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) i know that dosent work
-
LOL it was that simple thanks man i have been trying to figure that for hours makes me feel kinda retarded but cant win em all. thanks again works like a charm.
-
hello i have the folowing GUICtrlCreateCombo wich gets its list from an ini $ColorSelect = GUICtrlCreateCombo("Select fishing area", 10, 30, 205, 25); GUICtrlSetData($ColorSelect, IniRead("Colors.ini", "Standard", "List", Default)) but useing a very crude method to change the ini Case $msg = $btnwr ShellExecute ("Colors.ini") WinWaitActive("Colors") send ("{down 1}") send ("{right 5}") send (GUICtrlRead($area)) send ("{|}") send ("^{end}") send ("{enter}") send (GUICtrlRead($area)) send ("{=}") send ("0x") send (GUICtrlRead($colourhex)) send ("{left 2}") send ("{bs 2}") send ("{left 2}") send ("{bs 2}") send ("{end}") send ("^s") send ("!{f4}") sleep (50) i want to make the $ColorSelect = GUICtrlCreateCombo's list refresh every time i edit the .ini useing the send keys any tips on what i should use i have evan gone to the efert to delete $ColorSelect = GUICtrlCreateCombo make a new one to refresh but there has to be a simpler way i all so have tryed adding this to the end of the send commands GUICtrlSetData($ColorSelect, IniRead("Colors.ini", "Standard", "List", Default))[/ but that simply populates the list with doubbles + the new enty so it kinda works but the $ColorSelect = GUICtrlCreateCombo's list is now filled with doubble's any hint on a way to clear the list before i: GUICtrlSetData($ColorSelect, IniRead("Colors.ini", "Standard", "List", Default))[/