查看: 13678|回复: 164	[昨夜星辰] 【实战+源码+思路】网游CQ查找物品真实坐标 [复制链接]

发送短消息 UID 728264 帖子 3501 精华 18 鲜花 1898 朵 铜币 27453 个 银币 1717 个 性别 在线时间 82980 注册时间 2011-08-04 最后登录 2024-04-13 2500039815 查看公共资料 搜索主题 搜索帖子 昨夜星辰 QQ250039815 组别按键认证大神 UID728264 帖子3501 精华18 鲜花1898 朵 铜币27453 个 银币1717 个 在线时间82980 注册时间2011-08-04 按键X开拓者勋章 按键精灵X版开拓者勋章 过大年勋章 俩小福娃给大家拜年啦！ 抗战胜利70周年勋章 抗战胜利70周年活动的专属勋章 单身汪勋章 单身贵族的专属勋章 按键14周年庆纪念勋章 按键14周年庆纪念勋章 羊年勋章 羊年纪念勋章 按键学院 按键学院专属勋章，按键学院学员或文章被院刊收入可领取 马年勋章 马年纪念勋章 鹰眼勋章 鹰眼注册用户专属勋章 双蛋勋章 双蛋活动勋章 黄瓜勋章 体验商业小精灵活动的奖励 按键卫士 参与“打击山寨，维护按键”活动 屌丝勋章 参与屌丝逆袭活动专属勋章 土豪勋章 活动期间在淘宝商场购买按键产品 天使勋章 天使一样的用户 潜水员 按键潜水员勋章 按键明星 按键明星勋章 黄金之翼 黄金之翼勋章 按键精灵开发者6级 可通过提升认证等级来升级勋章：rz.anjian.com 龙年勋章 龙年纪念勋章 十周年勋章 十周年纪念勋章 兔年勋章 兔年纪念勋章 虎年勋章 虎年纪念勋章 论坛GG 按键论坛男性用户勋章 学有所成 学有所成勋章，新手步入按键学堂的第一枚勋章 盒子会员 盒子会员专属勋章	1# 字体大小: t T 发表于 2022-04-18 23:05 | |只看楼主 在没有快捷拾取的游戏中，我们一般会选择查找物品的图片和文字，然后通过键盘按键或者鼠标点击逐渐靠近物品进行拾取操作。但是无论找字还是找图，它返回的都是屏幕坐标，而不是游戏内的真实坐标，这样会导致如果遇到障碍或者物品名字较长的情况会无法到达或位置跑偏。今天我们要说的就是，如何利用人物真实坐标，来转换物品的真实坐标，有了真实坐标，人物就可以准确地到达指定坐标。 思路： 以本游戏为例，人物脚下物品屏幕坐标为510, 280, 557, 292，物品与物品之间的屏幕坐标x间隔为48，物品与物品之间的屏幕坐标y间隔为32。以人物当前屏幕坐标为起点，人物周围1格内物品的左、上、右、下、左上、右上、左下、右下的屏幕坐标分别为(- 1 * x间隔 , 0 * y间隔)、(0 * x间隔, - 1 * y间隔 )、(1 * x间隔, 0 * y间隔)、(0 * x间隔, 1 * y间隔 )、(- 1 * x间隔 , - 1 * y间隔 )、(1 * x间隔, - 1 * y间隔 )、(- 1 * x间隔 , 1 * y间隔)、(1 * x间隔, 1 * y隔)。对应的以人物当前真实坐标为起点，物品的真实坐标分别为(- 1 , 0)、(0, - 1 )、(1, 0)、(0, 1 )、(- 1 , - 1 )、(1, - 1 )、(- 1 , 1)、(1, 1)。以此类推，想要获取人物周围N格内的物品的坐标，只需要将1换成N，即可通过人物屏幕坐标、真实坐标转换物品屏幕坐标、真实坐标。 坐标示意图： zbsyt.bmp(2301.05 K) 2022/4/20 12:21:40 查找演示图： czdtt.gif(13502.30 K) 2022/4/20 12:21:40 调试代码： Dim 排序前,排序后 排序前 = 查找人物周围的物品位置(723, 312, 8, "恶魔|长袍|龙纹|心灵|手镯|灯笼|项链|生命|骑士|灵魂|幽灵|手套|战衣|骷髅|头盔|天珠|战神|盔甲|记忆|三眼|铂金|戒指", "ffffff|00ff00") 排序后 = 坐标排序(723, 312, 排序前) TracePrint "排序前：" & 排序前 TracePrint "排序后：" & 排序后 复制代码 调试结果： 排序前： 铂金戒指,723,312|幽灵手套,723,310|龙纹,723,306|骷髅头盔,725,312|骑士手镯,722,310|灯笼项链,722,308|生命项链,721,309|心灵手镯,721,308|魔长袍,721,306|灵战衣,719,310|灵魂项链,724,310|骑士手镯,725,308|三眼手镯,728,311|天珠项链,721,314|神盔甲,725,316|记忆头盔,727,314 排序后： 铂金戒指,723,312|幽灵手套,723,310|骷髅头盔,725,312|骑士手镯,722,310|灵魂项链,724,310|天珠项链,721,314|灯笼项链,722,308|生命项链,721,309|龙纹,723,306|心灵手镯,721,308|灵战衣,719,310|骑士手镯,725,308|三眼手镯,728,311|神盔甲,725,316|记忆头盔,727,314|魔长袍,721,306 源码： Public Declare Function SetDllPathW Lib ".\plugin\dmreg.dll" Alias "SetDllPathW" (ByVal path As String, ByVal mode As Long) As Long Dim 脚本ID, 脚本文件存放路径 脚本ID = GetMacroID() 脚本文件存放路径 = "C:\查找物品真实坐标\" & 脚本ID & "\" Call 创建文件夹Ex(脚本文件存放路径) Call 释放文件 Call 注册大漠插件到系统 Call 创建大漠对象 Call 设置大漠相对路径(脚本文件存放路径) Dim 排序前,排序后 排序前 = 查找人物周围的物品位置(723, 312, 8, "恶魔|长袍|龙纹|心灵|手镯|灯笼|项链|生命|骑士|灵魂|幽灵|手套|战衣|骷髅|头盔|天珠|战神|盔甲|记忆|三眼|铂金|戒指", "ffffff|00ff00") 排序后 = 坐标排序(723, 312, 排序前) TracePrint "排序前：" & 排序前 TracePrint "排序后：" & 排序后 Function 查找人物周围的物品位置(人物当前x坐标,人物当前y坐标,范围, 物品名称, 物品颜色) 查找人物周围的物品位置 = "" If 范围 < 1 Then Exit Function End If Call dm.SetDict(0,"物品字库.txt") Dim font_desc, count, i font_desc = dm.GetDictInfo(Replace(物品名称, "|", ""), "宋体", 9, 0) font_desc = split(font_desc,"|") count = ubound(font_desc) for i = 0 to count dm.AddDict 0, font_desc(i) Next dm_ret = dm.SetDisplayInput("pic:原始图片.bmp") Dim x1, y1, x2, y2, px, py, 区域 Dim 初始范围, x间隔, y间隔, 方向, k, 偏移方向数组, 偏移方向数组最大下标 x间隔 = 48 y间隔 = 32 初始范围 = Array(510, 280, 557, 292) 偏移方向数组 = Array(Array(- 1 , 0), Array(0, - 1 ), Array(1, 0), Array(0, 1 ), Array(- 1 , - 1 ), Array(1, - 1 ), Array(- 1 , 1), Array(1, 1)) 偏移方向数组最大下标 = 7 Dim x偏移数值, y偏移数值, 当前范围 Dim x范围, y范围 Dim 识别结果, 物品名称数组 物品名称数组 = Split(物品名称, "|") 识别结果 = dm.Ocr(初始范围(0),初始范围(1),初始范围(2),初始范围(3), 物品颜色, 1.0) If 识别结果 <> "" Then If 判断物品名称是否匹配(物品名称数组, 识别结果) = 1 Then 查找人物周围的物品位置 = 查找人物周围的物品位置 & 识别结果 & "," & (人物当前x坐标 + x偏移数值 * 偏移方向数组(k)(0)) & "," & (人物当前y坐标 + y偏移数值 * 偏移方向数组(k)(1)) & "|" End If End If For k = 0 To 偏移方向数组最大下标 If 偏移方向数组(k)(0) = 0 Then x范围 = 1 Else x范围 = 范围 End If If 偏移方向数组(k)(1) = 0 Then y范围 = 1 Else y范围 = 范围 End If For x偏移数值 = 1 To x范围 For y偏移数值 = 1 To y范围 x1 = 初始范围(0) + x偏移数值 * 偏移方向数组(k)(0) * x间隔 y1 = 初始范围(1) + y偏移数值 * 偏移方向数组(k)(1) * y间隔 x2 = 初始范围(2) + x偏移数值 * 偏移方向数组(k)(0) * x间隔 y2 = 初始范围(3) + y偏移数值 * 偏移方向数组(k)(1) * y间隔 当前范围 = x1 & "," & y1 & "," & x2 & "," & y2 If InStr(区域, 当前范围) = 0 Then 区域 = 区域 & "|" & 当前范围 识别结果 = dm.Ocr(x1, y1, x2, y2, 物品颜色, 1.0) If 识别结果 <> "" Then If 判断物品名称是否匹配(物品名称数组, 识别结果) = 1 Then 查找人物周围的物品位置 = 查找人物周围的物品位置 & 识别结果 & "," & (人物当前x坐标 + x偏移数值 * 偏移方向数组(k)(0)) & "," & (人物当前y坐标 + y偏移数值 * 偏移方向数组(k)(1)) & "|" End If End If End If Next Next Next If 查找人物周围的物品位置 <> "" Then 查找人物周围的物品位置 = Left(查找人物周围的物品位置, Len(查找人物周围的物品位置) - 1) End If End Function Function 坐标排序(x, y, str) If str = "" Then 坐标排序 = "" Exit Function End If Dim a, b, temp, 原始数组, UBound_原始数组 原始数组 = Split(str, "|") UBound_原始数组 = UBound(原始数组) Dim sz1, sz2 For a = 0 To UBound_原始数组 - 1 For b = 0 To UBound_原始数组 - 1 - a sz1 = Split(原始数组(b), ",") sz2 = Split(原始数组(b + 1), ",") If Abs(CLng(sz1(1)) - x) + Abs(CLng(sz1(2)) - y) > Abs(CLng(sz2(1)) - x) + Abs(CLng(sz2(2)) - y) Then temp = 原始数组(b) 原始数组(b) = 原始数组(b + 1) 原始数组(b + 1) = temp End If Next Next 坐标排序 = Join(原始数组, "|") End Function Function 判断物品名称是否匹配(arr, str) 判断物品名称是否匹配 = 0 Dim U_arr U_arr = Ubound(arr) For i = 0 To U_arr If InStr(str, arr(i)) > 0 Then 判断物品名称是否匹配 = 1 Exit For End If Next End Function Sub 释放文件 PutAttachment 脚本文件存放路径, "*.*" PutAttachment ".\plugin", "dmreg.dll" End Sub Sub 创建大漠对象 Set dm = createobject("dm.dmsoft") End Sub Sub 设置大漠相对路径(路径) dm_ret = dm.SetPath(路径) End Sub Sub 注册大漠插件到系统() Dim ver, need_ver need_ver="3.1233" Call SetDllPathW(脚本文件存放路径 & "dm.dll", 0) Set dm = createobject("dm.dmsoft") ver = dm.ver() If ver = "" Then MessageBox "插件对象创建失败！" ElseIf ver <> need_ver Then MessageBox "插件版本错误,当前使用的版本是:" & ver & ",插件所在目录是:" & dm.GetBasePath() End If End Sub Sub 创建文件夹Ex(路径) Dim 当前路径 If 获取路径基本名称(路径) <> "" Then 当前路径 = 路径 路径 = 获取路径父文件夹(路径) Call 创建文件夹Ex(路径) Call 创建文件夹(当前路径) End If End Sub Function 获取路径父文件夹(DriveSpec) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") 获取路径父文件夹 = fso.GetParentFolderName(Drivespec) set fso = nothing End Function Function 获取路径基本名称(filespec) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") 获取路径基本名称 = fso.GetBaseName(filespec) set fso = nothing End Function Sub 创建文件夹(路径) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") fso.CreateFolder 路径 set fso = nothing End Sub 复制代码 源文件： test.zip (, 下载次数:139)
	昨夜星辰 最后编辑于 2022-04-20 12:21:40 本主题由 超级版主 瑞祥幽冥狼 于 2023/8/13 22:34:20 执行 审核帖子 操作 点赞 近期制作： 传奇私服各种反外挂插件版本挂机软件，可教可售 原神加速、连发辅助工具 天下3自动钓大鱼辅助工具 承接脚本定制，点击下方联系 QQ：250039815 交流群：101296478
	回顶部

