MausPilot

[autoit]

#include <GUIConstants.au3>
#include <Misc.au3>
#include <Date.au3>

[/autoit] [autoit][/autoit] [autoit]

HotKeySet("{ESC}", "Terminate")

[/autoit] [autoit][/autoit] [autoit]

Func Terminate()
Exit 0
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

GUICreate("MousePilot", 132,57,-1,-1,-1,0x00000088)
GUISetBkColor(0xFFFFFF)

[/autoit] [autoit][/autoit] [autoit]

$rec = GUICtrlCreateButton ("rec.", 3,3,40,30,0x8080)
GUICtrlSetImage (-1, "C:\rec.bmp",23)
$play = GUICtrlCreateButton ("play", 46,3,40,30,0x8080)
GUICtrlSetImage (-1, "C:\play.bmp",23)
$paus = GUICtrlCreateButton ("paus", 89,3,40,30,0x8080)
GUICtrlSetImage (-1, "C:\paus.bmp",23)

[/autoit] [autoit][/autoit] [autoit]

$slider1 = GUICtrlCreateSlider (-2,36,136,20,0x10520)
GUICtrlSetBkColor(-1,0xFFFFFF)

[/autoit] [autoit][/autoit] [autoit]

GUISetState ()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$i=0

[/autoit] [autoit][/autoit] [autoit]

Do
$msg = GUIGetMsg()
if $msg = $rec Then
FileDelete("C:\now.ini")
do
If _IsPressed("01") Then
$pos = MouseGetPos()
$i=$i+1
Do
sleep (1)
until (_IsPressed("01") = 0 )
IniWrite("C:\now.ini", "mouse", string ($i),"l " & $pos[0] & " " & $pos[1])
Endif
If _IsPressed("02") Then
$pos = MouseGetPos()
$i=$i+1
Do
sleep (1)
until (_IsPressed("02") = 0)
IniWrite("C:\now.ini", "mouse", string ($i), "r " & $pos[0] & " " & $pos[1])
EndIf
$msg = GUIGetMsg()
until $msg = $paus
IniWrite("C:\now.ini", "mouse", "j" , string ($i))
EndIf

if $msg = $play Then
$s = GUICtrlRead($slider1)
$i = 0
$j = IniRead("C:\now.ini", "mouse", "j", "0")
do
$i = $i + 1
$var = IniRead("C:\now.ini", "mouse", string ($i), "0")
$var2 = StringTrimLeft ( $var, 2)
$x = StringLeft ($var2,4)
$y = StringRight( $var2,4)
$b = StringLeft ( $var,1)
if $b = "0" Then
exitloop
elseif $b = "l" then
$b2 = "left"
elseif $b ="r" then
$b2 = "right"
endif
MouseClick($b2,$x,$y,1,$s)
until $i = $j -1
EndIf
Until $msg = $GUI_EVENT_CLOSE
FileDelete("C:\now.ini")

[/autoit]