1、代码1作者：VBS技术者//tD几毫秒移动一点call鼠标慢慢跑(100巳呀屋饔,100,800,600,5)Sub鼠标慢慢跑(X1,Y1,X2,Y2,tD)Dimxl,yl,xc,yc,end旌忭檀挢x,endy,sx,syDimFORC,ixl=abs(clng(X1)-clng(X2))yl=abs(clng(y1)-clng(y2))EndX=X2EndY=Y2XC=1YC=1sx=x1sy=y1Ifclng(X1)>=clng(X2)ThenEndX=X1xc=-1EndIfIfclng(Y1)>=clng(Y2)ThenEndY=Y1yc=-1EndIfIfxl>ylThenFORC=xlElseFORC=ylEndIfFori=1ToFORC+1LeftDown1MoveTosx,syLeftUp1Delayclng(tD)sx=sx+xcsy=sy+ycIfsx=endxThenxc=0EndIfIfsy=endyThenyc=0EndIfNextEndSub
2、代码2作者：dinwidi//点到点直线移动，先走x轴横坐标直线，然后转折走y轴纵坐标直线，直至终点(这是游戏里常用的单步移动的原理)Call老鼠慢慢跑(100,100,800,600,5)Sub老鼠慢慢跑(x1,y1,x2,y2,t)MoveTox1,y1i=0Forabs(x1-x2)LeftDown1MoveTox1+(x2-x1)/abs(x2-x1)*i,y1DelaytLeftUp1i=i+1Nexti=0Forabs(y1-y2)+1LeftDown1MoveTox2,y1+(y2-y1)/abs(y2-y1)*iLeftUp1Delayti=i+1NextEndSub
