Fi0da

Im not test it but try whitout Winative blockinput(1) mouseclick("left", 544, 350) sleep(200) MouseMove(190, 521, 20) sleep(100) mouseclick("Left")

Hi... basically AutoIt uses the coordinates cartezian plan.Each x, y equals one point in space. If you connect the four points will get a square. X = sleeper Y = standing

I dont test it but try this;... #include <GUIConstants.au3> #include <Misc.au3> Opt("TrayIconHide", 1) $dll = DllOpen("user32.dll") ;Start GUI $Form1 = GUICreate("Driller", 139, 63, 193, 63) $Label1 = GUICtrlCreateLabel("Press ` to start/stop drilling.", 3, 10, 135, 17) $Label2 = GUICtrlCreateLabel("Time to Drill(in milliseconds)", 3, 25, 200, 17) $Input1 = GUICtrlCreateInput("9500", 3, 40, 100, 20) GUISetState(@SW_SHOW) ;End GUI Global $Toggle = '', $Drilling = '' Func Drill() $Time = GUICtrlRead($Input1) If $Toggle = 'ON' and $Drilling = 'ON' Then Sleep(700) Send ("{A Down}") Send ("{LEFT Down}") Sleep($Time) Send ("{LEFT Up}") Send ("{A Up}") $Drilling = 'OFF' EndIf EndFunc Func MoveUp() While 1 If $Toggle = 'ON' and $Drilling = 'OFF' Then Sleep(1000) Send ("{UP Down}") Sleep(150) Send("{UP Up}") $Drilling = 'ON' EndIf $nMsg = GUIGetMsg() If $nMsg = $GUI_EVENT_CLOSE Then Exit EndIf If _IsPressed("C0", $dll) And $Toggle <> 'ON' Then Sleep(100) $Toggle = 'ON' $Drilling = 'ON' ToolTip("Toggle ON", 0, 0) Sleep(400) ToolTip( "", 0, 0) EndIf If $Toggle = 'ON' Then Drill() MoveUp() EndIf If _IsPressed("C0", $dll) And $Toggle = 'ON' Then ; <== This here's being ignored $Toggle = 'OFF' $Drilling = 'OFF' ToolTip("Toggle OFF", 0, 0) Sleep(400) ToolTip( "", 0, 0) EndIf WEnd EndFunc

I honestly do not think Goldenix want to hide the rules of the forum. He just wants to automate a manual task and not take advantage within the game. The script is easy to write, but if the rules are so rigid, dear Goldenix, just ask for help on a script and not for what purpose;) Greetings

To a continous loop u can use to: While 1 Sleep (50) Wend before your code ....To the "Then" command...u must to write what u want: MouseMove...or anny KeyDown..etc... What really your script does? Ah!....the Var in PixelSearch (50,50,500,500,0xC7C7C7,x) The "x" on the code is how many color variations may have

Sunkist0... The way they teach is this. You should read and understand ... try things without fear. Take a look at examples in your Autoit/examples. There are numerous types of scripts to learn how it works. Over time you'll be creating your code I also am learning that way ..... Wellcome

is there any way to lock a copy of a compiled script? Or if a program can only run on a single computer and trying to copy and distribute it show error sript? hugs

No one?

Hello.... I Wass tryed this... Case $countdown < 10000 And $countdown > 9900 Call ("StarTimer") Sleep (100) But not run...I duno how to do the timer restart. Anny Idea..someone????

Ok...it works when i press "End"... Now i wass read about the Automate Restart Countdow but not success . Anny reply is wellcome

Ok...ill try at home... And the question about restart the countdown after 00:00 ? Tkx for reply

In my studies in AutoItScript, reading about doubt tried to build a countdown as the code below: I would like to enable a hotkey to start but could not. Also like to understand how to make restart the timer after 00:00. #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> #include <Date.au3> Global $countdown Global $inicio = 100000 Global $countdown = $inicio Global $start = TimerInit() Global $final = 0 Global $fcolour_toggle = True HotKeySet ("{PgUp}", "IntervalUp") HotKeySet ("{PgDn}", "IntervalDown") HotKeySet ("{Pause}","Stop") ;HotKeySet ("{End}","Start") $hGUI = GUICreate("", 120, 40, @DesktopWidth -1200, 750, BitOR($WS_POPUP, $WS_BORDER), $WS_EX_TOPMOST) $hLabel = GUICtrlCreateLabel("", 0, 0, 120, 20, BitOr($SS_CENTER, $SS_CENTERIMAGE)) GUICtrlSetBkColor(-25, 0xFF8000) GUISetState() ;Func Start() While $countdown > 0 $countdown = $inicio - TimerDiff($start) Select Case $countdown < 30000 And $countdown > 29000 AdlibRegister("_Colour_Toggle", 250) Case $countdown < 60000 And $countdown > 59000 AdlibRegister("_Colour_Toggle",250) Case $countdown < 20000 And $countdown > 19000 AdlibRegister("_mousemove") Sleep (2000) EndSelect If Int($countdown / 1000) <> $final Then $final = Int ($countdown / 1000) $countdown = $inicio - TimerDiff($start) StarTimer() EndIf ; EndIf Sleep(100) Sleep (100) WEnd Func StarTimer() Local $iHours, $iMins, $iSecs _TicksToTime($countdown, $iHours, $iMins, $iSecs) GUICtrlSetData($hLabel, "Tempo Restante" & " " & $iMins & ":" & StringFormat("%02i", $iSecs)) EndFunc ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func _mousemove () MouseMove (400,500) Sleep (100) EndFunc ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func _Colour_Toggle() $fcolour_toggle = Not $fcolour_toggle If $fcolour_toggle Then GUICtrlSetBkColor($hLabel, 0xFFFF00) Else GUICtrlSetBkColor($hLabel, 0xFF8000) EndIf EndFunc func IntervalUp () $inicio = $inicio *1.1 EndFunc ; Func IntervalDown () $inicio = $inicio /1.1 EndFunc ; Func Stop () Exit EndFunc Thanks For advance for teaching again I read ... I update ... I'm learning

very Interesting Tkx

Hmmm...then doubt 1:then can i write several Whiles? For ex...While1 ; While2...for the same function??/ Doubt2 : If 1 = ok, Then all Whiles must have Wend? Tkx alot.

I think not ... Sleeps since the start after the execution of the function ... I think you should add the Sleep + times the run time of all functions. But...W8 for + replyes..Here they give solution to everything