快速眼動開始
x1=3
y1=22
x2=643
y2=502
Rem鼠標座
VBSCall FindColor(x1,y1,x2,y2," c87c20 ",x3,y3)
如果x3 & gt0和y3 & gt0
IfColor x3+1,y3+1,A86c30,0
IfColor x3+3,y3+3,804c28,0
x3=x3-19-3
y3=y3-18-3
其他
x1=x3+1
y1=y3+1
轉到鼠標座位
EndIf
其他
x1=x3+1
y1=y3+1
轉到鼠標座位
EndIf
其他
轉到鼠標座位
EndIf
Rem鼠標座位計算
x5=x-x3
y5=y-y3
VBS x4=Abs(x-x3)
VBS y4=Abs(y-y3)
如果x4 & gt50或y4 & gt50
如果x5 & gt10//如果想移動更快,可以把這裏的10全部改成20,30,50等等。
x5=10
EndIf
如果x5 & lt-10
x5=-10
EndIf
如果y5 & gt10
y5=10
EndIf
如果y5 & lt-10
y5=-10
EndIf
移動器x5、y5
VBSCall GetCursorPos(x3,y3)
轉到鼠標座位計算
EndIf
如果x4 & lt4和y4 & lt四
其他
移動器x5、y5
延遲100
轉到鼠標座位
EndIf
返回
//上面的腳本子程序已經解決了夢想鼠標的漂移問題。想更完美,就在這個基礎上改。
// -
//示例:
//x=100
//y=100
//gosub漂移
//不需要使用moveto。
// -
//運行環境:32色,經典主題,窗口位置0,0。
// -