学习游戏辅助制作：模拟鼠标真实移动直线+转折
1、代码1 作者：VBS技术者
//tD几毫秒移动一点
call 鼠标慢慢跑(100,100,800,600,5)
Sub 鼠标慢慢跑(X1,Y1,X2,Y2,tD)
Dim xl,yl,xc,yc,endx,endy,sx,sy
Dim FORC,i
xl=abs(clng(X1)-clng(X2))
yl=abs(clng(y1)-clng(y2))
EndX = X2
EndY = Y2
XC=1
YC=1
sx=x1
sy=y1
If clng(X1)>=clng(X2) Then
EndX = X1
xc = -1
End If
If clng(Y1)>=clng(Y2) Then
EndY = Y1
yc = -1
End If
If xl>yl Then
FORC = xl
Else
FORC = yl
End If
For i = 1 To FORC+1
LeftDown 1
MoveTo sx, sy
LeftUp 1
Delay clng(tD)
sx = sx + xc
sy = sy + yc
If sx=endx Then
xc = 0
End If
If sy=endy Then
yc=0
End If
Next
End Sub
2、代码2 作者：dinwidi
//点到点直线移动，先走x轴横坐标直线，然后转折走y轴纵坐标直线，直至终点 (这是游戏里常用的单步移动的原理)
Call 老鼠慢慢跑(100,100,800,600,5)
Sub 老鼠慢慢跑(x1, y1, x2, y2, t)
MoveTo x1,y1
i = 0
For abs(x1 - x2)
LeftDown 1
MoveTo x1+(x2-x1)/abs(x2-x1)*i,y1
Delay t
LeftUp 1
i = i + 1
Next
i = 0
For abs(y1 - y2)+1
LeftDown 1
MoveTo x2, y1 + (y2 - y1) / abs(y2 - y1) * i
LeftUp 1
Delay t
i = i + 1
Next
End Sub