来自按键精灵的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// 基数归位（排完一轮之后左边的数<基数<右边的数那么基数就到了排序中它该在的位置。
按键精灵判断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.结论- 总结自由幻想按键精灵源代码的价值和应用- 鼓励读者尝试和使用源代码正文：自由幻想按键精灵源代码是一款免费、开源的按键精灵制作工具，它可以帮助用户快速地制作属于自己的按键精灵，从而实现自动操作、自动点击等便捷功能。
自由幻想按键精灵源代码的重要性在于，它为用户提供了更多的自定义和开发可能性，使得用户可以更好地适应自己的需求和操作习惯。
自由幻想按键精灵的主要功能和特点包括：支持多种操作系统、兼容多种游戏和应用、拥有丰富的脚本编辑功能、支持多线程操作等。
这些特点使得自由幻想按键精灵成为许多用户的首选工具。
获取自由幻想按键精灵源代码十分简单。
用户只需访问官方网站或相关下载站点，即可找到源代码的下载链接。
在下载完成后，用户可以根据官方文档或教程，逐步了解和分析源代码。
源代码的解析是使用和开发自由幻想按键精灵源代码的关键。
一般来说，源代码包括主程序、脚本编辑器、核心功能模块等多个部分。
用户可以通过分析这些部分，了解自由幻想按键精灵的工作原理，以及如何根据自己的需求进行修改和定制。
源代码的修改与定制是自由幻想按键精灵源代码最大的价值所在。
用户可以根据自己的需求，修改源代码中的相关功能和参数，从而实现更符合自己习惯的按键精灵。
例如，用户可以修改按键精灵的点击速度、添加自定义功能等。
总之，自由幻想按键精灵源代码为用户提供了极大的使用和开发空间。
无论你是初学者还是资深用户，都可以从源代码的学习和使用中，获得更多的知识和乐趣。
自由幻想按键精灵源代码
自由幻想按键精灵源代码摘要：1.自由幻想按键精灵源代码简介2.自由幻想按键精灵源代码的功能特点3.自由幻想按键精灵源代码的应用场景4.自由幻想按键精灵源代码的发展前景正文：一、自由幻想按键精灵源代码简介自由幻想按键精灵源代码是一款备受欢迎的脚本编写软件，其主要功能是帮助用户实现各种自动化操作，从而提高工作效率。
这款软件拥有简单易用的界面，支持多种编程语言，适用于各种场景。
二、自由幻想按键精灵源代码的功能特点1.多功能：自由幻想按键精灵源代码支持多种操作，包括模拟鼠标点击、键盘按键、窗口操作等，可以实现各种复杂的自动化任务。
2.跨平台：该软件可以在多种操作系统上运行，包括Windows、MacOS 和Linux 等。
3.易于上手：自由幻想按键精灵源代码提供了丰富的教程和示例，让用户可以快速掌握其使用方法。
4.强大的脚本编辑功能：该软件支持多种脚本编写语言，包括Lua、JavaScript 等，用户可以根据需要选择合适的语言编写脚本。
三、自由幻想按键精灵源代码的应用场景自由幻想按键精灵源代码在日常生活和工作中有着广泛的应用，包括：1.游戏辅助：用户可以利用该软件编写游戏辅助脚本，实现自动攻击、自动寻路等功能，提高游戏体验。
2.重复性任务自动化：例如批量处理文件、自动填写表单等。
3.测试工具：开发人员可以利用自由幻想按键精灵源代码编写测试脚本，对软件进行自动化测试。
四、自由幻想按键精灵源代码的发展前景随着科技的发展，自动化技术在各个领域得到广泛应用。
自由幻想按键精灵源代码作为一款优秀的自动化脚本编写软件，有着广阔的发展前景。
未来，该软件可能会在以下方面进行优化和升级：1.支持更多的编程语言和功能模块。
2.提供云端服务，让用户可以随时随地使用和编辑脚本。
3.加强与人工智能技术的结合，实现更智能的自动化操作。
总之，自由幻想按键精灵源代码是一款实用的自动化脚本编写软件，具有广泛的应用前景。
按键精灵DNF强化上架循环源码
dm.SetDict 0, "8.txt"dm.SetDict 1, "数字识别.txt"dm.SetDict 2, "对比.txt"Select Case Form1.选择.ListIndexCase 0加几= "7"Case 1加几= "8"Case 2加几= "8"Case 3加几= "8"case ElseEnd SelectCall 强化装备//Call 上架//Call 买刀//Call 取碳//Call 找凯利Sub 强化装备X坐标= Array(480,510,540,570,600,630,660,690,480,510,540,570,600,630,660,690,480,510,540,570,600, 630,660,690,480,510,540,570,600,630,660,690)Y坐标= Array(320, 320, 320, 320, 320, 320, 320, 320, 350, 350, 350, 350, 350, 350, 350, 350, 380, 380, 380, 380, 380, 380, 380, 380, 410, 410, 410, 410, 410, 410, 410, 410)i = 0//For UBound(X坐标) + 1For Form1.买刀.textRem 强化Delay 30dm.MoveTo 276,349dm.LeftClickDelay 200Rem ddm.MoveTo X坐标(i), Y坐标(i)Delay 100dm.LeftClickDelay 50dm.MoveTo 276, 349dm_ret = dm.FindStr(286,315,499,413,"确认","ddc593-000000",1.0,intX,intY)If intX >= 0 and intY >= 0 Thendm.KeyPress 13Elsedm.KeyPress 13End IfDelay 3500dm_ret = Plugin.Sys.GetTime()A时= Clng(dm_ret/1000)DoDelay 200dm_ret = dm.FindPic(126,304,449,509,"确认.bmp|空.bmp","000000",0.9,0,intX,intY) If dm_ret = 0 Thendm.KeyPress 13Goto 判断ElseIf dm_ret = 1 Thendm.KeyPress 13Goto 判断End Ifdm_ret = Plugin.Sys.GetTime()B时= Clng(dm_ret/1000)If B时-A时>= 10 ThenGoto 判断End IfLoop While 7=7Rem 判断dm.MoveTo X坐标(i), Y坐标(i)Delay 100cj = 0dm_ret = eDict(0)Delay 100Dodm_ret = dm.FindStrFast(0,0,800,600,加几, "ffffff-000000",1,intX,intY)If dm_ret = 0 ThenExit DoElsecj=cj+1If cj = Clng(Form1.检查.Text) ThenGoto 强化End IfEnd IfLoopi = i + 1Next//Select Case Form1.选择.ListIndexCase 0加几= "7"Case 1加几= "8"Case 2加几= "8"jj=1call 大于8Case 3加几= "8"jj=2call 大于8case ElseEnd SelectIf Form1.不上架.Value = 1 Then EndScriptElseCall 上架End IfEnd sub。
按键精灵源码
按键精灵源码//做这东西主要是为了新人学习之用希望对新人们有一些帮助//声明一些下面要用到的变量（其实不声明也可以不过为了养成//编程的好习惯还是希望大家声明一下)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。
新版按键精灵X版底层使用代码分享
新版按键精灵X版底层使用代码分享按键精灵X版是一款功能强大的自动化软件，可以实现自动化操作和重复任务的执行。
下面是一个底层使用代码的示例：首先，你需要导入 `按键精灵X` 的底层库`Jitbit.KeybordBuddyX`，例如：```csharpusing Jitbit.KeyboardBuddyX;```然后，你可以创建一个 `Automation` 对象：```csharpAutomation automation = new Automation(;```现在，你可以使用 `automation` 对象来执行自动化操作，比如模拟按键输入：```csharpautomation.Type("Hello, World!");```上面的代码会模拟按下键盘上的每个字符来输入 "Hello, World!"。
除了输入文本，你还可以模拟按下特殊键，比如回车键：```csharpautomation.PressSpecialKey(SpecialKey.Enter);```这会模拟按下回车键。
还可以模拟按下组合键，比如 Ctrl+C：```csharpautomation.PressSpecialKey(SpecialKey.Control);automation.PressKey('C');```这会模拟先按下 Ctrl 键，再按下 C 键。
除了模拟按键输入，按键精灵X还支持模拟鼠标操作，比如移动鼠标和点击鼠标：```csharpautomation.MoveMouseTo(100, 100); // 移动鼠标到 (100, 100) 的位置automation.ClickMouse(MouseButton.Left); // 单击鼠标左键```点击鼠标的 `MouseButton` 参数可以是 `Left`、`Right` 或`Middle`。
按键精灵打怪代码
按键精灵打怪代码1.程序最多可以运行多少个节点？即增长后的节点数的最大值2.只用输出一个度分布的概率图就行了，其他的都不要输出，节约时间，图不用柱状图，用点表示就行，横纵坐标都要取对数3.原则上，取了对数的图形的点都应该在一条直线上，对这些点做直线拟合，算出直线的斜率4.随机删除总节点数N的百分之a的节点，a取整数1<a请尽快完成以上内容，周五之前发给我，不清楚的地方电话联系我。
记住程序一定要优化！程序里面添加一个时间函数，看看每次程序运行的时间bRem i7//如何区域内文字为则执行///////////////////dm_ret = dm.FindStrFast(270,33,357,63,"魔灵秃鹫|魔灵蜘蛛|嗜血金雕","fffff7-000000",0.9,intX6,intY6)If intX6 >= 0 and intY6 >= 0 ThenCall 打怪()ElseEnd IfNextSub 打怪()//打怪程序End SubSub OnScriptExit()dm.UnBindWindowEnd Sub[/hide]Sub 打怪()//打怪程序还没写有源码的没给一个End SubSub OnScriptExit()dm.UnBindWindow/////////////////////////////////////////////////////////////////// ///////////1为抢怪技能UserVar asjdaisd="请设置" ---------技能设置----------UserVar k=DropList{单开:1|双开:2|三开:3|四开:4|五开:5}=0 设置内容UserVar jn1="2" 设置技能1键位UserVar jn2="3" 设置技能2键位UserVar jn3="4" 设置技能3键位UserVar s1=60 设置技能1施放间隔时间（单位：秒）UserVar s2=90 设置技能2施放间隔时间（单位：秒）UserVar s3=120 设置技能3施放间隔时间（单位：秒）UserVar y1=10 技能1吟唱时间（秒）UserVar y2=10 技能2吟唱时间（秒）UserVar y3=10 技能3吟唱时间（秒）UserVar jg=1 抢怪间隔（秒）//---------------[分隔线]--------------------VBS dim key(2),sj(3)VBS dim jn1,jn2,jn3,s1,s2,s3,s4,t1,t2,t3,t4,zf,hx//声明变量key(0)=Asc(jn1):key(1)=Asc(jn2):key(2)=Asc(jn3) sj(0)=s1:sj(1)=s2:sj(2)=s3:sj(3)=s4//把自定义参数的返回值转换成数组元素t1=now:t2=now:t3=now:t4=now//返回当前系统日期时间到变量dim d,k,fs(4)d=0While d<=k-1Delay 10Plugin hx(d)=Window.Foreground() KeyDown 18,1Delay 10KeyPress 27,1Delay 10KeyUp 18,1d=d+1EndWhile//---------------[分隔线]--------------------Rem 开始挂机Gosub 抢怪+检查辅助技能Goto 开始挂机//---------------[分隔线]--------------------Sub 抢怪+检查辅助技能c=0While c=<k-1Plugin Window.SendKeyPress(hx(c),192)</k-1</aDelay 100Plugin Window.SendKeyPress(hx(c),49) Delay jg*1000If DateDiff("s",t1,now)>=sj(0)Plugin Window.SendKeyDown(hx(c),key(0)) Delay 32Plugin Window.SendKeyUp(hx(c),key(0)) Delay y1*1000t1=nowEndIfIf DateDiff("s",t2,now)>=sj(1)Delay 10Plugin Window.SendKeyDown(hx(c),key(1)) Delay 32Plugin Window.SendKeyUp(hx(c),key(1)) Delay y2*1000t2=nowEndIfIf DateDiff("s",t3,now)>=sj(2)Delay 10Plugin Window.SendKeyDown(hx(c),key(2)) Delay 32Plugin Window.SendKeyUp(hx(c),key(2))t3=nowEndIfIf DateDiff("s",t3,now)>=sj(2)Delay 10Plugin Window.SendKeyDown(hx(c),key(2)) Delay 32Plugin Window.SendKeyUp(hx(c),key(2)) Delay y3*1000t3=now EndIfc=c+1 EndWhile Return。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
来自按键精灵的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。