in reply to Capturing user actions

use Win32::GuiTest;

SendKeys KEYS [DELAY]
SendMouse COMMAND
MouseMoveAbsPix(X,Y)
FindWindowLike WINDOW, TITLEPATTERN, CLASSPATTERN, CHILDID
PushButton BUTTON [, DELAY]
PushChildButton( parent, button [, delay] )

[download]

Replies are listed 'Best First'.
Re^2: Capturing user actions
by Anonymous Monk on Jul 02, 2004 at 12:06 UTC
    The first thing that I need is to RECORD the user's action.Above thing could be useful AFTER recording user's action(PLAY mode).I am in search of this kind of stuff(modules).
    Is there any such facility in perl?
[reply]
      You can use Win32 for that, just that you need to carefully craft your recorder.
      Here are some function that you may use:
      ($x,$y) = GetCursorPos() * 

Retrieves the cursor's position,in screen coordinates as (x,y) array.

 
GetCaretPos() 

Retrieves the caret's position, in client coordinates as (x,y) array. 
+(Like Windows function)

IsKeyPressed($key) 

Wrapper around the GetAsyncKeyState API function. Returns TRUE if the 
+user presses the specified key.

FindWindowLike($window,$titleregex,$classregex,$childid,$maxlevel) 

Finds the window handles of the windows matching the specified paramet
+ers and returns them as a list.

$text = WMGetText($hwnd) * 

Sends a WM_GETTEXT to a window and returns its contents

GetListViewContents($window)

      [download]
      The point is that you can "record" a session using Win32, it's just not that simple.
      Dodge This!
[reply]
[d/l]

In Section Seekers of Perl Wisdom