pinx = Plugin.Sys.GetScRX()
Call 平滑移動鼠標to(pinx, 0, 5000, 0, 0,10)
//這裏展示了鼠標 歷時5秒 從屏幕左上角移動到屏幕右上角的例子,下面是參數說明
//參數:平滑靈敏度說明:整形,範圍1~其實坐標差最大值,鼠標單次跨越的距離。
//移動總時間越長或起始坐標距離越短,平滑靈敏度越小越好
//反之,越大越準確,但壹般不超過起始坐標最大差值的10%
//設置靈敏度是為了調節delay函數延時太短時,無法準確執行延時
Function 平滑移動鼠標to(終點坐標px,終點坐標py,移動時間,起點坐標beginx,起點坐標beginy,平滑靈敏度)
dim mx
dim x,y
dim tx,ty
x=起點坐標beginx
y=起點坐標beginy
tx=abs(x-終點坐標px)
ty=abs(y-終點坐標py)
if tx>=ty
mx=tx
else
mx=ty
end if
if mx>0
for i = 0 to mx step 平滑靈敏度
sx=int((終點坐標px*i+x*(mx-i))/mx)
sy=int((終點坐標py*i+y*(mx-i))/mx)
moveto sx,sy
delay int(移動時間/mx*平滑靈敏度)
Next
else
delay 移動時間
end if
MoveTo 終點坐標px, 終點坐標py
平滑移動鼠標to=true
End Function