GitHub
2 changed files with 284 additions and 0 deletions
@ -0,0 +1,284 @@ |
|||||
|
#cs ---------------------------------------------------------------------------- |
||||
|
|
||||
|
AutoIt Version: 3.3.14.2 |
||||
|
Author: Samuel Pua |
||||
|
|
||||
|
Script Function: |
||||
|
To have autoclicker functionality with manual editable strokes. |
||||
|
|
||||
|
#ce ---------------------------------------------------------------------------- |
||||
|
|
||||
|
; Script Start - Add your code below here |
||||
|
#include <FileConstants.au3> |
||||
|
#include <MsgBoxConstants.au3> |
||||
|
|
||||
|
#include <Timers.au3> |
||||
|
|
||||
|
HotKeySet("+q", "reset") ; shift q resets |
||||
|
HotKeySet("+w", "addLeft") ; add left click |
||||
|
HotKeySet("+e", "addRight") ; add right click |
||||
|
HotKeySet("+r", "addNo") ; add no click |
||||
|
|
||||
|
HotKeySet("+{ENTER}", "addEnter") ; add enter |
||||
|
|
||||
|
HotKeySet("+a", "showSteps") ; show steps |
||||
|
HotKeySet("+s", "runAll") ; run script |
||||
|
HotKeySet("~", "closeProgram") ; Exit |
||||
|
HotKeySet("?", "helpMe") ; Help |
||||
|
|
||||
|
HotKeySet("{+}", "plusTimes") ; Add 1 more run iteration |
||||
|
HotKeySet("-", "minusTimes") ; Reduce 1 run iteration |
||||
|
HotKeySet("=", "setTimes") ; Set times |
||||
|
HotKeySet("|", "changeDelay") ; Change delay |
||||
|
|
||||
|
HotKeySet("+l", "fileLoad") ; fileload |
||||
|
HotKeySet("+f", "fileSave") ; filesave |
||||
|
|
||||
|
;;;;;;;;;;;;;;;;;;; Start ;;;;;;;;;;;;;;;;;;; |
||||
|
Global $mouseFile="mousestrokes.txt" |
||||
|
|
||||
|
Global $current=0 |
||||
|
Global $memoryX[1000] |
||||
|
Global $memoryy[1000] |
||||
|
Global $delays[1000] |
||||
|
Global $clicks[1000] ; 0 left, 1 right, 2 no |
||||
|
Global $lastTime=0 |
||||
|
Global $startTime |
||||
|
Global $runTimes=1 |
||||
|
|
||||
|
Global $instructions |
||||
|
|
||||
|
$instructions = "" |
||||
|
$instructions = $instructions & "Shift Q: Reset Instructions"&@CRLF |
||||
|
$instructions = $instructions & "Shift W: Add new left click"&@CRLF |
||||
|
$instructions = $instructions & "Shift E: Add new right click"&@CRLF |
||||
|
$instructions = $instructions & "Shift R: Add delay"&@CRLF |
||||
|
$instructions = $instructions & "Shift Enter: Add enter key"&@CRLF |
||||
|
$instructions = $instructions & "|: Manually change delay"&@CRLF&@CRLF |
||||
|
|
||||
|
$instructions = $instructions & "+: Increase number of runs"&@CRLF |
||||
|
$instructions = $instructions & "-: Reduce number of runs"&@CRLF |
||||
|
$instructions = $instructions & "=: Set number of runs"&@CRLF&@CRLF |
||||
|
|
||||
|
$instructions = $instructions & "Shift A: Show Steps"&@CRLF |
||||
|
$instructions = $instructions & "Shift S: Run clicks"&@CRLF&@CRLF |
||||
|
|
||||
|
$instructions = $instructions & "Shift L: Load File from "&$mouseFile&@CRLF |
||||
|
$instructions = $instructions & "Shift F: Save File to "&$mouseFile&@CRLF&@CRLF |
||||
|
|
||||
|
$instructions = $instructions & "~: Exit Program"&@CRLF |
||||
|
$instructions = $instructions & "?: Help" |
||||
|
|
||||
|
MsgBox(0,"Instructions", $instructions) |
||||
|
|
||||
|
Func reset() |
||||
|
$current=0 |
||||
|
$lastTime=0 |
||||
|
$runTimes=1 |
||||
|
Msgbox(0,"Reset", "All keys reset") |
||||
|
EndFunc |
||||
|
|
||||
|
Func addLeft() |
||||
|
$memoryX[$current]=mousegetpos(0) |
||||
|
$memoryY[$current]=mousegetpos(1) |
||||
|
$clicks[$current]=0 ; left click |
||||
|
if $current=0 Then |
||||
|
$startTime=_Timer_Init() |
||||
|
$delays[$current]=0 |
||||
|
Else |
||||
|
$delays[$current] = _Timer_Diff($startTime)-$lastTime |
||||
|
$lastTime = _Timer_Diff($startTime) |
||||
|
EndIf |
||||
|
$current=$current+1 |
||||
|
EndFunc |
||||
|
|
||||
|
Func addRight() |
||||
|
$memoryX[$current]=mousegetpos(0) |
||||
|
$memoryY[$current]=mousegetpos(1) |
||||
|
$clicks[$current]=1 ; right click |
||||
|
if $current=0 Then |
||||
|
$startTime=_Timer_Init() |
||||
|
$delays[$current]=0 |
||||
|
Else |
||||
|
$delays[$current] = _Timer_Diff($startTime)-$lastTime |
||||
|
$lastTime = _Timer_Diff($startTime) |
||||
|
EndIf |
||||
|
$current=$current+1 |
||||
|
EndFunc |
||||
|
|
||||
|
Func addNo() |
||||
|
$memoryX[$current]=mousegetpos(0) |
||||
|
$memoryY[$current]=mousegetpos(1) |
||||
|
$clicks[$current]=2 ; no click |
||||
|
if $current=0 Then |
||||
|
$startTime=_Timer_Init() |
||||
|
$delays[$current]=0 |
||||
|
Else |
||||
|
$delays[$current] = _Timer_Diff($startTime)-$lastTime |
||||
|
$lastTime = _Timer_Diff($startTime) |
||||
|
EndIf |
||||
|
$current=$current+1 |
||||
|
EndFunc |
||||
|
|
||||
|
Func addEnter() |
||||
|
$memoryX[$current]=mousegetpos(0) |
||||
|
$memoryY[$current]=mousegetpos(1) |
||||
|
$clicks[$current]=3 ; Enter |
||||
|
if $current=0 Then |
||||
|
$startTime=_Timer_Init() |
||||
|
$delays[$current]=0 |
||||
|
Else |
||||
|
$delays[$current] = _Timer_Diff($startTime)-$lastTime |
||||
|
$lastTime = _Timer_Diff($startTime) |
||||
|
EndIf |
||||
|
$current=$current+1 |
||||
|
EndFunc |
||||
|
|
||||
|
Func showSteps() |
||||
|
Local $printer="" |
||||
|
For $i = 0 to $current-1 |
||||
|
$printer=$printer&"Delay: "&$delays[$i]&"ms"&@CRLF |
||||
|
|
||||
|
if $clicks[$i]=0 Then |
||||
|
$printer=$printer&"Left Click: " |
||||
|
ElseIf $clicks[$i]=1 Then |
||||
|
$printer=$printer&"Right Click: " |
||||
|
ElseIf $clicks[$i]=2 Then |
||||
|
$printer=$printer&"No Click: " |
||||
|
ElseIf $clicks[$i]=3 Then |
||||
|
$printer=$printer&"Enter Key: " |
||||
|
EndIf |
||||
|
|
||||
|
$printer=$printer&$memoryX[$i]&", "&$memoryY[$i]&@CRLF&@CRLF |
||||
|
Next |
||||
|
MsgBox(0,"Show Steps Recorded",$printer) |
||||
|
EndFunc |
||||
|
|
||||
|
Func changeDelay() |
||||
|
for $i = 0 to $current-1 |
||||
|
$response=InputBox("Manually change timer for step"&$i+1,"Current delay: "&$delays[$i]&"ms") |
||||
|
if $response<>"" Then |
||||
|
$delays[$i]=$response |
||||
|
endif |
||||
|
Next |
||||
|
EndFunc |
||||
|
|
||||
|
Func runAll() |
||||
|
sleep(1000) |
||||
|
for $runrun = 1 to $runTimes |
||||
|
for $i = 0 to $current-1 |
||||
|
Sleep($delays[$i]) |
||||
|
if $clicks[$i]=0 then ; if left |
||||
|
MouseClick("left", $memoryX[$i], $memoryY[$i],1,0) |
||||
|
ElseIf $clicks[$i]=1 then ; if right |
||||
|
MouseClick("right", $memoryX[$i], $memoryY[$i],1,0) |
||||
|
ElseIf $clicks[$i]=2 Then |
||||
|
MouseMove( $memoryX[$i], $memoryY[$i]); if nothing so do nothing |
||||
|
ElseIf $clicks[$i]=3 Then |
||||
|
Send("{ENTER}") |
||||
|
endif |
||||
|
Next |
||||
|
Next |
||||
|
EndFunc |
||||
|
|
||||
|
Func closeProgram() |
||||
|
MsgBox(0,"Exit","Exiting program...") |
||||
|
Exit(0) |
||||
|
EndFunc |
||||
|
|
||||
|
Func helpMe() |
||||
|
MsgBox(0,"Instructions", $instructions) |
||||
|
EndFunc |
||||
|
|
||||
|
Func plusTimes() |
||||
|
$runTimes=$runTimes+1 |
||||
|
MsgBox(0, "Number of runs", "Current number of runs is: "&$runTimes) |
||||
|
EndFunc |
||||
|
|
||||
|
Func minusTimes() |
||||
|
$runTimes=$runTimes-1 |
||||
|
MsgBox(0, "Number of runs", "Current number of runs is: "&$runTimes) |
||||
|
EndFunc |
||||
|
|
||||
|
Func setTimes() |
||||
|
$runTimes=InputBox("Please key in desired run times", "Current loop count set: "&$runTimes) |
||||
|
MsgBox(0, "Number of runs", "Current number of runs is: "&$runTimes) |
||||
|
EndFunc |
||||
|
|
||||
|
Func fileLoad() |
||||
|
Local $hFileOpen = FileOpen($mouseFile, $FO_READ) |
||||
|
If $hFileOpen = -1 Then |
||||
|
MsgBox($MB_SYSTEMMODAL, "", "An error occurred when reading the file.") |
||||
|
Return False |
||||
|
EndIf |
||||
|
|
||||
|
FileClose($hFileOpen) |
||||
|
|
||||
|
$tempLine="Start" |
||||
|
$lineCount=0 |
||||
|
$done=0 |
||||
|
$current=0 |
||||
|
While $done = 0 |
||||
|
$lineCount=$lineCount+1 |
||||
|
$temp=FileREadLine($mouseFile,$lineCount) |
||||
|
if @error<>0 Then |
||||
|
$done=1 |
||||
|
EndIf |
||||
|
|
||||
|
;Do actual work |
||||
|
if $done=0 Then |
||||
|
if (StringLen($temp)>=7) and (StringMid($temp,1,1)<>"#") then |
||||
|
$commands=StringSplit($temp," ") |
||||
|
if $commands[1]="L" Then |
||||
|
$clicks[$current]=0 |
||||
|
ElseIf $commands[1]="R" Then |
||||
|
$clicks[$current]=1 |
||||
|
ElseIf $commands[1]="N" Then |
||||
|
$clicks[$current]=2 |
||||
|
ElseIf $commands[1]="E" Then |
||||
|
$clicks[$current]=3 |
||||
|
endif |
||||
|
|
||||
|
$memoryX[$current]=$commands[2]*1 |
||||
|
$memoryY[$current]=$commands[3]*1 |
||||
|
$delays[$current]=$commands[4]*1 |
||||
|
|
||||
|
$current=$current+1 |
||||
|
EndIf |
||||
|
EndIf |
||||
|
WEnd |
||||
|
|
||||
|
MsgBox(0,"File Load", $mouseFile&" loaded successfully!") |
||||
|
|
||||
|
EndFunc |
||||
|
|
||||
|
Func fileSave() |
||||
|
Local $hFileOpen = FileOpen($mouseFile, $FO_OVERWRITE) |
||||
|
If $hFileOpen = -1 Then |
||||
|
MsgBox($MB_SYSTEMMODAL, "", "An error occurred when reading the file.") |
||||
|
Return False |
||||
|
EndIf |
||||
|
|
||||
|
for $i = 0 to $current-1 |
||||
|
$line="" |
||||
|
If $clicks[$i]=0 Then |
||||
|
$line="L " |
||||
|
ElseIf $clicks[$i]=1 Then |
||||
|
$line="R " |
||||
|
ElseIf $clicks[$i]=2 Then |
||||
|
$line="N " |
||||
|
ElseIf $clicks[$i]=3 Then |
||||
|
$line="E " |
||||
|
EndIf |
||||
|
|
||||
|
$line=$line&$memoryX[$i]&" " & $memoryY[$i] & " " & $delays[$i] |
||||
|
FileWriteLine ( $hFileOpen, $line ) |
||||
|
Next |
||||
|
|
||||
|
FileClose($hFileOpen) |
||||
|
MsgBox(0,"File Save", $mouseFile&" saved successfully!") |
||||
|
EndFunc |
||||
|
|
||||
|
While 1 |
||||
|
Sleep(100) |
||||
|
WEnd |
||||
Binary file not shown.
Loading…
Reference in new issue