//tD几毫秒移动一点
鼠标慢慢跑 800,100,500,200,10
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
MoveTo sx,sy
Delay clng(tD)
sx = sx + xc
sy = sy + yc
If sx=endx then
xc = 0
end if
If sy=endy then
yc=0