查看: 107981|回复: 677	[技术交流] 【院刊】-【201410期】模拟真实鼠标动作防检测——“老鼠慢慢跑... [复制链接]

发送短消息 UID 2220985 帖子 396 精华 0 鲜花 522 朵 铜币 2506 个 银币 334 个 性别 在线时间 480 注册时间 2013-10-27 最后登录 2020-05-22 1743185898 查看公共资料 搜索主题 搜索帖子 果兒 果兒 组别初中三年级 UID2220985 帖子396 精华0 鲜花522 朵 铜币2506 个 银币334 个 在线时间480 注册时间2013-10-27 按键精灵开发者6级 可通过提升认证等级来升级勋章：rz.anjian.com 论坛MM 按键论坛女性用户勋章 按键学院 按键学院专属勋章，按键学院学员或文章被院刊收入可领取	1# 字体大小: t T 发表于 2014-10-16 15:13 | |只看楼主 模拟真实鼠标动作防检测——“老鼠慢慢跑” 有些游戏会检测到鼠标动作.频繁相同的点击很容易让游戏检测到我们使用了按键，这样的情况下，我们需要模拟鼠标移动，让鼠标像真是手动操作一样，慢慢的移动到终点。 论坛里的一位大牛：we似曾相识 曾经开展了"老鼠慢慢跑"的比赛征集帖，收集了各式各样模拟鼠标移动的代码，我们一起来看看~~~ 内容提要 1点到点模拟鼠标真实移动——直线 2点到点模拟鼠标真实移动——直线+转折 3点到点模拟鼠标真实移动——直线+振幅 4点到点模拟鼠标真实移动——曲线 场景 在mspaint画图工具中，让鼠标从点100，100 移动到点800，600 NO.1-点到点模拟鼠标真实移动——直线 代码1 作者：林家铺子 x1 = 800 : y1 = 600 //目标点 x2 = 100 : y2 = 100//起始点 MoveTo x2,y2 k = (y2 - y1) / (x2 - x1) b = y2 - k * x2 For x = x2 To x1 Step sgn(x1 - x2) //sgn函数为返回表示数字符号的整数。当(x1 - x2)>0时,返回值为1.当(x1 - x2)<0时,返回值为-1.当=0时,返回值为0 LeftDown 1 MoveTo x, (k * x + b) LeftUp 1 Delay 1 Next 复制代码 运行效果： 您所在的用户组无法下载或查看附件 代码2 作者：_雪狼 Call 鼠标慢慢跑(100,100,800,600,5) Sub 鼠标慢慢跑(x1, y1, x2, y2,time1) Dim a, x, y, i x = x1 : y = y1 a = x2 / y2 MoveTo x1, y1 For i = y To y2-1 y = y + 1 x = y * a LeftDown 1 MoveTo x, y LeftUp 1 Delay time1 Next End 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)>5 GetCursorPos x1, y1 LeftDown 1 MoveR (x2 - x1) / 4, (y2 - y1) / 4 LeftUp 1 Delay times Wend LeftDown 1 MoveTo x2, y2 LeftUp 1 End 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-移动间隔 作者：xuyuzui MoveTo 100,100 Call 老鼠慢慢跑(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) < mousestep Then LeftDown 1 MoveTo x, y LeftUp 1 Exit Sub End If Xstep = (x - curx) / mousestep Ystep = (y - cury) / mousestep If abs(Xstep) > 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 Sub 复制代码 运行效果： 您所在的用户组无法下载或查看附件 NO.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 xl>yl 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 Next End Sub 复制代码 运行效果： 您所在的用户组无法下载或查看附件 NO.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 Sub 复制代码 运行效果： 您所在的用户组无法下载或查看附件 NO.4-点到点模拟鼠标真实移动——曲线 代码 作者：xxx_mail Sub 鼠标慢慢跑(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 Next End Sub Function 角度计算(x, y) If x = 0 Then x = 0.0001 End If If x > 0 and y >= 0 Then 角度计算 = (Atn(y / x)) ElseIf x > 0 and y < 0 Then 角度计算 = (Atn(y / x))+pi ElseIf x < 0 Then 角度计算 = (Atn(y / x)) + pi/2 End If End Function 复制代码 运行效果： 您所在的用户组无法下载或查看附件 NO.5 为了加强模拟效果，我们可以将上述代码中移动间隔时间、移动距离使用随机数来代替。 如果童鞋们对于本帖里的内容有疑问或者建议，欢迎跟帖讨论~~ 本文由按键学院提供技术支持 2个月学会赚大钱的脚本，报名倒计时4天 按键学院10月实战班卷土来袭 已有9评分我要评分查看所有评分
	n15976906190 最后编辑于 2020-03-15 13:22:56 本主题由 超级版主 瑞祥幽冥狼 于 2023/7/16 16:13:53 执行 审核帖子 操作 点赞 按键学院免费交流群：376122403 按键学院招生计划 按键学院系统教程
	回顶部

