前边谈了模拟键盘，下面说说模拟鼠标。
--------------------------------------------------------------------------------------------------------------------------------------------------------
需要vb api函数：
mouse_event ←模拟一次鼠标事件
--------------------------------------------------------------------------------------------------------------------------------------------------------
相关api声明：
mouse_event
private declare sub mouse_event lib "user32" ( byval dwflagslong, byvalas long, byvalas long, byval cbuttonslong, byval dwextrainfolong )
--------------------------------------------------------------------------------------------------------------------------------------------------------
定义变量：
st mouseeventf_leftdown = &h2
st mouseeventf_leftup = &h4
st mouseeventf_middledown = &h20
st mouseeventf_middleup = &h40
st mouseeventf_move = &h1
st mouseeventf_absolute = &h8000
st mouseeventf_rightdown = &h8
st mouseeventf_rightup = &h10
--------------------------------------------------------------------------------------------------------------------------------------------------------
mouseeventf_leftdown'鼠标左键按下
mouseeventf_leftup'鼠标松开
mouseeventf_rightdown '鼠标右键按下
mouseeventf_rightup'鼠标右键松开
--------------------------------------------------------------------------------------------------------------------------------------------------------
代码：
private declare sub mouse_event lib "user32" ( byval dwflagslong, byvalas long, byvalas long, byval cbuttonslong, byval dwextrainfolong )
st mouseeventf_leftdown = &h2
st mouseeventf_leftup = &h4
st mouseeventf_middledown = &h20
st mouseeventf_middleup = &h40
st mouseeventf_move = &h1
st mouseeventf_absolute = &h8000
st mouseeventf_rightdown = &h8
st mouseeventf_rightup = &h10
'这里是 鼠标左键按下 和松开两个事件的组合即一次单击
mouse_event mouseeventf_leftdownmouseeventf_leftup, 0, 0, 0, 0
'模拟鼠标右键单击事件
mouse_event mouseeventf_rightdownmouseeventf_rightup, 0, 0, 0, 0
'两次连续的鼠标左键单击事件 构成一次鼠标双击事件
mouse_event mouseeventf_leftdownmouseeventf_leftup, 0, 0, 0, 0
mouse_event mouseeventf_leftdownmouseeventf_leftup, 0, 0, 0, 0</p>