Question

求梦幻西游鼠标偏移源代码，给与100RMB

Answer 1

Sub 飘移
rem 开始
x1=3
y1=22
x2=643
y2=502
Rem 鼠标位子
VBSCall FindColor(x1,y1,x2,y2,"c87c20",x3,y3)
If x3>0 and y3>0
IfColor x3+1,y3+1,A86c30,0
IfColor x3+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
VBS x4=Abs(x-x3)
VBS y4=Abs(y-y3)
If x4>50 or y4>50
If x5>10 / /想移动快点可以把这里的10全改成20，30，50之类的
x5=10
EndIf
If x5<-10
x5=-10
EndIf
If y5>10
y5=10
EndIf
If y5<-10
y5=-10
EndIf
MoveR x5,y5
VBSCall GetCursorPos(x3,y3)
Goto 鼠标位子计算
EndIf
If x4<4 and y4<4
Else
MoveR x5,y5
Delay 100
Goto 鼠标位子
EndIf
Return
//以上脚本子程序已经把梦幻鼠标的漂移问题解决了，要想更完美，在此基础上改
//---------------------------------------------------------------------------------------------------
//例子：
//x=100
//y=100
//gosub 飘移
//不需要用moveto了
//---------------------------------------------------------------------------------------------------
//运行环境：32色,经典主题，窗口位置0，0
//---------------------------------------------------------------------------------------------------

Answer 2

按键精灵？