vb編程 求鼠標左鍵自動單擊的編程

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

然後在form1的load事件中添加：

mouse_event (MOUSEEVENTF_LEFTDOWN ,2500,2500,0,0)

mouse_event(MOUSEEVENTF_LEFTUP,2500,2500,0,0)

試試這樣行不行