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

学习游戏辅助制作：按键精灵模拟鼠标动作防检测来源：按键学院【按键精灵】有些游戏会检测到鼠标动作.频繁相同的点击很容易让游戏检测到我们使用了按键，这样的情况下，我们需要模拟鼠标移动，让鼠标像真是手动操作一样，慢慢的移动到终点。? ?? ?论坛里的一位大牛：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)0时,返回值为-1.当=0时,返回值为0LeftDown 1MoveTo x, (k * x + b)LeftUp 1 Delay 1Next代码2?作者：_雪狼Call 鼠标慢慢跑(100,100,800,600,5)Sub 鼠标慢慢跑(x1, y1, x2, y2,time1) Dim a, x, y, i x = x1 : y = y1 a = x2 / y2MoveTo x1, y1 For i = y To y2-1 y = y + 1 x = y * aLeftDown 1MoveTo x, y Delay time1 NextEnd Sub代码3-变速??作者：playandhappy?//点到点直线移动，鼠标移动速度开始快后来越来越慢Call 老鼠慢慢跑(100,100,800,600,100)Sub 老鼠慢慢跑(x1,y1,x2,y2,times)MoveTo x1,y1 While abs(x1-x2)5 or abs(y1-y2)5GetCursorPos x1, y1LeftDown 1MoveR (x2 - x1) / 4, (y2 - y1) / 4LeftUp 1 Delay times WendLeftDown 1MoveTo x2, y2LeftUp 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) / nLeftDown 1MoveR x, yLeftUp 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, PianYiYGetCursorPoscurx, cury If abs(curx - x) mousestep And abs(cury - y) mousestep Then LeftDown 1MoveTo x, yLeftUp 1 Exit Sub End IfXstep = (x - curx) / mousestepYstep = (y - cury) / mousestep If abs(Xstep) abs(Ystep) Then PianYiX = mousestep * sgn(Xstep)Pian