查看: 7073|回复: 19	[昨夜星辰] 【实战+源码+思路】网游YS自动采集木材 [复制链接]

发送短消息 UID 728264 帖子 3502 精华 18 鲜花 1899 朵 铜币 27454 个 银币 1718 个 性别 在线时间 82980 注册时间 2011-08-04 最后登录 2024-12-22 2500039815 查看公共资料 搜索主题 搜索帖子 昨夜星辰 QQ250039815 组别按键认证大神 UID728264 帖子3502 精华18 鲜花1899 朵 铜币27454 个 银币1718 个 在线时间82980 注册时间2011-08-04 按键X开拓者勋章 按键精灵X版开拓者勋章 过大年勋章 俩小福娃给大家拜年啦！ 抗战胜利70周年勋章 抗战胜利70周年活动的专属勋章 单身汪勋章 单身贵族的专属勋章 按键14周年庆纪念勋章 按键14周年庆纪念勋章 羊年勋章 羊年纪念勋章 按键学院 按键学院专属勋章，按键学院学员或文章被院刊收入可领取 马年勋章 马年纪念勋章 鹰眼勋章 鹰眼注册用户专属勋章 双蛋勋章 双蛋活动勋章 黄瓜勋章 体验商业小精灵活动的奖励 按键卫士 参与“打击山寨，维护按键”活动 屌丝勋章 参与屌丝逆袭活动专属勋章 土豪勋章 活动期间在淘宝商场购买按键产品 天使勋章 天使一样的用户 潜水员 按键潜水员勋章 按键明星 按键明星勋章 黄金之翼 黄金之翼勋章 按键精灵开发者6级 可通过提升认证等级来升级勋章：rz.anjian.com 龙年勋章 龙年纪念勋章 十周年勋章 十周年纪念勋章 兔年勋章 兔年纪念勋章 虎年勋章 虎年纪念勋章 论坛GG 按键论坛男性用户勋章 学有所成 学有所成勋章，新手步入按键学堂的第一枚勋章 盒子会员 盒子会员专属勋章	1# 字体大小: t T 发表于 2022-03-19 11:45 | |只看楼主 采集的条件与技巧： 1、需要使用长柄武器、单手剑、双手剑的角色对树木进行物理攻击，才能掉落木材。 2、树木中的木材采集完后，树木不会消失。 3、账号小退重进入游戏后，会刷新树木中的木材，且角色会出现在角色最后一次落地的位置。 思路： 根据上述技巧，我们只需要让角色站在树木比较集中的地方，在原地按一次空格进行跳跃，让游戏记录角色落地位置。然后让角色进行物理攻击，攻击树木一定次数，然后小退重新进入游戏，角色便会出现在上次跳跃后落地的位置，同时刷新树木中的木材。然后将角色攻击步骤的代码和账号小退重登步骤的代码，写成循环，即可自动采集木材。根据采集的条件，我们需要使用长柄武器、单手剑、双手剑的角色，在这3种武器类型的角色中，本人推荐单手剑和双手剑角色。原因是部分双手剑角色，在施放重击时会造成大范围的物理攻击，如诺艾尔、辛焱等。而部分单手剑角色，在施放重击时会造成较大范围的物理攻击，且能自动后撤，如刻晴、凯亚等。只有这样搭配起来，我们的脚本才能稳定地采集木材，否则角色可能偏离树木或采集效率较低。 动画演示： nvpu.gif(5899.64 K) 2022/3/19 12:24:55 keqing.gif(7659.95 K) 2022/3/19 12:24:55 流程图： liuchengtu.png(7.94 K) 2022/3/19 12:24:55 源码： 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 hwnd hwnd = dm.FindWindow("UnityWndClass", "原神") If hwnd = 0 Then MessageBox "未能找到游戏窗口！" ExitScript End If dm_ret = dm.BindWindowEx(hwnd, "normal", "normal", "normal", "", 0) If dm_ret = 0 Then MessageBox "游戏绑定失败，错误代码：" & dm.GetLastError() ExitScript End If Dim 重击次数 重击次数 = 5 Do For 重击次数 Call 人物重击 Next Delay 1000 Call 退出游戏 Call 进入游戏 Delay 1000 Loop Function 打开系统菜单 Do dm.keypress 27 Delay 50 Loop Until 是否找到了系统菜单(40, 50, true)(0) <> - 1 Delay 50 End Function Function 选择退出游戏 Do Call 移动左单击(43, 1025) Delay 50 Loop Until 是否找到了系统菜单(40, 50, false)(0) = - 1 Delay 50 End Function Function 确认退出游戏 Do Call 移动左单击(1179,751) Delay 50 Loop Until 是否找到了确认退出游戏(40, 50, false)(0) = - 1 Delay 50 End Function Function 退出游戏 Call 打开系统菜单 Call 选择退出游戏 Call 等待确认退出 Call 确认退出游戏 End Function Function 进入游戏 Call 等待返回登录界面 Call 等待登录界面加载完毕 Call 点击进入游戏 Call 等待游戏进入完毕 End Function Function 点击进入游戏 Do Call 移动左单击(954,1018) Delay 50 Loop Until 是否找到了点击进入提示(40, 50, false)(0) = - 1 Delay 50 End Function Function 等待确认退出 If 是否找到了确认退出游戏(40, 50, true)(0) <> - 1 Then 等待确认退出 = 1 Else 等待确认退出 = 0 End If End Function Function 等待返回登录界面 While 是否找到了关闭游戏按钮(1, 50, true)(0) = - 1 Delay 50 Wend Delay 50 End Function Function 等待游戏进入完毕 While 是否找到了派蒙头像(1, 50, true)(0) = - 1 Delay 50 Wend Delay 50 End Function Function 等待登录界面加载完毕 While 是否找到了点击进入提示(1, 50, true)(0) = - 1 Delay 50 Wend Delay 50 End Function Function 是否找到了派蒙头像(查找次数, 查找间隔, 返回条件) 是否找到了派蒙头像=循环查找指定图片E_扩展(40,35,75,70, "派蒙头像.bmp", "101010", 0.95, 0, 查找次数, 查找间隔, 返回条件) End Function Function 是否找到了点击进入提示(查找次数, 查找间隔, 返回条件) 是否找到了点击进入提示=循环查找指定图片E_扩展(900,1000,1015,1040, "点击进入提示.bmp", "101010", 0.95, 0, 查找次数, 查找间隔, 返回条件) End Function Function 是否找到了关闭游戏按钮(查找次数, 查找间隔, 返回条件) 是否找到了关闭游戏按钮=循环查找指定图片E_扩展(80,960,110,1000, "关闭游戏按钮.bmp", "101010", 0.95, 0, 查找次数, 查找间隔, 返回条件) End Function Function 是否找到了确认退出游戏(查找次数, 查找间隔, 返回条件) 是否找到了确认退出游戏=循环查找指定图片E_扩展(840,500,1040,530, "确认退出游戏.bmp", "101010", 0.95, 0, 查找次数, 查找间隔, 返回条件) End Function Function 是否找到了系统菜单(查找次数, 查找间隔, 返回条件) 是否找到了系统菜单 = 循环查找指定图片E_扩展(30, 30, 65, 65, "系统菜单.bmp", "101010", 0.95, 0, 查找次数, 查找间隔, 返回条件) End Function Function 移动左单击(x, y) dm.Moveto x, y Delay 10 dm.LeftClick End Function Function 人物重击 dm.LeftDown Delay 生成随机数(400, 600) dm.LeftUp Delay 生成随机数(600, 800) End Function Function 生成随机数(最小值, 最大值) Randomize 生成随机数 = Int((最大值 - 最小值 + 1) * Rnd + 最小值) End Function Function 循环查找指定图片E(x1, y1, x2, y2, 图片名, 查找次数, 查找间隔, 返回条件) Dim ret For 查找次数 ret = dm.FindPicE(x1, y1, x2, y2, 图片名, "000000", 0.9, 0) If 返回条件 = true Then If ret <> "-1|-1|-1" Then Exit For End If End If If 返回条件 = false Then If ret = "-1|-1|-1" Then Exit For End If End If delay 查找间隔 Next ret = Split(ret, "|") 循环查找指定图片E = Array(CLng(ret(0)), CLng(ret(1)), CLng(ret(2))) End Function Function 循环查找指定图片E_扩展(x1, y1, x2, y2, 图片名, 偏色, 精准度, 查找方向, 查找次数, 查找间隔, 返回条件) Dim ret For 查找次数 ret = dm.FindPicE(x1, y1, x2, y2, 图片名, 偏色, 精准度, 查找方向) If 返回条件 = true Then If ret <> "-1|-1|-1" Then Exit For End If End If If 返回条件 = false Then If ret = "-1|-1|-1" Then Exit For End If End If Delay 查找间隔 Next ret = Split(ret, "|") 循环查找指定图片E_扩展 = Array(CLng(ret(0)), CLng(ret(1)), CLng(ret(2))) End Function Sub OnScriptExit() Call dm.UnBindWindow() End Sub 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 (, 下载次数:230) 注：源码与源文件的运行环境为Windows7 64位操作系统，游戏分辨率1920X1080。本帖仅为分享思路，若不能正常运行代码，请自行修改代码。
	昨夜星辰 最后编辑于 2022-03-19 12:24:54 点赞 近期制作： 传奇私服各种反外挂插件版本挂机软件，可教可售 原神加速、连发辅助工具 天下3自动钓大鱼辅助工具 承接脚本定制，点击下方联系 QQ：250039815 交流群：101296478
	回顶部

