Sub飘移
rem开始
x1=3
y1=22
x2=643
y2=502
Rem鼠标位子
VBSCallFindColor(x1,y1,x2,y2,c87c20,x3,y3)
Ifx3>0andy3>0
IfColorx3+1,y3+1,A86c30,0
IfColorx3+3,y3+3,804c28,0
x3=x3-19-3
y3=y3-18-3
Else
x1=x3+1
y1=y3+1
Goto鼠标位子
EndIf
Else
x1=x3+1
y1=y3+1
Goto鼠标位子
EndIf
Else
Goto鼠标位子
EndIf
Rem鼠标位子计算
x5=x-x3
y5=y-y3
VBSx4=Abs(x-x3)
VBSy4=Abs(y-y3)
Ifx4>50ory4>50
Ifx5>10//想移动快点可以把这里的10全改成20，30，50之类的
x5=10
EndIf
Ifx5<-10
x5=-10
EndIf
Ify5>10
y5=10
EndIf
Ify5<-10
y5=-10
EndIf
MoveRx5,y5
VBSCallGetCursorPos(x3,y3)
Goto鼠标位子计算
EndIf
Ifx4<4andy4<4
Else
MoveRx5,y5
Delay100
Goto鼠标位子
EndIf
Return
//以上脚本子程序已经把梦幻鼠标的漂移问题解决了，要想更完美，在此基础上改
//---------------------------------------------------------------------------------------------------
//例子：
//x=100
//y=100
//gosub飘移
//不需要用moveto了
//---------------------------------------------------------------------------------------------------
//运行环境：32色,经典主题，窗口位置0，0
//---------------------------------------------------------------------------------------------------