发送短消息 UID 155232 帖子 13 精华 0 鲜花 0 朵 铜币 29 个 银币 0 个 性别 在线时间 1140 注册时间 2007-11-04 最后登录 2016-05-09 7472@hej.com 查看公共资料 搜索主题 搜索帖子 470117358 470117358 组别幼儿园 UID155232 帖子13 精华0 鲜花0 朵 铜币29 个 银币0 个 在线时间1140 注册时间2007-11-04	2# 字体大小: t T 发表于 2016-04-27 16:53 | |只看该用户 支持下啊
	回顶部

发送短消息 UID 1893452 帖子 93 精华 0 鲜花 -1 朵 铜币 259 个 银币 -1 个 性别 在线时间 2220 注册时间 2013-06-09 最后登录 2021-07-06 805475874 查看公共资料 搜索主题 搜索帖子 mjm28 mjm28 组别小学五年级 UID1893452 帖子93 精华0 鲜花-1 朵 铜币259 个 银币-1 个 在线时间2220 注册时间2013-06-09 脚本作者 商业小精灵作者绑定账号后自动赠送	3# 字体大小: t T 发表于 2016-04-27 18:50 | |只看该用户 201410期】模拟真实鼠标动作防检测——“老鼠慢慢跑”修改
	回顶部

发送短消息 UID 2816094 帖子 16 精华 0 鲜花 0 朵 铜币 82 个 银币 0 个 性别 在线时间 320 注册时间 2014-10-19 最后登录 2019-11-04 18300617621 查看公共资料 搜索主题 搜索帖子 xiaowudi xiaowudi 组别幼儿园 UID2816094 帖子16 精华0 鲜花0 朵 铜币82 个 银币0 个 在线时间320 注册时间2014-10-19	4# 字体大小: t T 发表于 2016-07-21 11:06 | |只看该用户 大家都好厉害啊！！！
	回顶部

发送短消息 UID 4121457 帖子 413 精华 0 鲜花 190 朵 铜币 10558 个 银币 210 个 性别 在线时间 15880 注册时间 2016-09-16 最后登录 2021-02-08 查看公共资料 搜索主题 搜索帖子 yhpatjdy 组别小学三年级 UID4121457 帖子413 精华0 鲜花190 朵 铜币10558 个 银币210 个 在线时间15880 注册时间2016-09-16 按键精灵开发者6级 可通过提升认证等级来升级勋章：rz.anjian.com	5# 字体大小: t T 发表于 2016-09-21 16:37 | |只看该用户 支持
	承接脚本软件程序定制开发 联系作者请点击，或加QQ：1945994728
	回顶部

发送短消息 UID 103598 帖子 37 精华 0 鲜花 -1 朵 铜币 203 个 银币 0 个 性别 在线时间 800 注册时间 2006-11-17 最后登录 2018-02-03 查看公共资料 搜索主题 搜索帖子 yanggo yanggo 组别小学二年级 UID103598 帖子37 精华0 鲜花-1 朵 铜币203 个 银币0 个 在线时间800 注册时间2006-11-17	6# 字体大小: t T 发表于 2016-10-14 22:40 | |只看该用户 这个给力~~~！
	回顶部