发送短消息 UID 6134390 帖子 11 精华 0 鲜花 7 朵 铜币 51 个 银币 11 个 性别 在线时间 0 注册时间 2019-02-13 最后登录 2023-05-30 查看公共资料 搜索主题 搜索帖子 dn2010 dn2010 组别小学一年级 UID6134390 帖子11 精华0 鲜花7 朵 铜币51 个 银币11 个 在线时间0 注册时间2019-02-13	2# 字体大小: t T 发表于 2022-04-18 23:18 | |只看该用户 学习学习
	回顶部

发送短消息 UID 2103176 帖子 7 精华 0 鲜花 4 朵 铜币 27 个 银币 7 个 性别 在线时间 80 注册时间 2013-08-27 最后登录 2022-12-18 1974408777 查看公共资料 搜索主题 搜索帖子 z6862 z6862 组别小学一年级 UID2103176 帖子7 精华0 鲜花4 朵 铜币27 个 银币7 个 在线时间80 注册时间2013-08-27	3# 字体大小: t T 发表于 2022-04-18 23:28 | |只看该用户 必须看看 学习一下
	回顶部

发送短消息 UID 455552 帖子 75 精华 0 鲜花 16 朵 铜币 99 个 银币 39 个 性别 在线时间 4440 注册时间 2010-07-06 最后登录 2023-09-20 100502131 查看公共资料 搜索主题 搜索帖子 bozimusic bozimusic 组别小学四年级 UID455552 帖子75 精华0 鲜花16 朵 铜币99 个 银币39 个 在线时间4440 注册时间2010-07-06 按键精灵开发者2级 可通过提升认证等级来升级勋章：rz.anjian.com	4# 字体大小: t T 发表于 2022-04-18 23:49 | |只看该用户 我来看看学习一下
	回顶部