发送短消息 UID 8414809 帖子 151 精华 0 鲜花 73 朵 铜币 161 个 银币 155 个 性别 在线时间 0 注册时间 2021-08-11 最后登录 2024-07-10 查看公共资料 搜索主题 搜索帖子 ichigoQ7 ichigoQ7 组别初中一年级 UID8414809 帖子151 精华0 鲜花73 朵 铜币161 个 银币155 个 在线时间0 注册时间2021-08-11	2# 字体大小: t T 发表于 2022-03-19 14:16 | |只看该用户 666
	回顶部

发送短消息 UID 8665601 帖子 3 精华 0 鲜花 4 朵 铜币 6 个 银币 6 个 性别 在线时间 0 注册时间 2022-03-20 最后登录 2024-01-02 439433803 查看公共资料 搜索主题 搜索帖子 起点2022 起点2022 组别小学一年级 UID8665601 帖子3 精华0 鲜花4 朵 铜币6 个 银币6 个 在线时间0 注册时间2022-03-20	3# 字体大小: t T 发表于 2022-03-20 13:06 | |只看该用户 感谢
	回顶部

发送短消息 UID 8121442 帖子 2 精华 0 鲜花 1 朵 铜币 12 个 银币 2 个 性别 在线时间 0 注册时间 2021-01-20 最后登录 2022-03-27 469652248 查看公共资料 搜索主题 搜索帖子 18908332056 18908332056 组别幼儿园 UID8121442 帖子2 精华0 鲜花1 朵 铜币12 个 银币2 个 在线时间0 注册时间2021-01-20	4# 字体大小: t T 发表于 2022-03-20 14:06 | |只看该用户 顶一个6666
	回顶部

