按键精灵判断DNF人物位置源码
学习怎么用按键精灵制作游戏辅助——脚本源代码干货分享
学习怎么用按键精灵制作游戏辅助——脚本源代码干货分享一、用按键精灵确定人物朝向（以剑灵自动寻路为例）的代码在剑灵右上角的小地图里找色/找图，箭头坐标存储在(x1,y1)，箭尾坐标存储在(x2,y2) FindColor1200,0,1920,300,"箭头颜色",x1,y1If x1 > 0 And y1> 0 ThenEnd IfFindColor1200,0,1920,300,"箭尾颜色",x2,y2If x1 > 0 And y1> 0 ThenEnd If'计算斜率/正切值斜率= (y1 - y2) / (x1 -x2)'计算角度角度= Atn(斜率)二、用按键精灵解决用户密码泄露问题的代码Function 加解密(源文件, 秘钥)Dim Z, iDim A, B, C加解密= ""If Len(源文件) = 0 Then’如果密码为空，则初始化为空加解密= ""Exit FunctionEnd If'调用Rnd函数使以后Rnd函数所产生的Rnd为相同的伪随机数列Z = Rnd(-秘钥)For i = 1 To Len(源文件)’将密码字符串一个一个字符通过加密，转换成另一个字符C = Mid(源文件, i, 1)A = Asc(C)B = Int(126 * Rnd) And&H7F’这里的&H7F，是指生成的伪随机代码，只取7位，以免数据溢出A = A Xor B’Xor是可逆的，第一次运行时是得到加密后的数据，再运行一次是得到解密后的数据C = Chr(A)加解密= 加解密+ CNextEnd Function举个例子吧~Function 加解密(源文件, 秘钥)Dim Z, iDim A, B, C加解密= ""If Len(源文件) = 0 Then加解密= ""Exit FunctionEnd If'调用Rnd函数使以后Rnd函数所产生的Rnd为相同的伪随机数列Z = Rnd(-密钥)For i = 1 To Len(源文件)C = Mid(源文件, i, 1)A = Asc(C)B = Int(126 * Rnd) And&H7FA = A Xor BC = Chr(A)加解密= 加解密+ CNextEnd FunctionEvent Form1.Load//获取小节名（如"e1df741f-d5ec-4ad7-969d-adb139c6a24f"），同一个Q文件生成的小节名不变a = GetMacroID()//获取到当前脚本/小精灵de ID加密文件=Plugin.File.ReadINI("e1df741f-d5ec-4ad7-969d-adb139c6a24f","Form1 .InputBox2.T ext", ".\uservar.ini")解密文件= 加解密(加密文件, 1234567890)'这里的1234567890是假使的密钥，可以修改，注意保密Form1.InputBox2.T ext = 解密文件End Event//写入密码信息源文件= Form1.InputBox2.T ext加密文件= 加解密(源文件, 1234567890)CallPlugin.File.WriteINI("e1df741f-d5ec-4ad7-969d-adb139c6a24f","Form1.InputBox2.T ext", 加密文件, ".\uservar.ini")//输出信息RunApp "notepad.exe"SayString Form1.InputBox1.T extKeyPress "Enter", 1SayString 源文件三、按键精灵快速排序的代码su = "6|1|2|7|9|3|4|5|10|8"su=Split(su, "|")L = UBound(su)Call ks(0, L)Function ks(L, B)If L > B ThenExit FunctionEnd If //判断数组上标下标是否超出范围i = Lj = Bkey =int( su(L) ) //数组第一位提取作为基数While j>iWhile int ( su(j)) >= key and j > i //要先从最右边开始找找到第一个小于key的数这里添加的j>i的判断是为了防止j的值不断递减导致下标越界j = j - 1WendWhile int (su(i)) <= key and j > i //从最左边开始找找到第一个大于key的数（这里的字符串数组需要转换为数值型）i = i + 1WendIf j>i then // 将和基数key对比得到的两个数对换将大于key的值往右边放小于key的值往左边放T = su(i)su(i) = su(j)su(j) = TEnd IfWend // 这个While 循环当i=j 第一轮比较完退出su(L) = su(i) // 重新设置数组第一个元素为基数su(i) = key// 基数归位（排完一轮之后左边的数<基数<右边的数那么基数就到了排序中它该在的位置。
按键精灵 找内存基址
有人问怎么自动加血，我板凳帖子里不是有了，读取血内存地址的代码了吗？把那份代码，你用两次，第一次读取出来的数值作为最大血值，再用一次来读取，当前血量。
然后你加个判断if 当前红<最大红*设置的百分比then 喝药快捷键(有兴趣的同志可以自己用CALL)ENd if另外补充。
我一般很少写挂，除非是没挂的游戏（中国特色估计着是不可能的）。
都是去买，买一个月才30-50.。
虽说有模板，但是自己写光调试都要N天。
找基址，找CALL。
快的一个量要5分钟，慢的半个小时都有可能。
有那闲工夫慢慢写。
不知道打工已经挣多少了。
因为我在这个区不能再编辑帖子发图了这里为了使大家能听得懂，所以我用了很多白话。
（貌似有点愧对大学老师。
讲的都很不规范。
俺不是计算机系出来的。
没办法。
）。
我想不到更简单的方法了。
老鸟看了别喷粪。
认为不好的少唧唧歪歪。
自己去写个教程。
版版能不能加个精华啊，写的很辛苦啊~不然没啥动力继续写了不少兄弟一直也很想写模拟挂，但是却不知道如何下手，这里我就带大家从0学起，该如何写模拟挂。
这里我教程重点是偏向于后台运行的模拟挂。
所以向找色这些用的比较少。
其实我根本不会找色。
我习惯读内存。
其实按键精灵难的就是怎么读内存，会弄内存了，只要直接把内存地址复制到万能模板里就行了。
最近开始转学E语言写内挂，所以就把万能模板公开了，全套教程看完，你就能最短时间内写个模拟挂了（你只要把几个参数自己找到代入就行。
）。
基本上简单游大多数脚本也只有这个水平。
当然我的挂只有简单找怪打怪功能，没啥变态功能。
因为我都是自己用，没有啥让人激动游戏，可以提起我兴趣去写。
那些自动任务什么的。
汗。
你找别人吧。
基本要求：具有高中级别的VB 水平，不需要多高，知道常量，变量，什么是十进制，十六进制，以及简单流程控制if do while 是什么就行，还有懂得勾股定理（挂机范围时候用到）。
别说你不懂。
高中就有学。
人教版高一数学，选修（二），这些东西我前一阵还在教，那些学生都能学额很轻松。
新版按键精灵X版底层使用代码分享
新版按键精灵X版底层使⽤代码分享按键精灵X亮点多多，这⾥分四⽅⾯简要说明⼀下：1、性能提升：代码⾏效率提升70%以上，函数调⽤效率提升40%以上，同脚本整体性能⽐按键精灵2014提升10%以上。
2、体验更好：调试反应迅速，多次调试内存不会导致内存泄漏积累、CPU占⽤过⾼的情况。
3、更加稳定：内存占⽤有所改善，调试、运⾏不容易崩溃，不会因为杀软或优化的缘故导致脚本⽆法执⾏。
4、功能更强：QUI系统优化、附件系统优化、标准库重做、多线程系统优化，功能⽐2014版更强⼤。
获取窗⼝焦点1 /***********2 *获取窗⼝焦点(*底层识别)3 ************/4 Function windowsIn()5 //获取窗⼝句柄6 Hwnd = Window.Find("WeChatMainWndForPC", "微信")7 //窗⼝复原8 Window.Restore (Hwnd)9 //窗⼝移动10 Window.Move(Hwnd, 300, 200)11 //重设窗⼝⼤⼩12 Window.SetClientSize(Hwnd, 850, 795)13 //获取窗⼝坐标14 sRect = Window.GetWindowRect(Hwnd)15 //MsgBox "得到窗⼝句柄的边框⼤⼩(包括标题栏)为："& sRect16 //下⾯这句⽤于分割字符串,将横坐标和纵坐标分成两个字符串17 MyArray = Split(sRect, "|")18 //下⾯这句将字符串转换成数值19 W1 = Clng(MyArray(1)): H1 = Clng(MyArray(2))20 W2 = Clng(MyArray(3)) : H2 = Clng(MyArray(4))21 //MsgBox "边框⼤⼩： " & W2-W1 & "" & H2-H122 sosow=W1+11723 sosoh = H1 + 2624 TracePrint W1 & "::" & H1 & "::" & W2 & "::" & H225 End FunctionView Code⼤漠绑定1 /*****************2 **⼤漠绑定插件命令(*底层识别)3 *******************/4 Function findOcr()5 dm_ret = dm.SetDict(0, GetResPath()&"dm.txt")6 dm_ret = dm.GetClientSize(Hwnd,W2-W1,H2-H1)7 dm_ret = dm.BindWindow(Hwnd, "gdi", "normal", "normal", 0)8 Delay 2009 If dm_ret = 0 Then10 TracePrint ("⼤漠界⾯綁定失败")11 Return -112 Exit Function13 Else14 TracePrint ("⼤漠界⾯綁定成功")15 Return 016 End If17 End FunctionView Code⼤漠识字封装1 /*****************2 **⼤漠识字命令(*底层识别)3 *daMoFindOcr(x1,y1,x2,y2)4 *******************/5 Function daMoFindOcr(d1_x1,d1_y1,d1_x2,d1_y2)6 Dim d1_s = dm.Ocr(d1_x1,d1_y1,d1_x2,d1_y2,"727272-202020|000000-eeeeee",0.9)7 TracePrint (d1_s)8 Return d1_s9 End FunctionView Code⼤漠识图封装1 /*****************2 **⼤漠识图命令(*底层识别)3 *dm_findAllPic(x1,y1,x2,y2)4 *******************/5 Function dm_findPic(d3_x1, d3_x2, d3_y1, d3_y2, d3_picUrl)6 Dim d3_dm_ret, d3_intX,d3_intY, d3_count, d3_sss, d3_x, d3_y7 d3_dm_ret = dm.FindPic(d3_x1, d3_x2, d3_y1, d3_y2,GetResPath()& d3_picUrl,"000000",0.9,0,d3_intX,d3_intY)8 If d3_intX >= 0and d3_intY >= 0 Then9 d3_intX = d3_intX10 d3_intY = d3_intY11 TracePrint (d3_intX & "+dm_findPic+" & d3_intY)12 Return 0,d3_intX,d3_intY13 Else14 TracePrint ("-1,-1,-1")15 Return -1,-1,-116 End If17 End FunctionView Code⼤漠全屏识图封装1 /*****************2 **⼤漠识图命令全局(*底层识别)3 *dm_findAllPic(x1,y1,x2,y2)4 *******************/5 Function dm_findAllPic(d2_x1, d2_y1, d2_x2, d2_y2, d2_picUrl)6 dim d2_num = 07 Dim d2_picXY(10)8 Dim d2_daozhangID,d2_shoukuanW,d2_shoukuanH9 Do10 d2_daozhangID,d2_shoukuanW,d2_shoukuanH= dm_findPic(d2_x1,d2_y1,d2_x2,d2_y2,d2_picurl)11 If d2_daozhangID = 0 Then12 d2_num = d2_num + 113 Dim d2_arrayin(1)14 d2_arrayin(d2_shoukuanW)=d2_shoukuanH15 d2_picXY(d2_num)=d2_arrayin16 //x1 = shoukuanW17 d2_y1 = d2_shoukuanH + 2018 TracePrint (d2_x1 & d2_y1 & d2_x2 & d2_y2)19 TracePrint ( "找到" & d2_num & "个，坐标为："& d2_shoukuanW& d2_shoukuanH)20 End If21 Loop While d2_daozhangID= 022 //TracePrint ( "找到" & num & "个，坐标为："& piczuobiaoji)23 For Each d2_k, d2_v In d2_picXY24 TracePrint d2_k, d2_v25 Next26 Return d2_num,d2_picXY27 End FunctionView Code最后：按键精灵X版最新版，⾸次将底层转为基于lua，使得代码书写更为⽅便，使⽤流畅度⼤⼤提升！推荐两个插件：1. ：（:放在上边显⽰密码）(开源代码：)⼤兵插件（DBSoft.dll）为⼤兵软件系列软件之⼀，由dabingrain⽤VB6SP6，WINXP系统下写的COM型ActiveX Dll ,⼤部分软件可以引⽤使⽤。
按键精灵判断DNF人物位置源码
按键精灵判断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.结论- 总结自由幻想按键精灵源代码的价值和应用- 鼓励读者尝试和使用源代码正文：自由幻想按键精灵源代码是一款免费、开源的按键精灵制作工具，它可以帮助用户快速地制作属于自己的按键精灵，从而实现自动操作、自动点击等便捷功能。
自由幻想按键精灵源代码的重要性在于，它为用户提供了更多的自定义和开发可能性，使得用户可以更好地适应自己的需求和操作习惯。
自由幻想按键精灵的主要功能和特点包括：支持多种操作系统、兼容多种游戏和应用、拥有丰富的脚本编辑功能、支持多线程操作等。
这些特点使得自由幻想按键精灵成为许多用户的首选工具。
获取自由幻想按键精灵源代码十分简单。
用户只需访问官方网站或相关下载站点，即可找到源代码的下载链接。
在下载完成后，用户可以根据官方文档或教程，逐步了解和分析源代码。
源代码的解析是使用和开发自由幻想按键精灵源代码的关键。
一般来说，源代码包括主程序、脚本编辑器、核心功能模块等多个部分。
用户可以通过分析这些部分，了解自由幻想按键精灵的工作原理，以及如何根据自己的需求进行修改和定制。
源代码的修改与定制是自由幻想按键精灵源代码最大的价值所在。
用户可以根据自己的需求，修改源代码中的相关功能和参数，从而实现更符合自己习惯的按键精灵。
例如，用户可以修改按键精灵的点击速度、添加自定义功能等。
总之，自由幻想按键精灵源代码为用户提供了极大的使用和开发空间。
无论你是初学者还是资深用户，都可以从源代码的学习和使用中，获得更多的知识和乐趣。
OD找DNF基址
用OD搜基址,首先我们要会附加DNF进程，很多人说附加不了DNF进程在这里我就详细的说下附加的方法1.登录游戏，这个没啥说的了2.打开OD附加DNF进程，这时候大家会发现找不到DNF进程。
没关系3.打开驱动工具，passtx2文件拖拽或者浏览然后点安装，然后点启动4.这时候你在重新附加DNF进程你就会发现可以找到DNF进程啦。
5.虽然附加成功了，但是你会发现OD的窗口还是黑色的，这样你会很烦恼把，没关系你点击OD右上角的按钮你会发现如图：这样你就成功一半啦！接下来进入搜索的步骤！搜索方法：首先我们要跳转一下按CTRL+G键输入00400000人物基址：按CTRL+S键输入特征码→mov eax,dword ptr ds:[esi]push 0x1Fmov ecx,esicall dword ptr ds:[eax+0x1a8]加密解密：按CTRL+S键输入特征码→push 3F公告地址、商店地址:按CTRL+S键输入特征码→push 4AA9技能地址:按CTRL+S键输入特征码→PUSH EDIPUSH EDIMOV EAX,DWORD PTR DS:[ESI] PUSH ECXMOV ECX,DWORD PTR SS:[EBP-14] PUSH EDXPUSH EDI动作CALL:按CTRL+S键输入特征码→mov eax,dword ptr ds:[edi]push ebxpush ebxpush ebxpush ebxpush ebxmov ecx,edi物品CALL:按CTRL+S键输入特征码→mov ecx,dword ptr ds:[edx+edi*4] mov eax,dword ptr ds:[ecx]call dword ptr ds:[eax+18]mov cl,byte ptr ds:[esi+34]帐号基址的方法我在这里在说下,用到小烦搜索工具登录游戏打开工具选择只搜基址输入登录游戏QQ的张帐号直接点搜索可以啦,如图:1.技能参数搜索PUSH EDIPUSH EDIMOV EAX,DWORD PTR DS:[ESI] PUSH ECX技能参数1 010A5E88技能参数2 010A5E8C2.仓库基址和商店基址push 2D方法二push eaxpush 0x2D商店基址 011A2804 仓库基址 009C5D103.加密参数push 3Fpush edi加密参数1 013BBE4C加密参数2 013BBE484.公告基址和商店基址push 0push 0push 1F公告基址 00AEB900商店基址 011A28045.人物基址mov eax,dword ptr ds:[esi] push 0x1Fmov ecx,esi人物基址 011F8FC46.动作CALL:按CTRL+S键输入特征码→mov eax,dword ptr ds:[edi]push ebxpush ebxpush ebxpush ebxpush ebxmov ecx,edi动作CALL 2B47.物品CALL:按CTRL+S键输入特征码→mov ecx,dword ptr ds:[edx+edi*4]mov eax,dword ptr ds:[ecx]call dword ptr ds:[eax+18]mov cl,byte ptr ds:[esi+34]物品CALL 4C88.3S评分找法push eax 或者 push eax push 0x8 push -0x1 push 0x6 push ecx评分基址 0119CE909.地图基址找法push eaxpush ecxpush 0x0地图基址 01094D3810.怪物数量找法push eaxpush -0x1push 0x156push 0xA怪物数量 011FB13811.角色基址找法pop ediand cl,0xEFpop esi角色基址 0118A24012.过图CALL找法mov eax,dword ptr ss:[ebp-0x14] mov ecx,dword ptr ss:[ebp-0x24] mov ecx,dword ptr ds:[ecx+0x48] push eax过图CALL 004A1020。
自由幻想按键精灵源代码
自由幻想按键精灵源代码摘要：1.自由幻想按键精灵源代码简介2.自由幻想按键精灵源代码的功能特点3.自由幻想按键精灵源代码的应用场景4.自由幻想按键精灵源代码的发展前景正文：一、自由幻想按键精灵源代码简介自由幻想按键精灵源代码是一款备受欢迎的脚本编写软件，其主要功能是帮助用户实现各种自动化操作，从而提高工作效率。
这款软件拥有简单易用的界面，支持多种编程语言，适用于各种场景。
二、自由幻想按键精灵源代码的功能特点1.多功能：自由幻想按键精灵源代码支持多种操作，包括模拟鼠标点击、键盘按键、窗口操作等，可以实现各种复杂的自动化任务。
2.跨平台：该软件可以在多种操作系统上运行，包括Windows、MacOS 和Linux 等。
3.易于上手：自由幻想按键精灵源代码提供了丰富的教程和示例，让用户可以快速掌握其使用方法。
4.强大的脚本编辑功能：该软件支持多种脚本编写语言，包括Lua、JavaScript 等，用户可以根据需要选择合适的语言编写脚本。
三、自由幻想按键精灵源代码的应用场景自由幻想按键精灵源代码在日常生活和工作中有着广泛的应用，包括：1.游戏辅助：用户可以利用该软件编写游戏辅助脚本，实现自动攻击、自动寻路等功能，提高游戏体验。
2.重复性任务自动化：例如批量处理文件、自动填写表单等。
3.测试工具：开发人员可以利用自由幻想按键精灵源代码编写测试脚本，对软件进行自动化测试。
四、自由幻想按键精灵源代码的发展前景随着科技的发展，自动化技术在各个领域得到广泛应用。
自由幻想按键精灵源代码作为一款优秀的自动化脚本编写软件，有着广阔的发展前景。
未来，该软件可能会在以下方面进行优化和升级：1.支持更多的编程语言和功能模块。
2.提供云端服务，让用户可以随时随地使用和编辑脚本。
3.加强与人工智能技术的结合，实现更智能的自动化操作。
总之，自由幻想按键精灵源代码是一款实用的自动化脚本编写软件，具有广泛的应用前景。
游戏辅助制作教程：用按键精灵开发计算距离自己最近的怪物包裹金矿坐标的脚本
游戏辅助制作教程：用按键精灵开发计算距离自己最近的怪物/包裹/金矿坐标的脚本知识点引入：数学知识：已知坐标求距离已知坐标A（X1，Y1）、B（X2，Y2），那么AB之间的距离有一个计算公式：距离=sqr((X1-X2)^2+(Y1-Y2)^2)即：距离等于两个坐标的横坐标之差的平方，加上纵坐标之差的平方，两个平方相加，再取它们的平方根。
算法知识：冒泡排序介绍：冒泡排序（Bubble Sort），这个算法的名字由来是因为越大的元素会经由交换慢慢“浮”到数列的顶端，像鱼吐泡泡一样。
同样，也可以让越大的元素沉到数列底部。
算法原理：冒泡排序算法的运作如下：（从后往前）1.比较相邻的元素。
如果第一个比第二个大，就交换他们两个。
2.对每一对相邻元素作同样的工作，从开始第一对到结尾的最后一对。
在这一点，最后的元素应该会是最大的数。
3.针对所有的元素重复以上的步骤，除了最后一个。
4. 4.持续每次对越来越少的元素重复上面的步骤，直到没有任何一对数字需要比较。
思路解析：1.获取到人物的坐标，以及各个物品的坐标，存入数组；2.计算人物距离各个物品的坐标距离，存入数组；3.通过各个坐标距离的比较，从而获取到最小距离（距离人物最近的物品）以及最大距离（距离人物最远的物品），输出相对应的物品坐标。
大神代码段：//注：coordinate为物品坐标，range为距离，Arr为物品坐标的数组，Ub 为物品坐标的最大下界x = 300:y = 330'人物的坐标coordinate = "200,300|10,20|60,800|500,321|456,789|421,6|300,320|320,290"'物品(怪物)的坐标Arr = split(coordinate, "|")Ub = UBound(Arr)'range(Ub)用来存储每个物品离人物的距离, xx(Ub)用来存储每个物品的X坐标, yy(Ub)用来存储每个物品的Y坐标Redim range(Ub), xx(Ub), yy(Ub)'计算所有的物品坐标，离人物的距离，存在range数组里For i = 0 To Ubx1 = split(Arr(i), ",")(0) : y1 = split(Arr(i), ",")(1)xx(i) = x1 : yy(i) = y1range(i) = sqr((x1 - x) ^ 2 + (y1 - y) ^ 2)Next'通过冒泡排序，将人物离每个物品的距离，按照从小到大的顺序排列，并根据距离的排序，相应的调整物品的X坐标和Y坐标在数组中的位置。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
按键精灵判断DNF人物位置源码
DNF这游戏，每次进图的时候，boos位置还有门口位置和障碍物每次可能都不一样.这让不少制作脚本的新手很苦恼，前段时间有人在按键精灵官方论坛分享了判断人在哪里和boss在哪里的脚本，这里就共享给大家。
思路大致如下：把副本的小地图分为横6纵9然后找色判断。
源码发出来就是：
Delay 3000
Plugin hwnd = Window.GetKeyFocusWnd()
Delay 50
Delay 100
Plugin Window.Move(hwnd,0,0)
Delay 300
Plugin 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=47
x1=627
n=1
//MessageBox x
//MessageBox y
For 9
x1=627
y2=y1+18
For 6
//MoveTo x1,y1
//Delay 500
//MessageBox 1
x2=x1-18
//MoveTo x2,y2
//MessageBox 2
//If 550<x and x<620 and 105<y and y<109
If x2<x and x<x1 and y1<y and y<y2
//MessageBox x2
//MessageBox y1
//MessageBox y2
Goto 查图end
MessageBox n
EndIf
x1=x1-18
n=n+1
EndFor
y1=y1+18
EndFor
Rem 查图end
MessageBox "人物="& n
y1=47
x1=627
m=1
Plugin 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 9
x1=627
y2=y1+18
For 6
//MoveTo x1,y1
//Delay 500
//MessageBox 1
x2=x1-18
//MoveTo x2,y2
//MessageBox 2
//If 550<x and x<620 and 105<y and y<109
If x2<x and x<x1 and y1<y and y<y2
//MessageBox x2
//MessageBox y1
//MessageBox y2
Goto 查图2end
MessageBox n
EndIf
x1=x1-18
m=m+1
EndFor
y1=y1+18
EndFor
Rem 查图2end
MessageBox "boss="& m
EndScript。