发送短消息 UID 3275444 帖子 9 精华 0 鲜花 -1 朵 铜币 47 个 银币 -1 个 性别 在线时间 660 注册时间 2015-05-28 最后登录 2017-04-22 查看公共资料 搜索主题 搜索帖子 maichangtai maichangtai 组别小学一年级 UID3275444 帖子9 精华0 鲜花-1 朵 铜币47 个 银币-1 个 在线时间660 注册时间2015-05-28	7# 字体大小: t T 发表于 2016-10-17 12:54 | |只看该用户 膜拜，来学习
	回顶部

发送短消息 UID 3347483 帖子 30 精华 0 鲜花 -9 朵 铜币 82 个 银币 -9 个 性别 在线时间 2240 注册时间 2015-07-09 最后登录 2017-05-09 查看公共资料 搜索主题 搜索帖子 18280419520 18280419520 组别小学二年级 UID3347483 帖子30 精华0 鲜花-9 朵 铜币82 个 银币-9 个 在线时间2240 注册时间2015-07-09	8# 字体大小: t T 发表于 2016-10-21 10:27 | |只看该用户 交换机和交换机
	回顶部

发送短消息 UID 4171477 帖子 5 精华 0 鲜花 0 朵 铜币 33 个 银币 0 个 性别 在线时间 280 注册时间 2016-10-20 最后登录 2016-11-03 查看公共资料 搜索主题 搜索帖子 wllove1688 wllove1688 组别幼儿园 UID4171477 帖子5 精华0 鲜花0 朵 铜币33 个 银币0 个 在线时间280 注册时间2016-10-20	9# 字体大小: t T 发表于 2016-10-21 15:08 | |只看该用户 jkhkhjgjghjgjh
	回顶部

发送短消息 UID 4159313 帖子 35 精华 0 鲜花 0 朵 铜币 90 个 银币 0 个 性别 在线时间 1420 注册时间 2016-10-12 最后登录 2017-01-04 913764799 查看公共资料 搜索主题 搜索帖子 ayst105 ayst105 组别小学二年级 UID4159313 帖子35 精华0 鲜花0 朵 铜币90 个 银币0 个 在线时间1420 注册时间2016-10-12	10# 字体大小: t T 发表于 2016-10-21 16:41 | |只看该用户 你好看看
	回顶部

发送短消息 UID 2072687 帖子 47 精华 0 鲜花 0 朵 铜币 202 个 银币 0 个 性别 在线时间 1580 注册时间 2013-08-13 最后登录 2020-10-25 22717860 查看公共资料 搜索主题 搜索帖子 dragon078 dragon078 组别小学二年级 UID2072687 帖子47 精华0 鲜花0 朵 铜币202 个 银币0 个 在线时间1580 注册时间2013-08-13 按键精灵开发者2级 可通过提升认证等级来升级勋章：rz.anjian.com	11# 字体大小: t T 发表于 2016-10-21 21:59 | |只看该用户 不错的贴子
	回顶部

发送短消息 UID 2331752 帖子 405 精华 0 鲜花 23 朵 铜币 1381 个 银币 170 个 性别 在线时间 14280 注册时间 2014-01-09 最后登录 2023-05-12 896825328 查看公共资料 搜索主题 搜索帖子 zx896825328 zx896825328 组别初中三年级 UID2331752 帖子405 精华0 鲜花23 朵 铜币1381 个 银币170 个 在线时间14280 注册时间2014-01-09 按键精灵开发者4级 可通过提升认证等级来升级勋章：rz.anjian.com	12# 字体大小: t T 发表于 2016-10-21 22:57 | |只看该用户 看看吧
	回顶部

发送短消息 UID 1455800 帖子 20 精华 0 鲜花 0 朵 铜币 94 个 银币 0 个 性别 在线时间 560 注册时间 2012-11-29 最后登录 2019-09-25 290884141 查看公共资料 搜索主题 搜索帖子 y1045 y1045 组别幼儿园 UID1455800 帖子20 精华0 鲜花0 朵 铜币94 个 银币0 个 在线时间560 注册时间2012-11-29	13# 字体大小: t T 发表于 2016-10-23 02:09 | |只看该用户 看看看看看看看看
	回顶部

