Timer事件引發時,先用SetCursorPos函數設置鼠標位置(妳所要指定的位置),然後用mouse_event函數引發Mouse點擊事件(MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP)。
API函數聲明及常量如下:
'設置鼠標位置
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
'獲取鼠標位置
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
'鼠標事件
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_MOVE = &H1 ' mouse move
Private Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
Private Const MOUSEEVENTF_LEFTUP = &H4 ' left button up
Private Const MOUSEEVENTF_RIGHTDOWN = &H8 ' right button down
Private Const MOUSEEVENTF_RIGHTUP = &H10 ' right button up