如何用程序产生鼠标动作(100分)

鼠标动作，如移动、点击、双击都是用户的实际操作，如何编写一个程序来产生这些动作<br>呢？例如：我的Form上有一个Flash控件，载入了一个Flash动画，如何实现：让鼠标自动<br>移动，并点击Flash动画的一个按钮，实现自动播放呢？

如果你知道按钮坐标的话：<br>mouse_event

你可以通过setcursorpos()函数设置鼠标位置，然后利用mouse_event()模拟鼠标事件即可！

同意楼上；例如模拟鼠标双击 ：<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; pt: TPoint;<br>begin<br>&nbsp; pt:= edit1.ClientToScreen( Point( 4,4 ));<br>&nbsp; SetCursorPos( pt.x, pt.y );<br>&nbsp; mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );<br>&nbsp; mouse_event( MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );<br>&nbsp; mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );<br>&nbsp; mouse_event( MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );<br>end;<br>//////////////////////////////<br>SendMessage(Form1.Handle,WM_LBUTTONDBLCLK,0,0);

可以模拟鼠标按键<br>参考文章http://www.china-pub.com/computers/emook/1166/info.htm<br>另外，还可以考虑用journal hook来实现<br>：）