发送短消息 UID 4176710 帖子 6 精华 0 鲜花 0 朵 铜币 34 个 银币 0 个 性别 在线时间 60 注册时间 2016-10-23 最后登录 2016-10-25 查看公共资料 搜索主题 搜索帖子 zw3583313 组别幼儿园 UID4176710 帖子6 精华0 鲜花0 朵 铜币34 个 银币0 个 在线时间60 注册时间2016-10-23	14# 字体大小: t T 发表于 2016-10-23 16:02 | |只看该用户 都是大神啊
	回顶部

发送短消息 UID 4177032 帖子 102 精华 0 鲜花 0 朵 铜币 139 个 银币 0 个 性别 在线时间 1720 注册时间 2016-10-23 最后登录 2016-12-08 查看公共资料 搜索主题 搜索帖子 13712164921 组别小学五年级 UID4177032 帖子102 精华0 鲜花0 朵 铜币139 个 银币0 个 在线时间1720 注册时间2016-10-23	15# 字体大小: t T 发表于 2016-10-23 20:13 | |只看该用户 回来聊，就一天天
	回顶部

发送短消息 UID 4176882 帖子 4 精华 0 鲜花 0 朵 铜币 14 个 银币 0 个 性别 在线时间 60 注册时间 2016-10-23 最后登录 2016-10-24 查看公共资料 搜索主题 搜索帖子 667899 组别幼儿园 UID4176882 帖子4 精华0 鲜花0 朵 铜币14 个 银币0 个 在线时间60 注册时间2016-10-23	16# 字体大小: t T 发表于 2016-10-24 12:09 | |只看该用户 .............
	回顶部

发送短消息 UID 1716507 帖子 88 精华 0 鲜花 -1 朵 铜币 184 个 银币 -2 个 性别 在线时间 2620 注册时间 2013-04-04 最后登录 2017-11-17 420300178 查看公共资料 搜索主题 搜索帖子 猴纸_ 猴纸_ 组别小学四年级 UID1716507 帖子88 精华0 鲜花-1 朵 铜币184 个 银币-2 个 在线时间2620 注册时间2013-04-04	17# 字体大小: t T 发表于 2016-10-24 13:13 | |只看该用户 谢谢啦大牛
	回顶部

发送短消息 UID 461269 帖子 32 精华 0 鲜花 0 朵 铜币 61 个 银币 0 个 性别 在线时间 1060 注册时间 2010-07-14 最后登录 2021-08-14 29099910 查看公共资料 搜索主题 搜索帖子 robinyan14 robinyan14 组别小学二年级 UID461269 帖子32 精华0 鲜花0 朵 铜币61 个 银币0 个 在线时间1060 注册时间2010-07-14 按键精灵开发者1级 可通过提升认证等级来升级勋章：rz.anjian.com	18# 字体大小: t T 发表于 2016-10-24 21:25 | |只看该用户 我记得好像回复过了啊
	回顶部

发送短消息 UID 2936614 帖子 583 精华 0 鲜花 88 朵 铜币 5500 个 银币 193 个 性别 在线时间 14840 注册时间 2014-12-12 最后登录 2017-04-01 125114875 查看公共资料 搜索主题 搜索帖子 meng125114875 雪花 组别按键忠义之士 UID2936614 帖子583 精华0 鲜花88 朵 铜币5500 个 银币193 个 在线时间14840 注册时间2014-12-12 按键精灵开发者5级 可通过提升认证等级来升级勋章：rz.anjian.com	19# 字体大小: t T 发表于 2016-10-25 09:42 | |只看该用户 瞅一下
	好孩子一枚。
	回顶部

发送短消息 UID 1787318 帖子 7 精华 0 鲜花 0 朵 铜币 30 个 银币 0 个 性别 在线时间 360 注册时间 2013-05-06 最后登录 2020-01-24 52214082 查看公共资料 搜索主题 搜索帖子 haodyy haodyy 组别幼儿园 UID1787318 帖子7 精华0 鲜花0 朵 铜币30 个 银币0 个 在线时间360 注册时间2013-05-06	20# 字体大小: t T 发表于 2016-10-25 10:30 | |只看该用户 615631
	回顶部