学习游戏辅助制作：点到点模拟鼠标真实移动代码

1、代码1x1=800:y1=600//目标点x2=100:y2=100//起始点MoveTox2,y2k=(y2-y1)/(x2-x1)b=y2-k*x2Forx=x2Tox1Stepsgn(x1-x2)//sgn函数为返回表示数字符号的整数。当(x1-x2)>0时,返回值为1.当(x1-x2)<0时,返回值为-1.当=0时,返回值为0LeftDown1MoveTox,(k*x+b)LeftUp1Delay1Next

2、代码2Call鼠标慢慢跑(100,100,800,600,5)Sub鼠标慢慢跑(x1,y1,x2,y2,time1)Dima,x,y,ix=x1:y=y1a=x2/y2MoveTox1,y1Fori=yToy2-1y=y+1x=y*aLeftDown1MoveTox,yDelaytime1NextEndSub

3、代码3//点到点直线移动，鼠标移动速度开始快后来越来越慢Call老鼠慢慢跑(100,100,800,600,100)Sub老鼠慢慢跑(x1,y1,x2,y2,times)MoveTox1,y1Whileabs(x1-x2)>5orabs(y1-y2)>5GetCursorPosx1,y1LeftDown1MoveR(x2-x1)/4,(y2-y1)/4LeftUp1DelaytimesWendLeftDown1MoveTox2,y2LeftUp1EndSub

4、代码4//点到点直线移动，并且可以设置移动几次到达目标地点Dima,b,罕铞泱殳c,d,n,t//起点（100,100),终点（800,600）a=100:b=100:c=800:d=600//匀速直线移动UserVarn=100"多少次移动到位"UserVart=50"每一次移动相隔多少时间"Call老鼠慢慢跑()Sub老鼠慢慢跑MoveToa,bDelaytFornx=(c-a)/n:y=(d-b)/nLeftDown1MoveRx,yLeftUp1DelaytNextEndSub

5、代码5MoveTo100,100Call老鼠慢慢跑(800,600,5,猱蝰逾鸾50)Sub老鼠慢慢跑(x,y,mousestep,mouseDelay)'x,y:移动终点坐标'mousestep:移动间距'mouseDelay:移动时间间隔(ms)DimXstep,YstepDimcurx,cury,PianYiX,PianYiYGetCursorPoscurx,curyIfabs(curx-x)<mousestepAndabs(cury-y)<mousestepThenLeftDown1MoveTox,yLeftUp1ExitSubEndIfXstep=(x-curx)/mousestepYstep=(y-cury)/mousestepIfabs(Xstep)>abs(Ystep)ThenPianYiX=mousestep*sgn(Xstep)PianYiY=(y-cury)/abs(Xstep)ElsePianYiX=(x-curx)/abs(Ystep)PianYiY=mousestep*sgn(Ystep)EndIfLeftDown1MoveRPianYiX,PianYiYLeftUp1DelaymouseDelayCall老鼠慢慢跑(x,y,mousestep,mouseDelay)EndSub