发送短消息 UID 507387 帖子 57 精华 0 鲜花 16 朵 铜币 67 个 银币 85 个 性别 在线时间 380 注册时间 2010-09-28 最后登录 2024-05-10 912330082 查看公共资料 搜索主题 搜索帖子 a4253a a4253a 组别小学三年级 UID507387 帖子57 精华0 鲜花16 朵 铜币67 个 银币85 个 在线时间380 注册时间2010-09-28 按键精灵开发者3级 可通过提升认证等级来升级勋章：rz.anjian.com	5# 字体大小: t T 发表于 2022-03-20 17:43 | |只看该用户 这个需要学习一下
	回顶部

发送短消息 UID 8272216 帖子 119 精华 0 鲜花 70 朵 铜币 126 个 银币 116 个 性别 在线时间 0 注册时间 2021-04-30 最后登录 2023-05-13 927463723 查看公共资料 搜索主题 搜索帖子 hz927463723 hz927463723 组别小学六年级 UID8272216 帖子119 精华0 鲜花70 朵 铜币126 个 银币116 个 在线时间0 注册时间2021-04-30	6# 字体大小: t T 发表于 2022-03-20 19:14 | |只看该用户 123456
	回顶部

发送短消息 UID 3328028 帖子 1497 精华 0 鲜花 199 朵 铜币 3957 个 银币 204 个 性别 在线时间 26840 注册时间 2015-06-28 最后登录 2024-03-09 查看公共资料 搜索主题 搜索帖子 zjcyjj zjcyjj 组别大学三年级 UID3328028 帖子1497 精华0 鲜花199 朵 铜币3957 个 银币204 个 在线时间26840 注册时间2015-06-28 小红帽 对论坛提出良好建议（可向管理员申请）	7# 字体大小: t T 发表于 2022-03-21 11:50 | |只看该用户 大漠变参指针无法返回值 点评 昨夜星辰   不要 dim 变量 或者采用其他函数 如findpic换成findpicE  发表于 2022/3/24 21:19:43
	回顶部