发送短消息 UID 8706179 帖子 2 精华 0 鲜花 2 朵 铜币 3 个 银币 3 个 性别 在线时间 0 注册时间 2022-04-19 最后登录 2022-04-19 查看公共资料 搜索主题 搜索帖子 801000 组别幼儿园 UID8706179 帖子2 精华0 鲜花2 朵 铜币3 个 银币3 个 在线时间0 注册时间2022-04-19	5# 字体大小: t T 发表于 2022-04-19 01:13 | |只看该用户 很巧妙啊
	回顶部

发送短消息 UID 332623 帖子 101 精华 0 鲜花 63 朵 铜币 133 个 银币 92 个 性别 在线时间 560 注册时间 2009-11-23 最后登录 2024-03-30 446244110 查看公共资料 搜索主题 搜索帖子 zxf198418 zxf198418 组别小学五年级 UID332623 帖子101 精华0 鲜花63 朵 铜币133 个 银币92 个 在线时间560 注册时间2009-11-23	6# 字体大小: t T 发表于 2022-04-19 04:26 | |只看该用户 学习一下
	回顶部

发送短消息 UID 8706359 帖子 1 精华 0 鲜花 2 朵 铜币 2 个 银币 2 个 性别 在线时间 0 注册时间 2022-04-19 最后登录 2022-05-11 查看公共资料 搜索主题 搜索帖子 cc87091823 组别幼儿园 UID8706359 帖子1 精华0 鲜花2 朵 铜币2 个 银币2 个 在线时间0 注册时间2022-04-19	7# 字体大小: t T 发表于 2022-04-19 09:13 | |只看该用户 思路很棒
	回顶部

