Sign in to follow this  
Followers 0
Zaxon

AU3Recorder

5 posts in this topic

I've read several mentionings of "AU3Recorder" - I presume an AutoIt script that records your mouse movements/keystrokes, and dumps them to a script.

A search of the forums don't reveal where to find AU3Recorder. I even manually checked fileman but didn't find it.

Can someone point me in the right direction?

Share this post


Link to post
Share on other sites



I've read several mentionings of "AU3Recorder" - I presume an AutoIt script that records your mouse movements/keystrokes, and dumps them to a script.

A search of the forums don't reveal where to find AU3Recorder.  I even manually checked fileman but didn't find it.

Can someone point me in the right direction?

<{POST_SNAPBACK}>

idk about the keystrokes thing, but I made a small mouselogger a while ago. Check the code for the hotkeys to start, pause, stop, and exit recording.

;_MouseCopy.au3
;----------
HotKeySet("+`", "EndLoop")
HotKeySet("+1", "Pause")
HotkeySet("`", "_MouseCopy")

Dim $last[2]
$last[0] = -1
$last[1] = -1

While 1
  Sleep(10)
Wend

Func _MouseCopy()
LogLine("HotKeySet(""`"", ""EndMove"")" & @CRLF & @CRLF)
  While 1
    $pos = MouseGetPos()
    If $last <> $pos Then LogLine("MouseMove(" & $pos[0] & ", " & $pos[1] & ", 2)")
    If _IsPressed('01') = 1 Then LogLine("MouseClick(""left"", " & $pos[0] & ", " & $pos[1] & ", 1, 2)")
    If _IsPressed('02') = 1 Then LogLine("MouseClick(""right"", " & $pos[0] & ", " & $pos[1] & ", 1, 2)")
    $last = $pos
  Wend
EndFunc

Func _IsPressed($hexKey)
; $hexKey must be the value of one of the keys.
; _IsPressed will return 0 if the key is not pressed, 1 if it is.
  
  Local $aR, $bRv;$hexKey
  $hexKey = '0x' & $hexKey
  $aR = DllCall("user32", "int", "GetAsyncKeyState", "int", $hexKey)
;If $aR[0] = -32767 Then
  If $aR[0] <> 0 Then
     $bRv = 1
  Else
     $bRv = 0
  EndIf
  
  Return $bRv
EndFunc ;==>_IsPressed

Func LogLine($line)
  FileWriteLine("_MouseCopied.au3", $line)
EndFunc

Func Pause()
  While 1
    Sleep(10)
  Wend
EndFunc

Func EndLoop()
  LogLine(@CRLF & "Func EndMove()" & @CRLF & "  Exit 0" & @CRLF & "EndFunc")
  Exit 0
EndFunc

Share this post


Link to post
Share on other sites

Or http://www.autoitscript.com/fileman/users/Larry/au3record_010405a.zip :lmao:

<{POST_SNAPBACK}>

Perfect! Works well too!

Share this post


Link to post
Share on other sites

...or try my AutoItMacroGenerator

The new Version 0.2 is ready in 1-2 weeks


AutoItMacroGenerator on my Homepage (Link 2)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0