你一定想不到的解决鼠标飘移方法！！！

社区服务
高级搜索
猴岛论坛辅助工具你一定想不到的解决鼠标飘移方法！！！
发帖 回复
正序阅读 最近浏览的帖子最近浏览的版块
« 返回列表
0个回复

你一定想不到的解决鼠标飘移方法！！！

 楼层直达
mimi_rice

ZxID：55494225

等级: 上士
举报 图酷模式  只看楼主 使用道具 楼主   发表于: 2015-03-31 0
解决鼠标飘移~~SO EASY！！

本文由按键学院提供技术支持







按键学院交流群（1群已满）：376122403
零基础学按键精灵群（2群）：372671254






引用
小编最近想要写个问道游戏的脚本，但是遇到了一个很令人抓狂并且头疼的问题
就是诡异的——鼠标飘移现象。  
据小编的了解，这个鼠标飘移现象并不仅仅在问道游戏中会出现，像是梦幻西游、桃花源记等等游戏都有存在鼠标飘移的情况。
那具体什么是鼠标飘移呢？接下来就由小编带大家了解什么是鼠标飘移，并且解决鼠标飘移。



什么是鼠标飘移现象？



鼠标飘移就是使用 MoveTo 命令想要在游戏中把鼠标移动到指定的坐标点的时候，游戏中的鼠标却诡异的随机移动到该坐标周围的点。


接着给大家举个“栗子”看看到底神马是鼠标飘移  

比如想要移动到图中红框的部分点击，关闭掉这个窗口




使用抓抓工具获得这个关闭按钮的坐标是 (394,100),那正常情况下的代码该如何写呢？


复制代码
  1. MoveTo 394, 100
  2. LeftClick 1
但是！！如果直接按照这个代码执行的话就会下面的现象
        


童鞋们注意到了么？不管执行代码多少次，结果游戏中的鼠标就是一直在坐标点周围 “晃悠” 就是不点击我们指定的那个点。


小编当时遇到这个问题的时候简直是抓狂了！  

如果鼠标移动的位置都不准确的话，那整个脚本之后的操作基本上都无法继续下去了，难道就要放弃这个脚本么

No！！！俗话说的好 “道高一尺，魔高一丈” 经过咱们的按键工程师07 大大的研究，成功的解决了鼠标飘移的问题！

下面就让我们来看看如何处理鼠标飘移~~

解决思路



引用
1、先用MoveTo 移动到指定坐标
2、在游戏中利用找图或者找色命令，找到游戏鼠标特征，从而得出鼠标当前位置
3、计算指定坐标和鼠标当前位置的差值
4、使用相对移动命令MoveR移动鼠标

具体步骤




引用
1、先使用移动命令移动到指定的坐标

复制代码
  1. moveto x, y
引用
2、这时候游戏中实际的鼠标位置和目标点其实是有偏移的，我们需要先找到游戏鼠标的实际所在的位置

游戏中鼠标的样子是一把剑的形状 我们就是要通过找到这把剑的位置来确定游戏中鼠标的实际位置


但是这把剑是会一直转动的，这该如何去找呢？

其实细心的童鞋可以发现这把剑的剑柄的部分是不动的 那我们就可以通过多点找色的方式去找到这个剑柄了。
复制代码
  1. XY = FindMultiColor(0, 0, 1024, 768, "886020", "5|3|e0d078,6|5|c09c68,3|4|887038,-1|2|584028", 1.0, 1)
  2.         ZB = InStr(XY, "|")  
  3.         //下面这句将字符串转换成数值  
  4.         intX = Clng(Left(XY, ZB - 1)): intY = Clng(Right(XY, Len(XY) - ZB))
注意：这里得到的坐标是剑柄的位置，游戏中鼠标是根据剑尖来判定位置的，所以在实际的使用中还需要减去一些距离才能得到剑尖的坐标点。

引用
3、接着计算指定的坐标和鼠标当前坐标的差值。

复制代码
  1. x轴的坐标差是：x - (intX-22)
  2. y轴的坐标差是：y - (intY-22)


代码里的22就是剑柄的坐标和剑尖的距离，intX-22 的结果就是剑尖的x坐标。intY-22 就是剑尖的y坐标。

引用
4、之后用相对移动命令去移动即可

复制代码
  1. MoveR x - (intX-22),y - (intY-22)
完整代码



我们可以把这个计算过程定义成一个函数，这样可以在之后的脚本中很方便的去调用他

复制代码
  1. Function 移动(x, y)
  2.     //加入最大循环次数判断是否鼠标跑出画面
  3.     Dim tmp1        '计数变量
  4.     moveto x, y
  5.     Delay 100
  6.     //定位鼠标
  7.     Do
  8.         //多点找色，找鼠标剑柄,加偏色
  9.         XY = FindMultiColor(0, 0, 1024, 768, "886020", "5|3|e0d078,6|5|c09c68,3|4|887038,-1|2|584028", 1.0, 1)
  10.         ZB = InStr(XY, "|")  
  11.         //下面这句将字符串转换成数值  
  12.         intX = Clng(Left(XY, ZB - 1)): intY = Clng(Right(XY, Len(XY) - ZB))  
  13.         If intX >= 0 and intY >= 0 Then
  14.             TracePrint "找到" & intX & "," & intY
  15.             Exit Do
  16.         Else
  17.             TracePrint "未找到"
  18.             tmp1 = tmp1 + 1
  19.         End If
  20.         Delay 10
  21.         If tmp1 >= 20 Then
  22.             TracePrint "无法定位鼠标位置，重置鼠标位置"
  23.             moveto 400, 300
  24.             Delay 300
  25.             //重置计数变量
  26.             tmp1 = 0
  27.         End If
  28.     Loop
  29.     TracePrint "次数"&tmp1
  30.     Delay 50
  31.     TracePrint "坐标差：" & x - (intX-22) & "," & y - (intY-22)
  32.     MoveR x - (intX-22),y - (intY-22)
  33. End Function


引用
除了这个通过计算差值的方法外，还有没有其他的方法用来解决鼠标飘移呢？
答案当然是有啦！！
而且方法比这个上面的方法要 简单粗暴！



后台移动鼠标解决飘移



后台命令的话直接就可以准确的移动操作，不需要单独的去计算差值
复制代码
  1. Call register()  //注册大漠
  2. hwnd = dm.GetMousePointWindow()
  3. dm_ret = dm.BindWindow(hwnd,"dx","windows2","dx",1) //大漠绑定窗口
  4. dm.moveto x,y
  5. dm.leftclick
  6. Sub register()  //注册大漠
  7.     Set ws = createobject("Wscript.Shell")
  8.     ws.run "regsvr32 atl.dll /s"
  9.     Set ws = nothing
  10.     PutAttachment "G:\test", "dm.dll"
  11.     PutAttachment ".\Plugin" ,"RegDll.dll"
  12.     call Plugin.RegDll.Reg ( "G:\test\dm.dll")
  13.     Set dm = createobject("dm.dmsoft")
  14.     ver = dm.ver()
  15.     If len(ver) = 0 Then
  16.         MessageBox "插件注册失败,检查系统是否禁用了vbs脚本权限"
  17.         EndScript
  18.     End If
  19. End Sub


这里还需要补充一点：这个后台的方法并不是所有游戏都能适用的，只有部分游戏使用后台方式可以避免出现鼠标飘移。

具体是哪些游戏，那就只能童鞋们自己测试了。
打赏 收藏 新鲜事

相关主题

回复 引用
　 鲜花[0]　 鸡蛋[0]
« 返回列表
发帖 回复