Zaxon Posted February 3, 2005 Share Posted February 3, 2005 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? Link to comment Share on other sites More sharing options...
erifash Posted February 3, 2005 Share Posted February 3, 2005 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.expandcollapse popup;_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 My UDFs:_FilePrint() | _ProcessGetName() | _Degree() and _Radian()My Scripts:Drive Lock - Computer Lock Using a Flash DriveAU3Chat - Simple Multiuser TCP ChatroomStringChunk - Split a String Into Equal PartsAutoProxy - Custom Webserver Link to comment Share on other sites More sharing options...
Josbe Posted February 3, 2005 Share Posted February 3, 2005 Or http://www.autoitscript.com/fileman/users/Larry/au3record_010405a.zip AUTOIT > AutoIt docs / Beta folder - AutoIt latest beta Link to comment Share on other sites More sharing options...
Zaxon Posted February 3, 2005 Author Share Posted February 3, 2005 Or http://www.autoitscript.com/fileman/users/Larry/au3record_010405a.zip <{POST_SNAPBACK}>Perfect! Works well too! Link to comment Share on other sites More sharing options...
VoSs2o0o Posted February 3, 2005 Share Posted February 3, 2005 ...or try my AutoItMacroGenerator The new Version 0.2 is ready in 1-2 weeks AutoItMacroGenerator on my Homepage (Link 2) Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now