 上传我的文档
 下载
 收藏
粉丝量：131
该文档贡献者很忙，什么也没留下。
 下载此文档
正在努力加载中...
传奇自动捡装备外挂
下载积分：1000
内容提示：传奇自动捡装备外挂
文档格式：DOCX|
浏览次数：377|
上传日期： 04:50:40|
文档星级：
全文阅读已结束，如果下载本文需要使用
 1000 积分
下载此文档
该用户还上传了这些文档
传奇自动捡装备外挂
关注微信公众号传奇免费外挂排行榜_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
传奇免费外挂排行榜
阅读已结束，下载本文需要
想免费下载更多文档？
定制HR最喜欢的简历
你可能喜欢传奇私服法师挂机脚本 - 简书
传奇私服法师挂机脚本
和之前战士差不多的功能，挂机地图是尸魔洞2层。玩了两天，腻了，游戏也删了。把脚本记录下来，好歹算是学习按键精灵的过程。
自动打怪、捡物、买双倍卷轴、买药，自动修复装备。
//设置大漠路径以及字库名
Set dm = createobject("dm.dmsoft")
dm.SetPath ("d:")
dm_ret = dm.SetDict(0,"lanhuo.txt")
//绑定窗口和模式
hwnd = dm.GetMousePointWindow()
dm_ret = dm.BindWindow(hwnd, "dx2", "windows", "windows", 0)
//初始化跑图路径
Call 买物品()
Call 打宝箱()
Call 打身边怪()
Call 捡身边物()
Call 打半屏怪()
Delay 1000
Call 捡全屏物()
Call 打全屏怪()
Call 找怪()
Call 跑图()
Sub 打宝箱()
dm_ret = dm.FindStrFast(0, 0, 800, 438, "宝|箱", "ffffff-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.KeyPress 113
Delay 1500
Sub 打身边怪()
//身边怪物（名字判断）
dm_ret = dm.FindStrFast(279,119,508,294, "恶|灵", "ffffff-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo 390, 230
dm.KeyPress 113
dm.MoveToEx 20, 400, 5, 5
dm.MoveToEx 20, 400, 5, 5
Sub 打半屏怪()
//半屏怪物（名字判断）
dm_ret = dm.FindStrFast(155,76,661,358, "恶|灵", "ffffff-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 20
dm.KeyPress 113
dm.MoveToEx 20, 400, 5, 5
dm.MoveToEx 20, 400, 5, 5
Sub 打全屏怪()
//全屏怪物（名字判断）
dm_ret = dm.FindStrFast(0, 0, 800, 438, "恶|灵", "ffffff-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 20
dm.KeyPress 113
dm.MoveToEx 20, 400, 5, 5
dm.MoveToEx 20, 400, 5, 5
Sub 捡身边物()
//身边物品
dm_ret = dm.FindStrFast(213,63,574,354, "神|强|金", "ff|ffffff-ddee-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 20
dm.LeftClick
dm.MoveToEx 20, 400, 5, 5
dm.MoveToEx 20, 400, 5, 5
Sub 捡全屏物()
//全屏物品
dm_ret = dm.FindStrFast(0, 0, 800, 438, "神|强|金", "ff|ffffff-ddee-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 20
dm.LeftClick
dm.MoveToEx 20, 400, 5, 5
dm.MoveToEx 20, 400, 5, 5
Sub 找怪()
//小地图找怪
dm_ret = dm.FindMultiColor(608,0,800,160,"ff0000","0|1|ff|ff|ff|ff,0,intX,intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + i, intY + i
dm.RightClick
Delay 1000
//判断是否有怪，有怪停止移动
dm_ret = dm.FindStrFast(0, 0, 800, 438, "恶|灵", "ffffff-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo 390, 230
dm.RightClick
Delay 1000
dm_ret = dm.FindStrFast(0, 0, 800, 438, "恶|灵", "ffffff-000000", 1.0, intA, intB)
If intA &= 0 and intB &= 0 Then
dm.MoveTo 390, 230
dm.RightClick
Sub 买物品()
hong = dm.Ocr(304, 425, 318, 440, "ffffff-000000", 1.0)
lan = dm.Ocr(346, 423, 366, 439, "ffffff-000000", 1.0)
suiji=dm.Ocr(517,424,536,438, "ffffff-000000", 1.0)
TracePrint "红:" & hong & "蓝:" & lan & "随机：" & suiji
If hong = 0 Then
Delay 1000
hong = dm.Ocr(304, 425, 318, 440, "ffffff-000000", 1.0)
If hong = 0 Then
Call 买红()
If lan = 0 Then
Delay 1000
lan = dm.Ocr(346, 423, 366, 439, "ffffff-000000", 1.0)
If lan = 0 Then
Call 买蓝()
If suiji = 0 Then
Delay 1000
suiji=dm.Ocr(517,424,536,438, "ffffff-000000", 1.0)
If suiji = 0 Then
Call 买随机()
dm_ret = dm.FindMultiColor(0, 0, 800, 438, "440000", "1|0||0|dd|ffaa00,4|0|eebb00", 1.0, 0, intX, intY)
If dm_ret = 0 Then
Call 买双倍()
Sub 买红()
dm.MoveTo 766,566
dm.LeftClick
Delay 2000
dm_ret = dm.FindStrFast(0, 0, 800, 438, "金币区", "efd6ad-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
dm_ret = dm.FindStrFast(0, 0, 800, 438, "金创药", "00ff00-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
dm_ret = dm.FindMultiColor(0, 0, 800, 438, "080000","0|1|f7de39,0|2|f7de39,0|3||4|6b5239", 1.0, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
TracePrint 123
dm.MoveTo intX-30,intY
dm.LeftClick
dm.KeyPress 48
Delay 1000
//付费购买按钮
dm_ret = dm.FindMultiColor(0, 0, 800, 438, "8c8439", "0|1|fff76b,0|2|efe763,0|3|efe763,0|4|efe763", 1.0, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
//确定按钮
dm_ret = dm.FindStrFast(0, 0, 800, 438, "确定", "efd6ad-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
//打开背包
dm.MoveTo 693, 399
dm.LeftClick
Delay 1000
//解开红药
dm_ret = dm.FindMultiColor(0, 0, 800, 600, "7b3118", "1|0|6b|6b|7b|942918", 1.0, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX, intY
Delay 2000
dm.RightClick
Delay 2000
//修理装备
dm_ret = dm.FindMultiColor(0, 0, 800, 600, "d6c6ad", "1|0|bda57b,2|0|efc68c,3|0|f7f7de,4|0|b5a594", 1.0, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX, intY
Delay 2000
dm.RightClick
Delay 2000
dm.KeyPress 27
Delay 1000
dm.KeyPress 27
Delay 1000
dm.KeyPress 27
dm.MoveToEx 20, 400, 5, 5
Sub 买蓝()
dm.MoveTo 766,566
dm.LeftClick
Delay 2000
dm_ret = dm.FindStrFast(0, 0, 800, 438, "金币区", "efd6ad-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
dm_ret = dm.FindStrFast(0, 0, 800, 438, "魔法药", "00ff00-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
dm_ret = dm.FindMultiColor(0, 0, 800, 438, "080000","0|1|f7de39,0|2|f7de39,0|3||4|6b5239", 1.0, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
TracePrint 123
dm.MoveTo intX-30,intY
dm.LeftClick
dm.KeyPress 48
Delay 1000
//付费购买按钮
dm_ret = dm.FindMultiColor(0, 0, 800, 438, "8c8439", "0|1|fff76b,0|2|efe763,0|3|efe763,0|4|efe763", 1.0, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
//确定按钮
dm_ret = dm.FindStrFast(0, 0, 800, 438, "确定", "efd6ad-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
dm.MoveTo 693, 399
dm.LeftClick
Delay 1000
//解开蓝药
dm_ret = dm.FindMultiColor(0, 0, 800, 600, "104284", "1|0||0||0|215aa5,4|0|738cff", 1.0, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX, intY
Delay 2000
dm.RightClick
Delay 2000
dm_ret = dm.FindMultiColor(0, 0, 800, 600, "d6c6ad", "1|0|bda57b,2|0|efc68c,3|0|f7f7de,4|0|b5a594", 1.0, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX, intY
Delay 2000
dm.RightClick
Delay 2000
dm.KeyPress 27
Delay 1000
dm.KeyPress 27
Delay 1000
dm.KeyPress 27
dm.MoveToEx 20, 400, 5, 5
Sub 买随机()
dm.MoveTo 766,566
dm.LeftClick
Delay 2000
dm_ret = dm.FindStrFast(0, 0, 800, 438, "金币区", "efd6ad-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
dm_ret = dm.FindStrFast(0, 0, 800, 438, "随机传送石", "00ff00-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
dm_ret = dm.FindMultiColor(0, 0, 800, 438, "8c8439", "0|1|fff76b,0|2|efe763,0|3|efe763,0|4|efe763", 1.0, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
//确定按钮
dm_ret = dm.FindStrFast(0, 0, 800, 438, "确定", "efd6ad-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
dm.MoveTo 693, 399
dm.LeftClick
Delay 1000
dm_ret = dm.FindMultiColor(0, 0, 800, 600, "d6c6ad", "1|0|bda57b,2|0|efc68c,3|0|f7f7de,4|0|b5a594", 1.0, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX, intY
Delay 2000
dm.RightClick
Delay 2000
dm.KeyPress 27
Delay 1000
dm.KeyPress 27
Delay 1000
dm.KeyPress 27
dm.MoveToEx 20, 400, 5, 5
Sub 买双倍()
dm.MoveTo 766,566
dm.LeftClick
Delay 2000
dm_ret = dm.FindStrFast(0, 0, 800, 438, "金币区", "efd6ad-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
dm_ret = dm.FindStrFast(0, 0, 800, 438, "双倍秘籍", "00ff00-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
dm_ret = dm.FindMultiColor(0, 0, 800, 438, "8c8439", "0|1|fff76b,0|2|efe763,0|3|efe763,0|4|efe763", 1.0, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
//确定按钮
dm_ret = dm.FindStrFast(0, 0, 800, 438, "确定", "efd6ad-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
dm.MoveTo 693, 399
dm.LeftClick
Delay 1000
dm_ret = dm.FindMultiColor(0, 0, 800, 600, "ce3129", "0|1|ff5a5a,0|2|ff5a5a,0|3|d65a52,0|4|ce3129", 1.0, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX, intY
Delay 2000
dm.RightClick
Delay 2000
dm.KeyPress 27
Delay 1000
dm.KeyPress 27
Delay 1000
dm.KeyPress 27
dm.MoveToEx 20, 400, 5, 5
Sub 自动()
dm.KeyDown 17
dm.KeyPress 76
dm.KeyUp 17
Sub 跑图()
zuobiao = dm.Ocr(68,583,129,599, "ffffff-000000", 1.0)
zuobiaox = mid(zuobiao,1,instr(zuobiao, ":")-1)
zuobiaoy = mid(zuobiao, instr(zuobiao, ":") + 1, 3)
If 86 & zuobiaox & 76 and 43 & zuobiaoy & 33 Then
53 & zuobiaox & 43 and 33 & zuobiaoy & 22 Then
ElseIf 25 & zuobiaox & 15 and 60 & zuobiaoy & 50 Then
ElseIf 65 & zuobiaox & 55 and 87 & zuobiaoy & 77 Then
Select case nn
dm.MoveTo 750, 68
dm.RightClick
Delay 1000
dm.MoveTo 700, 57
dm.RightClick
Delay 1000
dm.MoveTo 659, 85
dm.RightClick
Delay 1000
dm.MoveTo 720, 112
dm.RightClick
Delay 1000
End Select
//判断是否有怪，有怪停止移动
dm_ret = dm.FindStrFast(0, 0, 800, 438, "恶|灵|宝|箱", "ffffff-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo 390, 230
dm.RightClick
Delay 1000
dm_ret = dm.FindStrFast(0, 0, 800, 438, "恶|灵", "ffffff-000000", 1.0, intA, intB)
If intA &= 0 and intB &= 0 Then
dm.MoveTo 390, 230
dm.RightClick
用简书的md来做一些笔记的记录，如有错误的地方。希望大家帮忙提醒指正。
好像现在外挂都过不了登陆器，包括找罗楠拿的收费挂也不行，只好自己写一个挂机脚本。 说明 按键精灵+大漠插件制作，职业：战士、道士，挂机位置尸魔洞一层，打开小地图为全图，分辨率为800×600。自动打怪、自动捡取、自动买药、自动修装备。测试6个小时正常挂机，初学写出来的感觉应...
----------------------- 页面 1----------------------- 2013 开发版 46 魔法插件说明书 ----------------------- 页面 2----------------------- 1 2013 开发版系列插...
脚本有问题请加QQ反馈，备注阴阳师脚本。 脚本每天可以试用10次，每次10分钟。先试用，满意后再充值，充值后无法退款！ 价格：1元/天 下载地址 不会使用脚本的，请详细阅读本说明，这个说明还是比较全的。 脚本适用范围 安卓手机、模拟器 | 需要ROOT权限...
从事互联网工作的朋友都会碰到这样的问题，就是每天用电脑做着重复的事，那么问题来了，我们可否用模拟键盘鼠标的操作让机器来帮我们做这些枯燥无味的事情，随之百度我们就看到了按键精灵，一款可以让新手在一分钟内做出一个脚本的软件（切身感受，不是广告），我是使用按键精灵几年的受益者，我...
信手拈来按键帮你来简介：在介绍信手拈按键帮你来之前，我们先要说一下ahk（AutoHotkey）这个编程语言，AutoHotkey成立于2008年，它有如下的特性:1.轻松的定义鼠标和键盘热键，并支持映射按键和自动更正2是免费的、开源的脚本语言，Windows允许用户轻松地...
我的悟空回答 感谢邀请！你正确呼吸了吗？ 这是一份特别精美的圣诞节礼物，希望你能收到！ 做任何事情都能非常的享受！其实就是正确呼吸！因为不紧张，不紧张就不会额外消耗过多能量。不缺氧，就不会容易累。判断一个人死活，其实就是看这个人是否还在呼吸，如果呼吸稳定正常，那么就算是体无...
超强的记忆力是我们一直向往的一种能力，今天通过阅读《思维导图》这本书谈谈大脑是如何看待记忆这件事。 传统的观念在于如何将所学的知识大量的塞进大脑，这里就出现了一个问题，关键不在于如何吸取知识，而是当你需要运用的时候你如何能快速准确的提取出来。比如你在1个小时内看了30篇新闻...
“学会第二种语言，就拥有了第二个灵魂。”这是神圣罗马皇帝查理曼的名句。也是小编一直喜欢的一句话。如他所言，学习一门或多门外语的好处，除了显而易见的知识增长之外，还有很多。今天合肥英语培训小编就跟大家分享下为什么我们要多学一门语言。 虽然学习外语很不容易，但是了解了一下19条...
学习《立足本职 巾帼建功 维权帮扶 和谐稳定 为汇集彰显企业发展正能量不懈努力》水电六局第十一次女职工代表大会工作报告精神 春光荏苒如水逝，人间六月尽芳菲。6月2日水电六局第十一次女职工代表大会在丹东召开。 报告回顾了过去五年的工作，即融入大局，推进巾帼建功，助力发展彰显新...
如果不是这一次与你相遇，同行＇我还不知道生命里有多少人在默默的陪我成长。 如果不是此刻无语只望遥远带泪的光芒，我还不知道生命里有多少人让我放不下。
默默无语＇雨在心………
切切思念＇泪荧光……痛在心上…
硬撑的坚强＇在关闭的那一刻抉堤了那一触即涌的泪...后使用快捷导航没有帐号？
只需一步，快速开始
请完成以下验证码
只需一步，快速开始
请完成以下验证码
请完成以下验证码
今日: 12|昨日: 70|帖子: 350365|会员: 8101|欢迎新会员:
简单挂日欢迎您来到传奇辅助排行榜 ...
简单挂日欢迎您来到传奇辅助排行榜 ...
简单挂ABC在需要打码过验证传奇中挂机脚本格 ...
简单挂日欢迎您来到传奇辅助排行榜 ...
简单挂过杀戮遗忘2013登陆器站到光圈点击防脱 ...
求助：随机弹出这个验证码怎么过
简单挂日欢迎您来到传奇辅助排行榜 ...
求大神解答A版挂机怎么存橙色装备，就判定颜 ...
简单挂日欢迎您来到传奇辅助排行榜 ...
简单挂PK挂机结合。让你工作娱乐两不误
热血传奇13周年客户端下载，建议玩单职业的玩 ...
简单挂日欢迎您来到传奇辅助排行榜 ...
辅助新版A任意地图过随机验证码脚本分享：请 ...
简单挂过点击对应格子(密保)样子的防脱机验证 ...
传奇简单辅助过最新的传奇地图限制时间打元宝 ...
简单挂A新版任意地图脚本挂机定时回收脚本分 ...
简单挂日欢迎您来到传奇辅助排行榜 ...
传奇简单外挂AC过进地图就提示坐标然后走到坐 ...
输入当前元宝数量防脱机验证码脚本分享(他这 ...
辅助A版任意地图回收过验证码脚本格式分享(不 ...
热血传奇13周年客户端下载，建议玩单职业的玩 ...
辅助新版A任意地图过随机验证码脚本分享：请 ...
传奇简单辅助过最新的传奇地图限制时间打元宝 ...
简单挂A新版任意地图脚本挂机定时回收脚本分 ...
传奇简单外挂AC过进地图就提示坐标然后走到坐 ...
输入当前元宝数量防脱机验证码脚本分享(他这 ...
辅助A版任意地图回收过验证码脚本格式分享(不 ...
无喊话广告传奇辅助免费版分享：效果秒杀vip ...
A版大神还有没有在的，在线等。
简单挂ABC在需要打码过验证传奇中挂机脚本格 ...
发布A版挂机验证码脚本，欢迎大家下载，如果不会使用，请联系客服。
115 / 9557
简单挂（包含收费版本和免费版本）每天最新更新发布，时时官方同步，推荐下载简单挂云助手使用，一键云更新，更方便快捷！
简单挂怎么调？简单挂战士调法，简单挂中变怎么调最好，简单挂怎么调最好，简单挂免费版怎么调
131 / 9599
前天&15:01
为广大简单挂用户和传奇爱好者解答玩传奇时遇到的各种问题，欢迎大家在这里咨询。
昨天&19:35
简单挂玩家新手报道，和每日签到处，欢迎简单挂新老用户入住简单挂论坛。
1085 / 4万
传奇是最经典的网游，感谢传奇sf带给我们的快乐和激情，祝福每个简单挂用户传奇开心！
仰天唠神嗑，在这里可以发布任何你想发布的，但是不要违背天朝的法律规定哦，禁止发布色情、赌博、毒品、暴力等信息。
3019 / <span title="万
前天&01:20
玩传奇必须有好的硬件“装备”，那么就是您玩传奇的电脑了，教您怎样配置一台属于你的传奇专业电脑！
1216 / 3万
与大家一起分享交流——网络上最炫的软件和技术
- 总计 145 人在线
- 最高记录是 378 于 .
提供最新 简单挂 产品新闻、软件下载与技术交流
简单挂在线客服
9：00 ~ 24：00传奇私服法师用什么挂能一键放火_百度知道
传奇私服法师用什么挂能一键放火
传奇私服法师用什么挂能一键放火
我有更好的答案
请问私服那里找得到？
为您推荐：
其他类似问题
&#xe675;换一换
回答问题，赢新手礼包&#xe6b9;
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。