'取得系統時間
Private?Declare?Function?timeGetTime?Lib?"winmm.dll"?()?As?Long
'設置鼠標坐標
Private?Declare?Function?SetCursorPos?Lib?"user32"?(ByVal?x?As?Long,?ByVal?y?As?Long)?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?Sub?Command1_Click()
Do
zhixing?765,?725,?5000
zhixing?765,?725,?5000
zhixing?920,?300,?5000
zhixing?765,?725,?5000
zhixing?765,?725,?5000
zhixing?920,?440,?3100000
Loop?'不建議沒有退出條件的循環，這樣是死循環
End?Sub
Private?Sub?zhixing(x?As?Long,?y?As?Long,?time?As?Long)?'按照妳的要求執行，x，y為坐標，time為延時時間
SetCursorPos?x,?y?'設置鼠標坐標
mouse_event?&H2?Or?&H4,?0,?0,?0,?0?'模擬鼠標單擊，&H2為按下左鍵，&H4為放開左鍵
yanshi?time?'延時，也可以用sleep函數，但我試了壹下，出現沒有響應的情況
End?Sub
Private?Sub?yanshi(ByVal?n?As?Long)?'延時函數
Dim?tm1,?tm2?As?Long
tm1?=?timeGetTime
Do
tm2?=?timeGetTime
If?(tm2?-?tm1)?>?n?Then?Exit?Do
DoEvents
Loop
End?Sub