1、内容提要1、点到点模拟鼠标真实移动——直线2、点到点模拟鼠标真实移动——直线+转折3、点到点模拟鼠标真实移动——直线+振幅4、点到点模拟鼠标真实移动——曲线
2、场景在mspaint画图工具中，让鼠标从点100，100移动到点800，600
3、NO.1-点到点模拟鼠标真实移动——直线代码1作者：林家铺子x1=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
4、代码2作者：_雪狼Call鼠标慢慢跑(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
5、代码3-变速作者：playandhappy//点到点直线移动，鼠标移动速度开始快后来越来越慢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-移动次数作者：fuyong198010222//点到点直线移动，并且可以设置移动几次到达目标地点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
6、代码5-移动间隔作者：xuyuzuiMoveTo100,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
7、NO.2-点到点模拟鼠标真实移动——直线+转折代码1作者：VBS技术者//tD几毫秒移动一点call鼠标慢慢跑(100,100,800,600,5)Sub鼠标慢慢跑(X1,Y1,X2,Y2,tD)Dimxl,yl,xc,yc,endx,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
8、代码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+1NextEndSubNO.3-点到点模拟鼠标真实移动——直线+振动代码作者：lucky619486332//点到点直线移动，移动中鼠标轻微震动Call老鼠慢慢跑(100,100,800,600,50)Sub老鼠慢慢跑(x1,y1,x2,y2,t)MoveTox1,y1Whilex2-x1<>0andy2-y1<>0d1=x2-x1:d2=y2-y1Ifabs(d1)>=abs(d2)Thenxt=int(abs(d1/d2))ForxtLeftDown1MoveRd1/abs(d1),0LeftUp1DelaytNextLeftDown1MoveR0,d2/abs(d2)LeftUp1DelaytElseyt=int(abs(d2/d1))ForytLeftDown1MoveR0,d2/abs(d2)LeftUp1DelaytNextLeftDown1MoveRd1/abs(d1),0LeftUp1DelaytEndIfGetCursorPosx1,y1WendEndSub
9、NO.4-点到点模拟鼠标真实移动——曲线代码作者：xxx_mailSub鼠标慢慢跑(x1,y1,振幅,周期)Dimx0,y0,x,y,距离,q0,q1,r,t,ax0=100y0=100MoveTox0,y0距离=sqr((x1-x0)^2+(y1-y0)^2)q1=角度计算((x1-x0),(y1-y0))pi=Atn(1)*8a=距离/pit=周期/piFori=0Topistep0.001x=x1-距离+i*ay=y1+振幅*sin(i)q0=角度计算(x-x1,y-y1)r=sqr((x-x1)^2+(y-y1)^2)x=x1+r*Cos((q0+q1))y=y1+r*Sin((q0+q1))LeftDown1MoveTox,yLeftUp1DelaytNextEndSubFunction角度计算(x,y)Ifx=0Thenx=0.0001EndIfIfx>0andy>=0Then角度计算=(Atn(y/x))ElseIfx>0andy<0Then角度计算=(Atn(y/x))+piElseIfx<0Then角度计算=(Atn(y/x))+pi/2EndIfEndFunction
