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

Very good .... It worked as I wanted:) Also, I liked this new version did an improvisation that worked right. I thank all who contributed and contribute to helping beginners. The way you explain the functions gives the learner "Thinking" in creating I'll continue reading the new posts and new doubts. Congrats to Admin

Dear GEO Yes..i dont remember this... When i make an Script and compile it, really i have the writed together whit the .exe. Just Sry for that reply...my intention wasn't that. I Dont decompile annother people code...i just wanna solve mine source on the main post ...Waiting for a serious member...

No:)...im run in MSX Man...i just told this cose this new vers dont have "Decompile" Perhaps ill try get 2 versions...3.3 for Edite and Built and 3.1 for decomp. Then backing to my Script.....

@PsaltyDS thankyou for u fast reply...iv got v3.3.6 but i preffer steel in beta V3.1 grats. MHz ill continue running 3.1.0 ...im fammilyarized whit it. Now...i saw in Help and examples but sorry...i dont know how to do it run. Can u edit a simple example ??? when the F8 is press, I need that CountDown running together mouse movments. I Aprecciate anny reply. Tkx All

Hello Masters! I was maked an script and i need 2 funcions together. The 1st where the mouse draws an Web.Its a simple didactic application. While mouse draws it i want the countdown always active. Well...when i press F6 the mouse draws ...but if i press F8, it stop and the countdown run. When i press F6 again, mouse moves again but countdown stop I believe that I'm not getting because of the function "While" in the countdown function I searched the help for a way to make the timer run without "While", but I do not think wheel. I appreciate if any of the patients and attentive ScriptMasters gives a solution. ; <AUT2EXE VERSION: 3.1.1.0> ; ---------------------------------------------------------------------------- ; <AUT2EXE INCLUDE-START: C:\Program Files\AutoIt3\Include\GUIConstants.au3> ; ---------------------------------------------------------------------------- ; ------------------------------------------------------------------------------ ; ; AutoIt Version: 3.1.0 ; Language: English ; Description: Constants to be used in GUI applications. ; ; ------------------------------------------------------------------------------ ; Events and messages Global Const $GUI_EVENT_CLOSE = -3 ; == GUI generated with Koda == $Form1 = GUICreate("The Spider's WEB", 455, 303, 300, 100) GUISetFont(14, 400, 0, "MS Sans Serif") GUICtrlCreateLabel("F6 Start WEB", 16, 48, 174, 28) GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") GUICtrlCreateLabel("F7 Pause", 16, 80, 84, 28) GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") GUICtrlCreateLabel("F8 CountDown", 16, 112,198, 28) GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") GUICtrlCreateLabel("Numpad 8 Distance Up", 16, 144, 198, 28) GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") GUICtrlCreateLabel("Numpad 5 Distance Down", 16, 232, 223, 28) GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") $GUIDistance = GUICtrlCreateLabel("150", 120, 184, 34, 28) GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") GUICtrlCreateLabel("Distance =", 16, 186, 80, 24) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") GUISetState(@SW_SHOW) ; HotKeySet("{F6}", "PaintStar") HotKeySet("{F7}", "Pause") HotKeySet("{F8}", "CountDown") HotKeySet("{NUMPAD8}", "DistanceUp") HotKeySet("{NUMPAD5}", "DistanceDown") HotKeySet ("{PgUp}", "IntervalUp") HotKeySet ("{PgDn}", "IntervalDown") HotKeySet ("{Pause}","Stop") Global $EventType; False = lose, True = win Global $EventName[2] = ["Limpa", "Limpa_2"] $LimpaIntervalo = 10000 ; milliseconds $Timerinit = TimerInit();start timer Global $x Global $y Global $Distance = 150 func PaintStar () $pos = MouseGetPos () $x = $pos[0] $y = $pos[1] Call("WAP") EndFunc func WAP () While 1 MouseDown("Left") MouseMove($x, $y) Sleep(25) Send(" ") MouseMove($x, $y - $Distance) Sleep(25) Send(" ") MouseMove($x, $y) Sleep(25) Send(" ") MouseMove($x + $Distance/1.3636363, $y - $Distance/1.3636363) Sleep(25) Send(" ") MouseMove($x, $y) Sleep(25) Send(" ") MouseMove($x + $Distance, $y) Sleep(25) Send(" ") MouseMove($x, $y) Sleep(25) Send(" ") MouseMove($x + $Distance/1.3636363, $y + $Distance/1.3636363) Sleep(25) Send(" ") MouseMove($x, $y) Sleep(25) Send(" ") MouseMove($x, $y + $Distance) Sleep(25) Send(" ") MouseMove($x, $y) Sleep(25) Send(" ") MouseMove($x - $Distance/1.3636363, $y + $Distance/1.3636363) Sleep(25) Send(" ") MouseMove($x, $y) Sleep(25) Send(" ") MouseMove($x - $Distance, $y) Sleep(25) Send(" ") MouseMove($x, $y) Sleep(25) Send(" ") MouseMove($x - $Distance/1.3636363, $y - $Distance/1.3636363) Sleep(25) Send(" ") MouseMove($x, $y) Sleep(25) Send(" ") MouseMove($x - $Distance, $y) Sleep(100) Send(" ") MouseMove($x - $Distance/1.3636363, $y - $Distance/1.3636363) Sleep(100) Send(" ") MouseMove($x, $y - $Distance) Sleep(100) Send(" ") MouseMove($x + $Distance/1.3636363, $y - $Distance/1.3636363) Sleep(100) Send(" ") MouseMove($x + $Distance, $y) Sleep(100) Send(" ") MouseMove($x + $Distance/1.3636363, $y + $Distance/1.3636363) Sleep(100) Send(" ") MouseMove($x, $y + $Distance) Sleep(100) Send(" ") MouseMove($x - $Distance/1.3636363, $y + $Distance/1.3636363) Sleep(100) Send(" ") MouseMove($x - $Distance, $y) Sleep(25) Send(" ") MouseMove($x - $Distance/2, $y) Sleep(100) Send(" ") MouseMove($x - ($Distance/1.3636363)/2, $y - ($Distance/1.3636363)/2) Sleep(100) Send(" ") MouseMove($x, $y - $Distance/2) Sleep(100) Send(" ") MouseMove($x + ($Distance/1.3636363)/2, $y - ($Distance/1.3636363)/2) Sleep(100) Send(" ") MouseMove($x + $Distance/2, $y) Sleep(100) Send(" ") MouseMove($x + ($Distance/1.3636363)/2, $y + ($Distance/1.3636363)/2) Sleep(100) Send(" ") MouseMove($x, $y + $Distance/2) Sleep(100) Send(" ") MouseMove($x - ($Distance/1.3636363)/2, $y + ($Distance/1.3636363)/2) Sleep(100) Send(" ") MouseMove($x - $Distance/2, $y) MouseUp("Left") WEnd EndFunc func Pause () While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then Exit WEnd EndFunc func DistanceUp () $Distance = $Distance + 5 GUiCtrlSetData($GUIDistance, $Distance) ToolTip("Distance is " & $Distance, 0, 0) Sleep(500) ToolTip("") EndFunc Func DistanceDown () If $Distance > 0 Then $Distance = $Distance - 5 GUICtrlSetData($GUIDistance, $Distance) ToolTip("Distance is " & $Distance, 0, 0) Sleep(500) ToolTip("") EndFunc While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then Exit WEnd Func CountDown () While 1 $Time = TimerDiff($TimerInit) Tooltip("Seconds until close " & $EventName[$EventType] & ": " & Round(($LimpaIntervalo - $Time)/1000), 10, 10) If $EventName = ("Limpa") Then MsgBox (4096,"Limpa","You Loooose") ElseIf $EventName = ("Limpa_2") Then MsgBox (4096,"Limpa","You Win :)") EndIf If $Time > $LimpaIntervalo Then $Timerinit = TimerInit();reset timer Call($EventName[$EventType]) $EventType = Not $EventType Sleep(350) EndIf Wend EndFunc;>>>>>Exit ;------------------------------------------------------------------------------- func IntervalUp () $LimpaIntervalo = $LimpaIntervalo*3 $Time = TimerDiff($TimerInit) $Timerinit = Timerinit ();reset timer ToolTip("Time add is " & $Time,0,0) Sleep(500) ToolTip("") EndFunc Func IntervalDown () $LimpaIntervalo = $LimpaIntervalo/3 $Time = TimerDiff($TimerInit) $Timerinit = Timerinit ();reset timer ToolTip("Time loss is " & $Time,0,0) Sleep(500) ToolTip("") EndFunc Func Stop () Exit EndFunc Best Reggards

Hello, How could use an image as a parameter to a command? Example: At certain image that appears on the screen, the bot runs a command such as mouse move, mouse click,etc ... I can not use color I searched the help, but not found. Please, if you do not know the answer, do not say "Go TO HELP". Thank you very much

I agree but My reply was not for you ... but for those who say only : "read the help files" not simply say: look at help files, you said the way

Perhaps it would be better helped begin to build your own bot and doubt again that this forum will help. You should get something started for people to help you. Look for scrypts examples and make yours yourself... Its a good experience

......;after your script.... Refresh Refresh=Refresh+1 If Refresh=10 Then .;here what you want to doet....... Maybe help you... That help files sometimes dont show all we need to know. People should have more patience with beginners. It costs nothing and is very well to help Reggards Fi0da

Salve Dani ...Blz? You could say what game you play? Maybe someone already has what you want.