快速眼動開始
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。
// -