AHK MouseRecorder (MoRe)
*19.04.09 Edited a copy-Paste error in source-Code, thanks Trikster
Today I want to present a funny little tool, the mouse recorder. I hope it is the first mouserecorder and nobody scripted such a tool in AHK, before;-)
Last week i read the thread about the new advanced AHK ScriptWriter, it will be the most important tool in Autohotkey, because it is the first thing a new user will test. If the script writer works well we will get lots of new members in our community. Inspired by the scriptwriter I thought about a Mouse-movement-recorder, which records and replays realtime, so you
can watch the mouse moving, as you did move your mouse in the record mode. At the moment, Mousewheel, left and right button and the movement is recorded. Mouseclicks and wheel are send normal, no controlsend implemented right now. Coordinates are sent relative to the desktop (screen-mode).
The script starts recording by pressing F1, and stops with F2. Replay starts with F3. There is no Gui till now, I wrote the script to test the possibilities
Each 15ms mouse position and keystates of the buttons + wheel are checked. If any Parameter changes, the new parameters are written to a textfile, including the time since start of recording, and the ID of the Window under the mouse.
In replay mode, each 15ms is checked, if the time from a counter reaches the time of the recorded next Dataset. If so, the Dataset is send to the mouse, and the mouse is moved accordingly. At the beginning of the Replay, the same window is activated, as it was active at the beginning of the recording.
I tested it with MS_Paint, I drew a little picture, and replayed it, you can see the two testimages, below.
Missing features:
a nice Gui
scalable replay-speed
recording of additional mouse-Buttons (xbutton1 and xbutton2)
recording of a Joystick
recording of keybord-buttons
export-function to build a standalone AHKscript from the recorded mousemovements
usage of controlsend
support screen and relative Coordmode
documentation in the code
Code:
;***********************************************
;** **
;** Mouse movement recorder (MoRe) 0.1 **
;** based on the idea of AHK script writer **
;** written by garath **
;** **
;***********************************************
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
#Persistent
CoordMode, Mouse, Screen
SetBatchLines, -1
;*************************************+*********
;** **
;** F1 Start recording **
;** F2 Stop recording **
;** F3 Replay **
;** **
;***********************************************
~WheelDown::Wheel_down += A_EventInfo
~Wheelup::Wheel_up += A_EventInfo
f1::
FileDelete, Mausbewegungen.txt
Mouse_moves =
Wheel_up =
Wheel_down =
Time_old := A_TickCount
SetTimer, WatchMouse, Off
SetTimer, WatchMouse, 10
SetTimer, WatchMouse, on
Return
f2::
SetTimer, WatchMouse, Off
ToolTip
Return
f3::Gosub, replay
Return
;******************************************
WatchMouse:
Time_Index := A_TickCount - Time_old
MouseGetPos, xpos, ypos, id, Control
GetKeyState, lButt, LButton
GetKeyState, mButt, MButton
GetKeyState, rButt, RButton
Mouse_Data = %xpos%|%ypos%|%lButt%|%mButt%|%rButt%|%Wheel_up%|%Wheel_down%|%ID%|%Time_Index%`n
ToolTip, recording
If (xpos<>xpos_old OR ypos<>ypos_old OR Wheel_up OR Wheel_down OR lButt<>Lbutt_old OR mButt<>mButt_old OR rButt<>rButt_old)
{
FileAppend, %Mouse_data%, Mausbewegungen.txt
xpos_old := xpos
ypos_old := ypos
lButt_old := lButt
mButt_old := mButt
rButt_old := rButt
Wheel_up =
Wheel_down =
}
Return
;*******************************************
replay:
FileRead,Mouse_moves, Mausbewegungen.txt
StringReplace, Mouse_data, Mouse_moves, `n, @, All
StringSplit, Mouse_data_, Mouse_data , @
Loop, %Mouse_data_0%
StringSplit, Mouse_data_%A_Index%_, Mouse_data_%A_Index% ,|
Data_Index = 1
Data_Index_old := 1
id := Mouse_data_1_8
WinActivate, ahk_id %id%
Time_old := A_TickCount
SetTimer, Replaytimer, Off
SetTimer, Replaytimer, 10
SetTimer, Replaytimer, on
Return
;********************************************
replaytimer:
Time_Index := A_TickCount - Time_old
Mouse_data_%Data_Index%_9 += 0
If (Time_Index > Mouse_data_%Data_Index%_9)
{
MouseMove, Mouse_data_%Data_Index%_1, Mouse_data_%Data_Index%_2
lButt := Mouse_data_%Data_Index%_3
mButt := Mouse_data_%Data_Index%_4
rButt := Mouse_data_%Data_Index%_5
wheel_up := Mouse_data_%Data_Index%_6
wheel_down := Mouse_data_%Data_Index%_7
If (Mouse_data_%Data_Index_old%_3 <> Mouse_data_%Data_Index%_3)
MouseClick , Left ,,,,, %lButt%
If (Mouse_data_%Data_Index_old%_4 <> Mouse_data_%Data_Index%_4)
MouseClick , middle ,,,,, %mButt%
If (Mouse_data_%Data_Index_old%_5 <> Mouse_data_%Data_Index%_5)
MouseClick , Right ,,,,, %rButt%
If (Mouse_data_%Data_Index%_6)
MouseClick, WheelUp, , , %wheel_up%
If (Mouse_data_%Data_Index%_7)
MouseClick, Wheeldown, , , %wheel_down%
Data_Index_old := Data_Index
Data_Index += 1
If (Data_Index = Mouse_data_0)
{
SetTimer Replaytimer, Off
Data_Index = 0
}
}
; x := Mouse_data_%Data_Index%_9
; tooltip %Time_Index%_%A_TickCount% - %Time_old% __%x%
Return
Maybe, next week I can present the "MoRe Joy"
**garath walks away, searching his 10 Years old analog Jostick
**
Login
Register
FAQ
Search
If I remove transparecy, I get the messages :-/