发送短消息 UID 3704420 帖子 5 精华 0 鲜花 4 朵 铜币 15 个 银币 5 个 性别 在线时间 40 注册时间 2016-01-14 最后登录 2022-04-01 1016865809 查看公共资料 搜索主题 搜索帖子 萧长风 萧长风 组别幼儿园 UID3704420 帖子5 精华0 鲜花4 朵 铜币15 个 银币5 个 在线时间40 注册时间2016-01-14	8# 字体大小: t T 发表于 2022-03-21 13:35 | |只看该用户 11111111111
	回顶部

发送短消息 UID 2081552 帖子 123 精华 0 鲜花 33 朵 铜币 181 个 银币 31 个 性别 在线时间 1680 注册时间 2013-08-16 最后登录 2024-05-03 089898989 查看公共资料 搜索主题 搜索帖子 v54088 v54088 组别小学六年级 UID2081552 帖子123 精华0 鲜花33 朵 铜币181 个 银币31 个 在线时间1680 注册时间2013-08-16	9# 字体大小: t T 发表于 2022-03-21 15:21 | |只看该用户 學習一下，謝謝
	回顶部

发送短消息 UID 3240696 帖子 3198 精华 0 鲜花 1144 朵 铜币 2391 个 银币 1274 个 性别 在线时间 6140 注册时间 2015-05-09 最后登录 2024-12-17 450949738 查看公共资料 搜索主题 搜索帖子 小蜜峰 QQ450949738 组别官方脚本作者 UID3240696 帖子3198 精华0 鲜花1144 朵 铜币2391 个 银币1274 个 在线时间6140 注册时间2015-05-09 按键14周年庆纪念勋章 按键14周年庆纪念勋章 按键精灵开发者5级 可通过提升认证等级来升级勋章：rz.anjian.com	10# 字体大小: t T 发表于 2022-03-24 15:37 | |只看该用户 学习看看
	定制脚本请找官方脚本作者小蜜峰QQ450949738
	回顶部

发送短消息 UID 4056778 帖子 18 精华 0 鲜花 3 朵 铜币 32 个 银币 12 个 性别 在线时间 40 注册时间 2016-08-09 最后登录 2024-05-20 3330028935 查看公共资料 搜索主题 搜索帖子 330028935 330028935 组别小学一年级 UID4056778 帖子18 精华0 鲜花3 朵 铜币32 个 银币12 个 在线时间40 注册时间2016-08-09	11# 字体大小: t T 发表于 2022-03-28 10:43 | |只看该用户 666666666666666666666666
	回顶部

发送短消息 UID 3958378 帖子 651 精华 0 鲜花 141 朵 铜币 3298 个 银币 128 个 性别 在线时间 7160 注册时间 2016-06-07 最后登录 2024-12-05 查看公共资料 搜索主题 搜索帖子 z3090712 组别高中三年级 UID3958378 帖子651 精华0 鲜花141 朵 铜币3298 个 银币128 个 在线时间7160 注册时间2016-06-07 按键精灵开发者2级 可通过提升认证等级来升级勋章：rz.anjian.com	12# 字体大小: t T 发表于 2022-03-28 18:13 | |只看该用户 66666666国话
	回顶部

