怎樣用VB代碼實現鼠標單擊的效果

Private?Declare?Sub?mouse_event?Lib?"user32"?(ByVal?dwFlags?As?Long,?ByVal?dx?As?Long,?ByVal?dy?As?Long,?ByVal?cButtons?As?Long,?ByVal?dwExtraInfo?As?Long)

Private?Const?MOUSEEVENTF_ABSOLUTE?=?&H8000?'指定鼠標使用絕對坐標系，此時，屏幕在水平和垂直方向上均勻分割成65535×65535個單元

Private?Const?MOUSEEVENTF_MOVE?=?&H1?'移動鼠標

Private?Const?MOUSEEVENTF_LEFTDOWN?=?&H2?'模擬鼠標左鍵按下

Private?Const?MOUSEEVENTF_LEFTUP?=?&H4?'模擬鼠標左鍵擡起

Private?Const?SW?=?1024

Private?Const?SH?=?768

Private?Sub?Screen_Click(ByVal?x?As?Long,?ByVal?y?As?Long)

mw?=?x?/?SW?*?65535

mh?=?y?/?SH?*?65535

mouse_event?MOUSEEVENTF_ABSOLUTE?+?MOUSEEVENTF_MOVE,?mw,?mh,?0,?0

mouse_event?MOUSEEVENTF_LEFTDOWN?Or?MOUSEEVENTF_LEFTUP,?0,?0,?0,?0

End?Sub

Private?Sub?Command1_Click()

Screen_Click?512,?384?'點擊Command1之後，模擬點擊屏幕中間

End?Sub

Private?Sub?Command2_Click()

Print?Rnd

End?Sub

Private?Sub?Form_Load()

Me.Height?=?Me.Width

Command2.Move?(Me.ScaleWidth?-?Command2.Width)?/?2,?(Me.ScaleHeight?-?Command2.Height)?/?2

End?Sub