发送短消息 UID 6206672 帖子 6 精华 0 鲜花 5 朵 铜币 16 个 银币 6 个 性别 在线时间 0 注册时间 2019-03-03 最后登录 2024-04-14 502379577 查看公共资料 搜索主题 搜索帖子 qq2850933 qq2850933 组别小学一年级 UID6206672 帖子6 精华0 鲜花5 朵 铜币16 个 银币6 个 在线时间0 注册时间2019-03-03	8# 字体大小: t T 发表于 2022-04-19 09:41 | |只看该用户 论找字还是找图，它返回的都是屏幕坐标，而不是游戏内的真实坐标，这样会导致如果遇到障碍或者物品名字较长的情况会无法到达或位置跑
	回顶部

发送短消息 UID 157044 帖子 1045 精华 0 鲜花 185 朵 铜币 3209 个 银币 787 个 性别 在线时间 10160 注册时间 2007-11-21 最后登录 2024-03-29 271240457 查看公共资料 搜索主题 搜索帖子 lcxiaofeng lcxiaofeng 组别大学二年级 UID157044 帖子1045 精华0 鲜花185 朵 铜币3209 个 银币787 个 在线时间10160 注册时间2007-11-21 按键精灵开发者5级 可通过提升认证等级来升级勋章：rz.anjian.com 论坛GG 按键论坛男性用户勋章 天使勋章 天使一样的用户	9# 字体大小: t T 发表于 2022-04-19 09:49 | |只看该用户 观摩学习
	<font color="Magenta"><strong>【淘服务Designer】按键精灵 办公类、手机类、游戏类、辅助类脚本  QQ:271240457</strong></font>
	回顶部

