下载文档原格式
【1.基本例子介绍（推荐）】【2.人气工具百宝箱之天龙八部2键盘连按】【3.自动打怪例子】【4.用盒子制作自动加血类脚本的方法】【5、【QQ幻想世界】自动打怪v1.0版】[Relative]SetupOCXFile=[Comment]Content=[Script]//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★描★述★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓////————————————————<[QQ幻想世界自动打怪v1.0版][作者]一只鱼>//游戏设置：———[Tab]找怪热键———[1]打怪热键———[空格]捡物热键//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓////——————————————————————<创建日期：2010/05/31>//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★开★始★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓////——————————————————————<休息计时器归零>n = 0Rem 《开始》//——————————————————————<找怪热键“Tab”>KeyPress 9,1Delay 100//——————————————————————<在选怪的过程中利用时间空隙捡物> KeyPress 32,1//——————————————————————<打怪计时器归零>i = 0Rem 《打怪》//——————————————————————<打怪计时器计数增加>i += 1//——————————————————————<捡物加打怪延时，有效利用延时。
> Delay 1000//——————————————————————<打怪热键“1”>KeyPress 49,1//————————<循环1次打怪，耗时1秒。
这里可以设置打怪时间[10次10秒]>If i >= 10Delay 500Goto 《打怪结束》End IfGoto 《打怪》Rem 《打怪结束》//——————————————————————<捡物热键“空格”>KeyPress 32,1//——————————————————————<捡物延时>Delay 1000//——————————————————————<打死60只怪后坐地休息>If n >= 60Delay 1000//——————————————————————<坐地休息热键“=”>KeyPress 187,1//——————————————————————<坐地休息60秒>t = 60While t <> 0Delay 1000t -= 1Wend//——————————————————————<休息计时器归零>n = 0Else//——————————————————————<休息计时器计数增加>n += 1End If//——————————————————————<重新开始执行>Goto 《开始》//〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//制作《QQ幻想世界》纯硬件操作自动打怪脚本例子一、制作思路流程：1.首先Tab热键选怪2.在选怪空隙中捡物1次3.开始打怪4.打怪等待时间(默认10次[1次1秒])5.打怪结束后捡物1次6.打死60只怪后坐地休息60秒7.返回重新开始二、游戏热键设置：游戏设置：——[Tab]找怪热键——[1]打怪热键——[空格]捡物热键——[8]休息热键三、脚本制作过程：1.首先Tab热键选怪Rem 《开始》//——————————————————————<找怪热键>KeyPress 9,1Delay 1002.在选怪空隙中捡物1次//——————————————————————<在选怪的过程中利用时间空隙捡物>KeyPress 32,1Delay 5003.开始打怪Rem 《打怪》//——————————————————————<捡物加打怪延时，有效利用延时。
按键精灵判断DNF人物位置源码按键精灵判断DNF人物位置源码DNF这游戏，每次进图的时候，boos位置还有门口位置和障碍物每次可能都不一样.这让不少制作脚本的新手很苦恼，前段时间有人在按键精灵官方论坛分享了判断人在哪里和boss在哪里的脚本，这里就共享给大家。
思路大致如下：把副本的小地图分为横6纵9然后找色判断。
源码发出来就是：Delay 3000Plugin hwnd = Window.GetKeyFocusWnd()Delay 50Delay 100Plugin Window.Move(hwnd,0,0)Delay 300Plugin XY = Color.FindMutiColor(509, 19, 634, 250, "FFCC11", "1|0|BB5500,0|3|EEDD00", 0.9)MyArray = Split(XY, "|")X = Clng(MyArray(0)): Y = Clng(MyArray(1))y1=47x1=627n=1//MessageBox x//MessageBox yFor 9x1=627y2=y1+18For 6//MoveTo x1,y1//Delay 500//MessageBox 1x2=x1-18//MoveTo x2,y2//MessageBox 2//If 550<109<="">If x2<y2<="">//MessageBox x2//MessageBox y1//MessageBox y2Goto 查图endMessageBox nEndIfx1=x1-18n=n+1EndFory1=y1+18EndForRem 查图endMessageBox "人物="& ny1=47x1=627m=1Plugin XY = Color.FindMutiColor(509, 19, 634, 244, "33FF", "4|0|DDFF,10|0|55FF,1|3|55FF,4|3|55FF,8|3|55FF", 0.9) MyArray = Split(XY, "|")X = Clng(MyArray(0)): Y = Clng(MyArray(1))For 9x1=627y2=y1+18For 6//MoveTo x1,y1//Delay 500//MessageBox 1x2=x1-18//MoveTo x2,y2//MessageBox 2//If 550<109<="">If x2<y2<="">//MessageBox x2//MessageBox y1//MessageBox y2Goto 查图2end MessageBox nEndIfx1=x1-18m=m+1EndFory1=y1+18EndForRem 查图2end MessageBox "boss="& m EndScript。
自由幻想按键精灵源代码摘要：I.引言- 介绍自由幻想按键精灵源代码的背景和重要性II.自由幻想按键精灵的概述- 解释什么是自由幻想按键精灵- 介绍自由幻想按键精灵的主要功能和特点III.源代码的获取- 说明如何获取自由幻想按键精灵的源代码- 提供一个下载链接或其他获取方式的参考IV.源代码的解析- 分析源代码的结构和主要部分- 解释源代码中关键功能的实现方式V.源代码的修改与定制- 介绍如何修改源代码以满足特定需求- 提供一个简单的修改示例VI.结论- 总结自由幻想按键精灵源代码的价值和应用- 鼓励读者尝试和使用源代码正文：自由幻想按键精灵源代码是一款免费、开源的按键精灵制作工具，它可以帮助用户快速地制作属于自己的按键精灵，从而实现自动操作、自动点击等便捷功能。
自由幻想按键精灵源代码的重要性在于，它为用户提供了更多的自定义和开发可能性，使得用户可以更好地适应自己的需求和操作习惯。
自由幻想按键精灵的主要功能和特点包括：支持多种操作系统、兼容多种游戏和应用、拥有丰富的脚本编辑功能、支持多线程操作等。
这些特点使得自由幻想按键精灵成为许多用户的首选工具。
获取自由幻想按键精灵源代码十分简单。
用户只需访问官方网站或相关下载站点，即可找到源代码的下载链接。
在下载完成后，用户可以根据官方文档或教程，逐步了解和分析源代码。
源代码的解析是使用和开发自由幻想按键精灵源代码的关键。
一般来说，源代码包括主程序、脚本编辑器、核心功能模块等多个部分。
用户可以通过分析这些部分，了解自由幻想按键精灵的工作原理，以及如何根据自己的需求进行修改和定制。
源代码的修改与定制是自由幻想按键精灵源代码最大的价值所在。
用户可以根据自己的需求，修改源代码中的相关功能和参数，从而实现更符合自己习惯的按键精灵。
例如，用户可以修改按键精灵的点击速度、添加自定义功能等。
总之，自由幻想按键精灵源代码为用户提供了极大的使用和开发空间。
无论你是初学者还是资深用户，都可以从源代码的学习和使用中，获得更多的知识和乐趣。
自由幻想按键精灵源代码摘要：1.自由幻想按键精灵源代码简介2.自由幻想按键精灵源代码的功能特点3.自由幻想按键精灵源代码的应用场景4.自由幻想按键精灵源代码的发展前景正文：一、自由幻想按键精灵源代码简介自由幻想按键精灵源代码是一款备受欢迎的脚本编写软件，其主要功能是帮助用户实现各种自动化操作，从而提高工作效率。
这款软件拥有简单易用的界面，支持多种编程语言，适用于各种场景。
二、自由幻想按键精灵源代码的功能特点1.多功能：自由幻想按键精灵源代码支持多种操作，包括模拟鼠标点击、键盘按键、窗口操作等，可以实现各种复杂的自动化任务。
2.跨平台：该软件可以在多种操作系统上运行，包括Windows、MacOS 和Linux 等。
3.易于上手：自由幻想按键精灵源代码提供了丰富的教程和示例，让用户可以快速掌握其使用方法。
4.强大的脚本编辑功能：该软件支持多种脚本编写语言，包括Lua、JavaScript 等，用户可以根据需要选择合适的语言编写脚本。
三、自由幻想按键精灵源代码的应用场景自由幻想按键精灵源代码在日常生活和工作中有着广泛的应用，包括：1.游戏辅助：用户可以利用该软件编写游戏辅助脚本，实现自动攻击、自动寻路等功能，提高游戏体验。
2.重复性任务自动化：例如批量处理文件、自动填写表单等。
3.测试工具：开发人员可以利用自由幻想按键精灵源代码编写测试脚本，对软件进行自动化测试。
四、自由幻想按键精灵源代码的发展前景随着科技的发展，自动化技术在各个领域得到广泛应用。
自由幻想按键精灵源代码作为一款优秀的自动化脚本编写软件，有着广阔的发展前景。
未来，该软件可能会在以下方面进行优化和升级：1.支持更多的编程语言和功能模块。
2.提供云端服务，让用户可以随时随地使用和编辑脚本。
3.加强与人工智能技术的结合，实现更智能的自动化操作。
总之，自由幻想按键精灵源代码是一款实用的自动化脚本编写软件，具有广泛的应用前景。
DNF扫拍卖源代码UserVar 设置价格="7000" "输入购买价格"//自定义价格设置价格=CLng(设置价格)//函数转换Set dm = createobject("dm.dmsoft")//生成大漠对象//TracePrint dm.Ver()Hwnd = Plugin.Window.Find("地下城与勇士", "地下城与勇士")//获取句柄dm.MoveWindow hwnd,-50,-50 //绑定前移出屏幕一定范围大漠窗口绑定hwnd, "dx2", "normal", "normal", 0//大漠窗口绑定大漠环境优化//大漠环境优化Delay 500dm.MoveWindow hwnd, 150, 40//将窗口移回来Delay 100//LockMouseDos = dm.Ocr(366, 26, 438, 50, "ffffff-000000", 1.0)//判断拍卖行是否打开如果没打开则按B 键打开TracePrint sIf Instr(s, "卖") = 0 Thendm.KeyPress 66Delay 10End Ifs = dm.Ocr(376, 235, 431, 270, "ffffff-000000", 1.0)//打开之后看看是否存在"公告"，如果存在则按下回车TracePrint sIf Instr(s, "公告") > 0 Thendm.KeyPress 13Delay 10End Ifdm.MoveTo 220,88//打开则激活文本，删除原文本，然后发送文本消息Delay 10dm.LeftClickDelay 10For 10dm.KeyPress 8//删除文本NextDelay 20dm.KeyPress 86//搜狗短语快捷键dm.KeyPress 32//空格打下字符dm.MoveTo 595, 87//移动过去搜索Delay 50dm.LeftClickDelay 100s = dm.Ocr(305, 262, 493, 338, "ffffff-000000", 1.0)TracePrint sIf Instr(s, "不存在") > 0 Then //判断玩家是否提前在拍卖里设置了不符的搜索MsgBox "搜索物品出错，请点击拍卖行右上角类似←图标初始化拍卖行后再试" ExitScriptEnd IfFor 8dm.MoveTo 595, 87Delay 50dm.LeftClick //点击搜索Delay 1000//然后计算出物品单价，如果单击低于设置的价格则移动过去点击一口价，按下回车2次延时一定时间在按回车一次s = dm.Ocr(536, 163, 602, 198, "ffffff-000000|ff3232-000000|ffb400-000000", 0.9) TracePrint sIf s <> "" Then物价= CLng(s)TracePrint 物价Else物价=""//为了防止网速造成图片没显示所以加上这判断以防出错误秒End IfDelay 100s = dm.Ocr(169,165,198,179,"ffffff-000000|ff3232-000000|ffb400-000000",1.0)//物品个数TracePrint sIf s <> "" Then个数= CLng(s)差价= 物价/ 个数TracePrint 差价-设置价格TracePrint 差价Else差价=""End IfIf 差价< 设置价格and 差价<>"" Then //符合条件拍下TracePrint "可以秒了"dm.MoveTo 543, 167Delay 50dm.LeftClickDelay 50dm.MoveTo 595, 198Delay 50dm.LeftClickDelay 50dm.KeyPress 13Delay 50dm.KeyPress 13Delay 3500s = dm.Ocr(310,262,486,330,"ffffff-000000",1.0)If Instr(s, "不存在") > 0 ThenExit ForEnd Ifdm.KeyPress 13Delay 50s = dm.Ocr(376, 235, 431, 270, "ffffff-000000", 1.0)If Instr(s, "公告") > 0 ThenDelay 20dm.KeyPress 13Delay 20End IfEnd IfNextDelay 100LoopSub 大漠注册()// 首先打包dm.dll和RegDll.dll到附件,当然如果你还有其它资源(字库，图片等)也可以一并打包need_ver = "3.1233" // 这个need_ver作为本脚本需要使用的插件版本. 如果要换插件时，记得更改这个值.PutAttachment "C:\Windows\System32","atl.dll" //将按键附件里的atl系统库释放在WIN系统中，以免某用户机器上没有或删除set ws=createobject("Wscript.Shell")ws.run "regsvr32 atl.dll /s"set ws=nothing// 这里选择c盘的test-_game作为插件的基本目录也就是SetPath对应的目录。
脚本使用方法：1、把下面的短语粘贴到搜狗的配置文件中2、需要扫的物品设置上价格3、设置价格的物品都会扫描，所以不扫的不要设置价格4、价格格式"3000-5",解释:3000代表单价,5代表刷新次数5、记得把接任务的快捷键设置成 [ 键6、自动上拍卖设置好价格物品放到第四行第一格提示：自动登录只支持单开游戏，报警模式请选择自动登录，支持不开游戏自动上。
自动登录不支持过验证，不支持密保卡、令牌、2级密码材料和HPMP已经添加完毕，武器马上添加，请大家先测试脚本地址：/nxm测试/试用激活码：RTWEDWUGRUDSEDWCRIDJVCTUVDGEIKRD设置你需要扫的物品价格启动脚本即可，以下是毕设短语，请粘贴到搜狗输入法的配置文件中如果复制不下来，按 Ctrl+A 全选后复制到记事本中，在里面找到这些短语。
或在论坛的连接里复制点击进入lj,1=灵魂晶石zn,1=灾难的征兆lb,1=蓝冰恶魔的挑战书kl,1=狂乱恶魔的挑战书qr,1=强韧恶魔的挑战书wy,1=威严恶魔的挑战书sy,1=上级元素结晶pl,1=频道喇叭fl,1=服务器喇叭bl,1=波罗丁的印章wz,1=王之石像碎块cy,1=戮蛊的眼睛hd,1=混沌魔石碎片tl,1=泰拉石st,1=使徒的气息md,1=矛盾的结晶体gp,1=光辉之魔石碎片ns,1=浓缩的异界精髓ql,1=强烈之痕迹na,1=浓缩的纯洁之骸sd,1=G.S.Dbp,1=碎布片pg,1=破旧的皮革fg,1=风化的碎骨tp,1=生锈的铁片ds,1=最下级砥石yh,1=最下级硬化剂ty,1=特级硬化剂lt,1=炉岩炭xs,1=下级元素结晶wk,1=无色小晶块lk,1=蓝色小晶块hk,1=黑色小晶块bk,1=白色小晶块tk,1=红色小晶块jk,1=金色小晶块wt,1=无色大晶体dt,1=蓝色大晶体ht,1=黑色大晶体bt,1=白色大晶体tt,1=红色大晶体jt,1=金色大晶体sl,1=撒勒的印章kr,1=克尔顿的印章nw,1=女王的印章hz,1=皇帝的印章wp,1=无重力碎片lr,1=龙人之眼sc,1=圣痕丝绸gs,1=锆石ys,1=萤石si,1=尖晶石ps,1=炮身fc,1=锋利的尖刺py,1=破损的刀刃tm,1=根茎cx,1=坚韧的触须yy,1=耀眼的结晶xj,1=邪恶的结晶yx,1=燃烧的心脏fy,1=锋利的狼牙xh,1=雪虎的毛皮kz,1=疯狂盗贼的口罩cp,1=次品芯片hy,1=黑硬的物质pk,1=博肯人偶tw,1=被污染的蜘蛛腿xn,1=邪念体nh,1=炎之内核fz,1=风之流动gz,1=光之心脏gb,1=干部mz,1=猫妖脚爪bg,1=手骨nj,1=硬角kp,1=凯诺的皮毛ph,1=诺顿的普通HP药剂sh,1=诺顿的熟练HP药剂zh,1=诺顿的专家HP药剂dh,1=诺顿的达人HP药剂jh,1=诺顿的大师HP药剂th,1=天堂的HP药剂pm,1=罗莉安的普通MP药剂sm,1=罗莉安的熟练MP药剂zm,1=罗莉安的专家MP药剂dm,1=罗莉安的达人MP药剂jm,1=罗莉安的大师MP药剂am,1=天堂的MP药剂mb,1=睡眠贝肉ts,1=天空之城露水tq,1=天空之城泉水sg,1=珊瑚果冻ls,1=蓝色圣经hs,1=黄金圣餐cl,1=干酪yr,1=冷藏的羊肉cm,1=突变草莓my,1=突变苎麻花叶dr,1=大块肉干sj,1=黑色龙舌兰酒mr,1=命运硬币xp,1=信念碎片dp,1=斗志碎片sp,1=守护碎片zz,1=DNF善战者rz,1=DNF睿智者qz,1=传说之尊者zq,1=传说之智者ws,1=无双的勇士wd,1=无双的智者yd,1=英勇的斗士ya,1=英勇的智者rc,1=人偶剧团 (柴郡猫) rl,1=人偶剧团 (蓝仙女) rx,1=人偶剧团 (许愿星) rm,1=人偶剧团 (小巫女) rd,1=人偶剧团 (大灰狼) tj,1=天下第一剑nz,1=女中豪杰fx,1=风云游tg,1=铁扇公主zg,1=镇国神将lv,1=冷艳女神jz,1=精·天下第一剑jn,1=精·女中豪杰jf,1=精·风云游js,1=精·铁扇公主ji,1=精·镇国神将jl,1=精·冷艳女神km,1=快乐冒险家al,1=奥西里斯神的意志nn,1=尼努尔塔神的意志ss,1=迦尼萨神的意志gw,1=怪物的突击wb,1=海之勇者 (海龟) bz,1=海之勇者 (章鱼) ha,1=海之勇者 (海马) by,1=海之勇者 (热带鱼) sa,1=海之勇者 (鲨鱼) yb,1=闪耀之DNF勇士hi,1=虎之魂 (智)hl,1=虎之魂 (力)ba,1=白虎之魂 (智) bb,1=白虎之魂 (力) ka,1=杜拉kb,1=尼克卡kc,1=里卡kd,1=奇卡ke,1=库卡kf,1=吉卡kg,1=炮卡kh,1=拉克ki,1=索卡kj,1=斯拉卡kk,1=西克kn,1=坦卡ko,1=拉德卡kq,1=普利ks,1=修卡kt,1=塔尼ku,1=侠卡kv,1=亨卡kw,1=者罗kx,1=利斯卡ky,1=怨恨之ma,1=雷德卡mc,1=汀克卡me,1=凡特卡mf,1=震卡mg,1=帅卡mh,1=尼斯卡mi,1=多卡mj,1=恩卡mk,1=装者卡ml,1=沃利卡mm,1=提卡mn,1=加卡mo,1=哈特卡mp,1=比斯卡mq,1=GTmt,1=特斯卡mu,1=部卡mv,1=波罗丁卡mw,1=影卡mx,1=高格卡nb,1=骑士卡nc,1=皮特卡nd,1=蛊卡ne,1=王卡nf,1=萨卡ng,1=菲斯卡ni,1=斯克卡nk,1=里克卡ms,1=墨竹手镯ff,1=梵风衣yl,1=鳞岩护肩lc,1=灵犀之心zx,1=王者之星xz,1=贤者之戒lg,1=流光星陨刀xg,1=血光摄魂刃ch,1=杀戮守护之镯hq,1=骸麒的骨戒sw,1=死亡舞步gj,1=毁灭公爵ly,1=爆裂者 - 血鹰lo,1=库里欧的传承zy,1=黎明之眼ap,1=戮蛊的哀鸣炮yn,1=幽灵手弩zp,1=血之审判者yz,1=野战队长的奇袭手弩bm,1=暴戾冥思者sz,1=四辰斩邪剑gd,1=戮蛊的骨刃gc,1=裁决刃 - 国殇tz,1=天选之剑 - 格朗lm,1=双龙魔影剑fj,1=复仇之剑 - 夺魂者hg,1=戮蛊的皮残片jx,1=极限之袭腰带cb,1=粗布拖鞋la,1=分离的痛苦项链ld,1=圣灵战士项坠le,1=痛苦的思念项链lf,1=神鬼战士项坠lh,1=玛尼神兽项坠li,1=赤道碎星花结ll,1=孤独的守候项链ln,1=守护者之魂lp,1=召唤芯片lq,1=护心镜lu,1=希泊之力作lw,1=堕落之血lx,1=狂乱之核lz,1=佩鲁斯的荣誉aa,1=精灵之歌ab,1=拉罗的迷失ac,1=不灭的记忆之戒ad,1=苏拉托之眼ae,1=厮守的心愿之戒af,1=巨兽之眼ag,1=漩涡者之魂ah,1=悸动者之魂ai,1=炸药包aj,1=避火装置an,1=米斯特ao,1=处女作aq,1=常春藤ar,1=卡罗蛇眼as,1=摩恩之珠at,1=罗杰的金表au,1=哈尼克的护面av,1=罗乌的血玉手镯。
按键精灵源码//做这东西主要是为了新人学习之用希望对新人们有一些帮助//声明一些下面要用到的变量（其实不声明也可以不过为了养成//编程的好习惯还是希望大家声明一下)Dim XY_qi,Xq,Yq,n,m,Shu,Fu,A,X,Y//下面这部分是用来设置各种参数用户定义变量 XY_qi=800/400 输入数字起点坐标格式如：10/10 用户定义变量 Hen=5 输入横向特征点个数用户定义变量 n=1 输入横向递进值用户定义变量 Zong=10 输入纵向特征点个数用户定义变量 m=2 输入纵向递进值用户定义变量Ms=2 显示方式设置：1为弹出窗口模式2为粘帖模式用户定义变量 Color1=FFFFFF 设置字体颜色或者背景颜色//初始化数据部分//把Color1转化为字符串类型Color1=Str(Color1)//........................转换成字符类型//取得"/"在字符串的地几个A=InStr(XY_qi,"/")//.........................搜索字符串中指定字符的位置//取得"/"左边的数据Xq=Left(XY_qi,A-1)//........................返回指定数目的从字符串的左边算起的字符//取得"/"右边的数据Yq=Right(XY_qi,Len(XY_qi)-A)//.........从字符串右边返回指定数目的字符//给Shu,X,Y 赋值取得字符串长度Shu=""X=Xq:Y=Yq//纵向特征点个数循环 Zong 遍//给X赋值X=Xq//横向特征点个数循环 Hen 遍//利用GetPixelColor函数开始找颜色调用外部VBScript子程序 Color2=得到指定点的颜色(X,Y) //找到的颜色值和自己设置的颜色值做比较如果表达式 (Color2<>Color1) 为真,则//如果2个颜色不一样则给Fu赋值"1"Fu="1"否则//否则给Fu赋值为"0"Fu="0"条件结束//没循环1次X的值增大nX=X+n//每循环1次Shu的值连接一个FuShu=Shu&Fu循环结束//每循环一次Y的值增大mY=Y+m循环结束//如果模式选择1在显示数字特征码如果表达式 (Ms=1) 为真,则调用外部VBScript子程序 Color2=得到指定点的颜色(X,Y) //如果模式选择2则把数据写入剪切板否则如果(Ms=2)为真,则调用子程序 Nt调用子程序 Ts条件结束脚本停止运行//写入剪切板子程序子程序 NtShuZi=ShuSet objIE = CreateObject("InternetExplorer.Application")objIE.Navigate("about:blank")objIE.document.parentwindow.clipboardData.SetData "Text", ShuZiobjIE.Quit子程序结束,回到调用处//弹出对话框子程序子程序 Tsset Obj = createobject("WScript.Shell")Hua="数字特征码为："&vbcr&Shu&vbcr&"请打开记事本粘帖"调用外部VBScript子程序 Color2=得到指定点的颜色(X,Y)子程序结束,回到调用处//打开画图程序，并最大化，调整默认大小再运行脚本就OK。
来自按键精灵的DNF刷第一图源码被虐疯了才憋出一个可以解恨的DNF刷图源码，源码内包含了换角色、改键、区域移动、地图选择、出售、封装识别。
18个地图的一图（其他地图可以自己修改下就可以刷全部图的一图）主要是给新手学习的，老鸟别喷。
附件在下面，做了很久了，随着游戏更新现在不一定能正常使用可以自己修改下：PutAttachment ".\plugin" ,"*.dll"UserVar dtxz=DropList{"洛兰(1)":"0"|"洛兰深处(2)":"1"|"幽暗密林(3)":"2"|"雷鸣废墟(5)":"3"|"冰霜幽暗密林(8)":"4"|"烈焰格拉卡(12)":"5"|"龙人之塔(16)":"6"|"人偶玄关(18)":"7"|"石巨人塔(20)":"8"|"黑暗玄廊(22)":"9"|"城主宫殿(25)":"10"|"神殿外围(27)":"11"|"树精丛林(28)":"12"|"炼狱(29)":"13"|"极昼(30)":"14"|"第一脊椎(32)":"15"|"第二脊椎(34)":"16"|"天帷禁地(36)":"17"|"()":"5"|"()":"5"|"()":"5"|"()":"5"|"()":"5"|"()":"5"|"()":"5"|"()":"5"}=0 "地图选择"UserVar bjfs=DropList{"机箱":"0"|"音响":"1"}=0 "报警方式"UserVar jsgh=DropList{"更换":"0"|"不换":"1"}=0 "角色更换"UserVar jssl=1 "角色数量"UserVar jhks=1 "几号开始"UserVar jtj1=0 "进图按键"UserVar jtj2=0 "进图按键"UserVar jtj3=0 "进图按键"UserVar ctj1=0 "出图按键"UserVar ctj2=0 "出图按键"UserVar jqaj=0 "捡取按键"UserVar csaj=0 "出售按键"Hwnd = Plugin.Window.Find(0, "地下城与勇士")Call Plugin.Window.Move(Hwnd, 0, 0)Delay 1000Rem 主程序Call 选择角色()Call 疲劳改键()Call 移动区域()Call 地图选择()Goto 主程序Sub 选择角色()If jsgh=0 ThenIfColor 210,440,"6B949C",0 Thenjsx=117jsy=137If jhks<5 ThenFor jhks-1jsx=jsx+130NextElseFor jhks-5jsx=jsx+130Nextjsy=jsy+185End Ifjhks=jhks+1MoveTo jsx, jsyLeftClick 1Delay 1000MoveTo 322, 448LeftClick 1ElseIf jhks>jssl ThenCall 报警提醒()End IfFor 3IfColor 316,271,"484849",0 ThenElseMoveTo 39, 434LeftClick 1Delay 300KeyPress "Esc", 1Delay 1000End IfNextMoveTo 316, 344LeftClick 3For 30IfColor 210,440,"6B949C",0 ThenGoto 主程序ElseDelay 1000End IfNextCall 报警提醒()End IfEnd IfEnd SubSub 疲劳改键()For 30IfColor 40,400,"608A9D",0 ThenIfColor 278,437,"F78C00",0 ThenGoto 疲劳改键ElseMoveTo 39, 434LeftClick 1Delay 300KeyPress "Esc", 1Delay 1000End IfNextIf jsgh=1 ThenCall 报警提醒()End IfGoto 主程序ElseDelay 1000End IfNextCall 报警提醒()Rem 疲劳改键For 3IfColor 316,271,"484849",0 ThenElseKeyPress "Esc", 1Delay 1000End IfNextMoveTo 315, 317LeftClick 3Delay 1000MoveTo 407, 163LeftClick 1Delay 300KeyPress "W", 1Delay 300KeyPress "A", 1Delay 300KeyPress "S", 1Delay 300KeyPress "D", 1Delay 300MoveTo 372, 401LeftClick 1LeftClick 1Delay 1000For 3IfColor 566,38,"8DEDFF",0 ThenElseMoveTo 344, 188LeftClick 1Delay 1000MoveTo 404, 240LeftClick 1Delay 1000End IfNextMoveTo 163, 401LeftClick 1Delay 300Call 出售物品()End SubSub 移动区域()KeyDown "S", 1Delay 8000KeyUp "S", 1Delay 300If dtxz<2 ThenMoveTo 400, 360RightClick 1Delay 1000KeyDown "D", 1zyj=1End IfIf dtxz>1 And dtxz<6 ThenKeyDown "S", 1Delay 300KeyDown "A", 1Delay 3500KeyUp "S", 1zyj=0End IfIf dtxz>5 And dtxz<11 ThenKeyDown "D", 1zyj=1End IfIf dtxz>10 And dtxz<18 ThenMoveTo 20, 90RightClick 1Delay 5000MoveTo 280, 380RightClick 1Delay 1000KeyDown "D", 1zyj=1End IfFor 50IfColor 573,428,"8DC5DD",0 ThenGoto 移动区域ElseDelay 1000End IfNextCall 报警提醒()Rem 移动区域If zyj=0 ThenKeyUp "A", 1ElseKeyUp "D", 1End IfDelay 300End SubSub 地图选择()If dtxz=0 Thendtx=147dty=389End IfIf dtxz=1 Thendtx=309dty=384End IfIf dtxz=2 Thendtx=147dty=389End IfIf dtxz=3 Thendtx=472dty=352End IfIf dtxz=4 Thendtx=123End IfIf dtxz=5 Thendtx=340dty=188 End IfIf dtxz=6 Thendtx=130dty=376 End IfIf dtxz=7 Thendtx=295dty=391 End IfIf dtxz=8 Thendtx=441dty=331 End IfIf dtxz=9 Thendtx=504dty=256 End IfIf dtxz=10 Thendtx=366dty=181 End IfIf dtxz=11 Thendtx=192dty=227 End IfIf dtxz=12 Thendtx=340dty=188 End IfIf dtxz=13 Thendtx=494dty=192 End IfIf dtxz=14 Thendtx=518dty=269 End IfIf dtxz=15 Thendtx=472End IfIf dtxz=16 Thendtx=309dty=384End IfIf dtxz=17 Thendtx=147dty=389End Ifcswp=0Rem 地图选择If zyj=0 ThenKeyDown "D", 1Delay 500KeyUp "D", 1KeyDown "A", 1ElseKeyDown "A", 1Delay 500KeyUp "A", 1KeyDown "D", 1End IfFor 30IfColor 573,428,"8DC5DD",0 ThenIf zyj=0 ThenKeyUp "A", 1ElseKeyUp "D", 1End IfDelay 300For 10IfColor 573,428,"8DC5DD",0 ThenKeyPress "D", 3Delay 300MoveTo dtx, dtyLeftClick 1Delay 1000ElseCall 地图内部()Goto 地图选择End IfNextDelay 30000Goto 主程序ElseDelay 1000End IfNextCall 报警提醒()End SubSub 地图内部()For 30IfColor 40,400,"608A9D",0 ThenKeyPress "Esc", 3Delay 300KeyPress jtj1, 1Delay 300KeyPress jtj2, 1Delay 300KeyPress jtj3, 1Delay 300For 50IfColor 582,49,"263C44",0 ThenIfColor 582,88,"102129",0 ThenIfColor 562,68,"102931",0 ThenIfColor 602,68,"102131",0 ThenFor 5KeyPress "X", 1Delay 300NextElseGoto 地图内部End IfElseGoto 地图内部End IfElseGoto 地图内部End IfElseGoto 地图内部End IfNextGoto 地图内部ElseDelay 1000End IfNextCall 报警提醒()Rem 地图内部KeyPress ctj1, 1Delay 300KeyPress ctj2, 1Delay 300cswp=cswp+1If jqaj>0 ThenFor 10KeyPress jqaj, 1Delay 300NextEnd IfIf csaj>0 ThenIf cswp>10 ThenFor 3IfColor 566,38,"8DEDFF",0 ThenElseKeyPress "I", 1Delay 1000End IfNextKeyPress csaj, 1Delay 300Call 出售物品()cswp=0End IfEnd IfFor 3IfColor 316,271,"484849",0 ThenElseKeyPress "Esc", 1Delay 1000End IfNextMoveTo 316, 396LeftClick 3Delay 5000End SubSub 出售物品()MoveTo 547, 353LeftClick 1Delay 300MoveTo 356, 207LeftClick 3Delay 1000zby=234For 2zbx=347For 7MoveTo zbx, zbyDelay 500FindPic 325,0,640,480,"Attachment:\金币.bmp",1,ux,uyIf ux > 0 And uy > 0 ThenFindPic 325,0,640,480,"Attachment:\封装.bmp",1,ux,uyIf ux > 0 And uy > 0 ThenElseFindPic 325,0,640,480,"Attachment:\无法.bmp",1,ux,uyIf ux > 0 And uy > 0 ThenElseLeftClick 1Delay 500LeftClick 1Delay 500End IfEnd IfElseFindPic 325,0,640,480,"Attachment:\无法.bmp",1,ux,uyIf ux > 0 And uy > 0 ThenElseGoto 出售物品End IfEnd Ifzbx=zbx+30Nextzby=zby+30NextRem 出售物品MoveTo 403, 207LeftClick 3Delay 1000FindPic 0,0,640,480,"Attachment:\魔盒.bmp",0.9,ux,uyIf ux > 0 And uy > 0 ThenMoveTo ux+6, uy+12LeftClick 1Delay 500LeftClick 1Delay 500LeftClick 1End IfDelay 300KeyPress "Esc", 1Delay 300End SubSub 报警提醒()Rem 报警提醒If bjfs=0 ThenFor 2BeepDelay 1000NextEnd ifIf bjfs=1 ThenPath = Plugin.Sys.GetDir(0)Path=Path & "\W.wav"Call Plugin.Media.Play(Path)Delay 2000End ifGoto 报警提醒End Sub。
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓UserVar 联系作者方式=DropList{"QQ：410561049":0|"查看版本号":1} = 0 "联系作者方式"UserVar 注册码="请输入注册码[请勿更改]" "请输入注册码[请勿更改]"UserVar 网络速度_拍=DropList{"网络速度[快速]":0|"网络速度[中速]":1|"网络速度[慢速]":2}=0 "请选择您的网络速度"UserVar 自动收取邮件_拍=DropList{"自动收取邮件":0|"无需自动收取":1}=0 "是否自动收取邮件"UserVar 收件截图_拍=DropList{"收取邮件后截图存盘[D:盘]":0|"不用截图":1}=0 "收取邮件是否截图"UserVar 上架拍卖行_拍=DropList{"自动上架拍卖品":0|"不用上架拍卖品":1} = 0 "是否要上架拍卖品"UserVar 上架的种类_拍=DropList{"只上架材料栏物品":0|"上架所有种类的物品":1}=0 "请选择要上架的种类"UserVar 先后顺序_拍=DropList{"先收邮件和上架后再秒拍卖行":0|"先秒拍卖行后再收邮件和上架":1}=0 "请选择先后顺序"UserVar 选择功能_拍=DropList{"单开秒拍卖行(可以兼职摆摊)":0|"双开一秒一防掉":1|"双开一秒一防掉+上架拍卖品收邮件":2|"双开只防掉":3|"单开只防掉":4}=0 "请选择您要的功能"UserVar 输入法设置方式=DropList{"自动设置输入法短语":0|"手动设置输入短语":1} = 0 "请选择输入法设置方式[请勿更改]"UserVar 识别功能_拍=DropList{"开启识别功能[准确率提高]":0|"关闭识别功能[速度上升]":1}=0 "请选择是否开启识别功能"UserVar 屏幕显示_拍=DropList{"秒拍屏幕显示[挂机不建议使用]":0|"不用显示[速度上升]":1}=0 "请选择是否显示屏幕提示"UserVar 记录行情_拍=DropList{"记录拍卖行行情[D:盘]":0|"不用记录拍卖行行情":1}=0 "请选择是否记录拍卖行行情"UserVar 秒拍截图_拍=DropList{"秒拍成功后截图存盘[D:盘]":0|"不用截图":1}=0 "请选择秒拍成功后是否截图"UserVar 防掉线_拍=DropList{"10分钟":10|"15分钟":15|"5分钟":5}=0 "请选择多少分钟进行一次防掉线处理"//UserVar 处理方式_拍=DropList{"音乐提醒":0|"全部下线":1|"关闭电脑":2|"停止辅助":3}=0 "出错的处理方式"Dim o, L, T, R, B, a, w, d, s, c, u, iDim X_拍, Y_拍, X_竞, Y_竞, X_输, Y_输, 单价_拍, 总价_拍, 数量_拍, 名, 搜, 键, 拍，实际竞拍金额Dimenv 环境变量名_记录_行情, 环境变量名_记录_拍, 环境变量名_记录_竞, 组合数组_竞拍, 屏幕显示样式_竞拍, ScreenH, 屏幕间距_竞拍, 显示名称_竞拍, 显示总价_竞拍, 显示数量_竞拍, 显示单价_竞拍, 显示标价_竞拍, 竞拍金额_竞, 竞拍, 轮_竞拍, 种_竞拍, 笔_竞拍, 秒拍_截图, 收件_截图, 使用次数01, 使用次数02Dim wpsl(10)Dim wpdj(10)Dim sjsl(10)Dim 搜索名(500)Dim 一口价(500)Dim 竞拍价(500)Dim 竞拍数量(500)Dim 上架一口价(500)Dim 上架竞拍价(500)Dim 上架的数量(500)版本号= "DNF秒拍卖行永久版F2.4-GRBNNA01 --- 请把版本号记下和作者联系。
"If 联系作者方式= 1 ThenMessageBox 版本号EndScriptEnd If//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓Sub 记录_拍Call Plugin.File.WriteFileEx("D:\DNF拍卖行明细(拍)" & Date & ".txt", 环境变量名_记录_拍)End SubSub 记录_行情Call Plugin.File.WriteFileEx("D:\DNF拍卖行明细(行情)" & Date & ".txt", 环境变量名_记录_行情)End SubSub 移动窗口_拍ScreenW = Plugin.Sys.GetScRX()//Msgbox "获得屏幕分辨率宽度：" & ScreenWScreenH = Plugin.Sys.GetScRY()//Msgbox "获得屏幕分辨率高度：" & ScreenHDev = Plugin.Sys.GetScDep()//Msgbox "获得屏幕色深度(颜色质量)：" & DevPath = Plugin.Sys.GetDir(0)//Msgbox "获得路径：" & Pathxitong = Plugin.Sys.GetOSType()//MessageBox "您的操作系统版本是：" & xitongIf 选择功能_拍= 0 ThenCall 单开Call 单开出错ElseIf 选择功能_拍= 1 ThenMsgBox "请把鼠标移动到要秒拍卖行的游戏窗口，"&vbLf&"并点击激活后再按确认关闭我。
",vbInformation,"注意：你选择的是“一秒一摆功能”"Call 双开Call 双开出错ElseIf 选择功能_拍= 2 ThenMsgBox "请把鼠标移动到要秒拍卖行的游戏窗口，"&vbLf&"并点击激活后再按确认关闭我。
",vbInformation,"注意：你选择的是“一秒一摆+上架拍卖行收邮件功能”"Call 双开Call 双开出错ElseIf 选择功能_拍= 3 ThenCall 双开Call 双开出错Hwnd = Hwnd_1PCall 得到边框大小Call 防掉线处理_拍Hwnd = Hwnd_2PCall 得到边框大小Call 防掉线处理_拍防掉线时间_拍= Nowi = 0While i=0Call 双开掉线警报If DateDiff("n", 防掉线时间_拍, Now) > 防掉线_拍ThenHwnd = Hwnd_1PCall 得到边框大小Call 防掉线处理_拍Hwnd = Hwnd_2PCall 得到边框大小Call 防掉线处理_拍防掉线时间_拍= NowEnd IfDelay yanshi_10000WendElseIf 选择功能_拍= 4 ThenCall 单开Call 单开出错Call 得到边框大小Call 防掉线处理_拍防掉线时间_拍= Nowi = 0While i=0Call 单开掉线警报If DateDiff("n", 防掉线时间_拍, Now) > 防掉线_拍Then 防掉线时间_拍= NowCall 防掉线处理_拍End IfDelay yanshi_10000WendEnd IfEnd SubSub 单开Hwnd = Plugin.Window.Find("地下城与勇士", "地下城与勇士")Call Plugin.Window.Active(Hwnd)Delay 100sRect = Plugin.Window.GetWindowRect(Hwnd)MyArray = Split(sRect, "|")L = Clng(MyArray(0)): T = Clng(MyArray(1))R = Clng(MyArray(2)): B = Clng(MyArray(3))组合数组_竞拍= join(MyArray, ",")End SubSub 双开HwndEx = Plugin.Window.Search("地下城与勇士")MyArray2 = Split(HwndEx, "|")Hwnd_1P = Clng(MyArray2(0)): Hwnd_2P = Clng(MyArray2(1))Delay yanshi_100//MessageBox Hwnd_1P&"="&Hwnd_2PEnd SubSub 单开出错If Hwnd = 0 ThenMsgBox "没检测到DNF游戏窗口，"&vbLf&"请确认开启游戏后再开辅助。