发送短消息 UID 8193491 帖子 58 精华 0 鲜花 62 朵 铜币 69 个 银币 53 个 性别 在线时间 0 注册时间 2021-03-06 最后登录 2024-11-09 718621797 查看公共资料 搜索主题 搜索帖子 tiandong123 tiandong123 组别小学三年级 UID8193491 帖子58 精华0 鲜花62 朵 铜币69 个 银币53 个 在线时间0 注册时间2021-03-06	13# 字体大小: t T 发表于 2022-03-29 14:34 | |只看该用户 学习下
	回顶部

发送短消息 UID 7433163 帖子 11 精华 0 鲜花 9 朵 铜币 21 个 银币 11 个 性别 在线时间 0 注册时间 2020-02-23 最后登录 2024-06-25 查看公共资料 搜索主题 搜索帖子 westmax westmax 组别小学一年级 UID7433163 帖子11 精华0 鲜花9 朵 铜币21 个 银币11 个 在线时间0 注册时间2020-02-23	14# 字体大小: t T 发表于 2022-06-23 14:57 | |只看该用户 好不容易看到一个代码
	回顶部

发送短消息 UID 1548234 帖子 69 精华 0 鲜花 13 朵 铜币 131 个 银币 25 个 性别 在线时间 3220 注册时间 2013-01-13 最后登录 2024-05-27 568442663 查看公共资料 搜索主题 搜索帖子 568442663 568442663 组别小学三年级 UID1548234 帖子69 精华0 鲜花13 朵 铜币131 个 银币25 个 在线时间3220 注册时间2013-01-13	15# 字体大小: t T 发表于 2023-01-07 13:49 | |只看该用户 111111111111
	回顶部

发送短消息 UID 620226 帖子 78 精华 0 鲜花 39 朵 铜币 73 个 银币 47 个 性别 在线时间 20 注册时间 2011-03-13 最后登录 2023-04-07 1197250488 查看公共资料 搜索主题 搜索帖子 wentao wentao 组别小学三年级 UID620226 帖子78 精华0 鲜花39 朵 铜币73 个 银币47 个 在线时间20 注册时间2011-03-13	16# 字体大小: t T 发表于 2023-04-07 03:03 | |只看该用户 fafawefhjkll7t67
	回顶部

发送短消息 UID 8593239 帖子 9 精华 0 鲜花 7 朵 铜币 10 个 银币 10 个 性别 在线时间 0 注册时间 2022-01-08 最后登录 2023-08-08 605905468 查看公共资料 搜索主题 搜索帖子 o0linkin o0linkin 组别小学一年级 UID8593239 帖子9 精华0 鲜花7 朵 铜币10 个 银币10 个 在线时间0 注册时间2022-01-08	17# 字体大小: t T 发表于 2023-05-13 12:01 | |只看该用户 看一下是怎么整的
	回顶部

发送短消息 UID 8187241 帖子 20 精华 0 鲜花 18 朵 铜币 30 个 银币 20 个 性别 在线时间 0 注册时间 2021-03-02 最后登录 2023-08-27 查看公共资料 搜索主题 搜索帖子 esiilesz 组别小学一年级 UID8187241 帖子20 精华0 鲜花18 朵 铜币30 个 银币20 个 在线时间0 注册时间2021-03-02	18# 字体大小: t T 发表于 2023-08-23 23:49 | |只看该用户 776666
	回顶部

发送短消息 UID 8701645 帖子 32 精华 0 鲜花 44 朵 铜币 41 个 银币 36 个 性别 在线时间 0 注册时间 2022-04-15 最后登录 2023-10-26 89113273 查看公共资料 搜索主题 搜索帖子 tb89113273 tb89113273 组别小学二年级 UID8701645 帖子32 精华0 鲜花44 朵 铜币41 个 银币36 个 在线时间0 注册时间2022-04-15	19# 字体大小: t T 发表于 2023-10-11 17:52 | |只看该用户 看看
	回顶部

发送短消息 UID 4898038 帖子 6 精华 0 鲜花 5 朵 铜币 16 个 银币 6 个 性别 在线时间 0 注册时间 2018-01-06 最后登录 2023-12-08 查看公共资料 搜索主题 搜索帖子 oy343838765 oy343838765 组别幼儿园 UID4898038 帖子6 精华0 鲜花5 朵 铜币16 个 银币6 个 在线时间0 注册时间2018-01-06	20# 字体大小: t T 发表于 2023-12-08 23:39 | |只看该用户 看看
	回顶部