学习游戏辅助制作：按键精灵模拟鼠标动作防检测.docx

学习游戏辅助制作：按键精灵模拟鼠标动作防检测来源：按键学院 【按键精灵】有些游戏会检测到鼠标动作.频繁相同的点击很容易让游戏检测到我们使用了按键，这样的情况下，我们需要模拟鼠标移动，让鼠标像真是手动操作一样，慢慢的移动到终点。 论坛里的一位大牛：we似曾相识 曾经开展了老鼠慢慢跑的比赛征集帖，收集了各式各样模拟鼠标移动的代码，我们一起来看看内容提要 1、点到点模拟鼠标真实移动直线 2、点到点模拟鼠标真实移动直线+转折 3、点到点模拟鼠标真实移动直线+振幅 4、点到点模拟鼠标真实移动曲线场景 在mspaint画图工具中，让鼠标从点100，100移动到点800，600NO.1-点到点模拟鼠标真实移动直线代码1作者：林家铺子x1 = 800 : y1 = 600 /目标点 x2 = 100 : y2 = 100/起始点MoveTo x2,y2k = (y2 - y1) / (x2 - x1)b = y2 - k * x2For x = x2 To x1 Step sgn(x1 - x2) /sgn函数为返回表示数字符号的整数。当(x1 - x2)0时,返回值为1.当(x1 - x2)5 or abs(y1-y2)5 GetCursorPos x1, y1 LeftDown 1 MoveR (x2 - x1) / 4, (y2 - y1) / 4 LeftUp 1 Delay times Wend LeftDown 1 MoveTo x2, y2 LeftUp 1End Sub代码4-移动次数作者：fuyong198010222/点到点直线移动，并且可以设置移动几次到达目标地点Dim a, b, c, d ,n,t /起点（100,100),终点（800,600）a = 100 : b = 100 : c = 800 : d = 600 /匀速直线移动UserVar n=100 多少次移动到位UserVar t=50 每一次移动相隔多少时间Call 老鼠慢慢跑()Sub 老鼠慢慢跑 MoveTo a, b Delay t For n x = (c - a) / n : y = (d - b) / n LeftDown 1 MoveR x, y LeftUp 1 Delay t Next End Sub代码5-移动间隔作者：xuyuzuiMoveTo 100,100Call 老鼠慢慢跑(800, 600, 5, 50)Sub 老鼠慢慢跑(x, y, mousestep, mouseDelay) x,y : 移动终点坐标 mousestep: 移动间距 mouseDelay : 移动时间间隔(ms) Dim Xstep, Ystep Dim curx, cury, PianYiX, PianYiY GetCursorPos curx, cury If abs(curx - x) mousestep And abs(cury - y) abs(Ystep) Then PianYiX = mousestep * sgn(Xstep) PianYiY = (y - cury) / abs(Xstep) Else PianYiX = (x - curx) / abs(Ystep) PianYiY = mousestep * sgn(Ystep) End If LeftDown 1 MoveR PianYiX, PianYiY LeftUp 1 Delay mouseDelay Call 老鼠慢慢跑(x, y, mousestep, mouseDelay)End SubNO.2-点到点模拟鼠标真实移动直线+转折代码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 xlyl 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作者：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 NextEnd SubNO.3-点到点模拟鼠标真实移动直线+振动代码作者：lucky619486332/点到点直线移动，移动中鼠标轻微震动 Call 老鼠慢慢跑(100,100,800,600,50)Sub 老鼠慢慢跑(x1, y1, x2, y2, t) MoveTo x1,y1 While x2 - x1 0 and y2 - y1 0 d1 = x2 - x1 : d2 = y2 - y1 If abs(d1) = abs(d2) Then xt = int(abs(d1 / d2) For xt LeftDown 1 MoveR d1 / abs(d1), 0 LeftUp 1 Delay t Next LeftDown 1 MoveR 0, d2 / abs(d2) LeftUp 1 Delay t Else yt=int(abs(d2 / d1) For yt LeftDown 1 MoveR 0, d2 / abs(d2) LeftUp 1 Delay t Next LeftDown 1 MoveR d1 / abs(d1), 0 LeftUp 1 Delay t End If GetCursorPos x1, y1 Wend End SubNO.4-点到点模拟鼠标真实移动曲线 代码作者：xxx_mailSub 鼠标慢慢跑(x1,y1,振幅,周期) Dim x0,y0,x,y, 距离,q0,q1,r,t,a x0 = 100 y0 = 100 MoveTo x0,y0 距离=sqr(x1-x0)2+(y1-y0)2) q1 = 角度计算(x1-x0),(y1-y0) pi = Atn(1)*8 a = 距离/pi t=周期/pi For i=0 To pi step 0.001 x=x1-距离+i*a y =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) LeftDown 1 MoveTo x, y LeftUp 1 Delay t NextEnd SubFunction 角度计算(x, y) If x