1. 程式人生 > >VB 模擬滑鼠點選 Mouse_Event

VB 模擬滑鼠點選 Mouse_Event

PrivateDeclareSub mouse_event Lib"user32" (ByVal dwFlags AsLongByVal dx AsLongByVal dy AsLongByVal cButtons AsLongByVal dwExtraInfo AsLong)

Const MOUSEEVENTF_LEFTDOWN =&H2
Const MOUSEEVENTF_LEFTUP =&H4

PrivateSub Command1_Click()
mouse_event MOUSEEVENTF_LEFTDOWN 
Or MOUSEEVENTF_LEFTUP, 0
000End Sub