发送短消息 UID 230504 帖子 54 精华 0 鲜花 8 朵 铜币 168 个 银币 14 个 性别 在线时间 2140 注册时间 2009-03-15 最后登录 2023-07-05 查看公共资料 搜索主题 搜索帖子 chencyh chencyh 组别小学三年级 UID230504 帖子54 精华0 鲜花8 朵 铜币168 个 银币14 个 在线时间2140 注册时间2009-03-15	10# 字体大小: t T 发表于 2022-04-19 10:54 | |只看该用户 牛逼啊，学习了！
	回顶部

发送短消息 UID 179456 帖子 79 精华 0 鲜花 41 朵 铜币 105 个 银币 72 个 性别 在线时间 300 注册时间 2008-05-21 最后登录 2022-06-16 查看公共资料 搜索主题 搜索帖子 xuliang xuliang 组别小学四年级 UID179456 帖子79 精华0 鲜花41 朵 铜币105 个 银币72 个 在线时间300 注册时间2008-05-21	11# 字体大小: t T 发表于 2022-04-19 11:01 | |只看该用户 我来看看学习一下
	回顶部

发送短消息 UID 1665248 帖子 76 精华 0 鲜花 8 朵 铜币 171 个 银币 176 个 性别 在线时间 2060 注册时间 2013-03-08 最后登录 2022-07-20 66296588 查看公共资料 搜索主题 搜索帖子 66296588 66296588 组别小学四年级 UID1665248 帖子76 精华0 鲜花8 朵 铜币171 个 银币176 个 在线时间2060 注册时间2013-03-08 按键精灵开发者5级 可通过提升认证等级来升级勋章：rz.anjian.com	12# 字体大小: t T 发表于 2022-04-19 11:11 | |只看该用户 回帖关注
	助人为乐,共同学习,共同进步！
	回顶部

发送短消息 UID 534106 帖子 915 精华 0 鲜花 27 朵 铜币 2994 个 银币 29 个 性别 在线时间 46620 注册时间 2010-11-08 最后登录 2023-08-19 103207684 查看公共资料 搜索主题 搜索帖子 103207684 103207684 组别大学一年级 UID534106 帖子915 精华0 鲜花27 朵 铜币2994 个 银币29 个 在线时间46620 注册时间2010-11-08 黄瓜勋章 体验商业小精灵活动的奖励 按键精灵开发者2级 可通过提升认证等级来升级勋章：rz.anjian.com	13# 字体大小: t T 发表于 2022-04-19 11:16 | |只看该用户 学习学习
	回顶部

发送短消息 UID 8705144 帖子 11 精华 0 鲜花 7 朵 铜币 12 个 银币 12 个 性别 在线时间 0 注册时间 2022-04-18 最后登录 2022-05-10 271558456 查看公共资料 搜索主题 搜索帖子 xushjt xushjt 组别小学一年级 UID8705144 帖子11 精华0 鲜花7 朵 铜币12 个 银币12 个 在线时间0 注册时间2022-04-18	14# 字体大小: t T 发表于 2022-04-19 11:30 | |只看该用户 学习学习，感谢分享
	回顶部

发送短消息 UID 8700840 帖子 5 精华 0 鲜花 5 朵 铜币 6 个 银币 6 个 性别 在线时间 0 注册时间 2022-04-15 最后登录 2022-04-19 1332617579 查看公共资料 搜索主题 搜索帖子 x739922394 x739922394 组别幼儿园 UID8700840 帖子5 精华0 鲜花5 朵 铜币6 个 银币6 个 在线时间0 注册时间2022-04-15	15# 字体大小: t T 发表于 2022-04-19 13:59 | |只看该用户 学习一下看看
	回顶部

发送短消息 UID 8400717 帖子 82 精华 0 鲜花 43 朵 铜币 78 个 银币 64 个 性别 在线时间 0 注册时间 2021-08-03 最后登录 2023-10-16 查看公共资料 搜索主题 搜索帖子 16620149528 组别小学四年级 UID8400717 帖子82 精华0 鲜花43 朵 铜币78 个 银币64 个 在线时间0 注册时间2021-08-03	16# 字体大小: t T 发表于 2022-04-19 16:31 | |只看该用户 学习学习
	回顶部

发送短消息 UID 8700973 帖子 6 精华 0 鲜花 3 朵 铜币 5 个 银币 5 个 性别 在线时间 0 注册时间 2022-04-15 最后登录 2022-04-19 查看公共资料 搜索主题 搜索帖子 Traven 组别小学一年级 UID8700973 帖子6 精华0 鲜花3 朵 铜币5 个 银币5 个 在线时间0 注册时间2022-04-15	17# 字体大小: t T 发表于 2022-04-19 17:02 | |只看该用户 学习
	回顶部

发送短消息 UID 2129400 帖子 10 精华 0 鲜花 2 朵 铜币 32 个 银币 8 个 性别 在线时间 60 注册时间 2013-09-09 最后登录 2022-06-05 545597341 查看公共资料 搜索主题 搜索帖子 a2563821 a2563821 组别小学一年级 UID2129400 帖子10 精华0 鲜花2 朵 铜币32 个 银币8 个 在线时间60 注册时间2013-09-09 按键精灵开发者1级 可通过提升认证等级来升级勋章：rz.anjian.com	18# 字体大小: t T 发表于 2022-04-19 17:24 | |只看该用户
	回顶部

发送短消息 UID 8696320 帖子 8 精华 0 鲜花 24 朵 铜币 17 个 银币 12 个 性别 在线时间 0 注册时间 2022-04-11 最后登录 2022-06-07 查看公共资料 搜索主题 搜索帖子 恰豆腐 组别小学一年级 UID8696320 帖子8 精华0 鲜花24 朵 铜币17 个 银币12 个 在线时间0 注册时间2022-04-11	19# 字体大小: t T 发表于 2022-04-19 17:25 | |只看该用户 XUEXI
	回顶部

发送短消息 UID 3953530 帖子 442 精华 0 鲜花 10 朵 铜币 1239 个 银币 26 个 性别 在线时间 12440 注册时间 2016-06-04 最后登录 2022-06-29 查看公共资料 搜索主题 搜索帖子 wsmsq wsmsq 组别初中三年级 UID3953530 帖子442 精华0 鲜花10 朵 铜币1239 个 银币26 个 在线时间12440 注册时间2016-06-04 按键精灵开发者2级 可通过提升认证等级来升级勋章：rz.anjian.com	20# 字体大小: t T 发表于 2022-04-19 21:27 | |只看该用户 看下看下
	回顶部