按键精灵网游高级脚本编写教程
学习怎么用按键精灵制作游戏辅助——脚本源代码干货分享
学习怎么用按键精灵制作游戏辅助——脚本源代码干货分享一、用按键精灵确定人物朝向（以剑灵自动寻路为例）的代码在剑灵右上角的小地图里找色/找图，箭头坐标存储在(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// 基数归位（排完一轮之后左边的数<基数<右边的数那么基数就到了排序中它该在的位置。
按键精灵脚本制作教程课件
总结词
函数与子程序是按键精灵脚本中非常重 要的概念，它们能帮助你编写出更加模 块化和复用的脚本代码。
VS
详细描述
在按键精灵中，函数和子程序都是可重用 的代码块。函数是一段被命名的代码块， 可以被反复调用；子程序则是一段无命名 的代码块，不能被单独调用，但可以作为 函数内部的一部分。
函数与子程序
示例代码 ```vbscript ' 定义一个函数
案例四：多媒体处理脚本制作
01
3. 制作流程
02
a. 分析需求：明确需要处理的多媒体 文件类型和数量。
03
b. 选择多媒体处理功能：根据需求选 择相应的功能，如图片批量转换、音 频裁剪等。
案例四：多媒体处理脚本制作
c. 配置参数
根据文件类型和数量配置参 数，如输出格式、裁剪尺寸 等。
d. 调试脚本
d. 运行脚本
测试脚本在实际网站中的运行效果，获取所 需数据。
案例四：多媒体处理脚本制作
• 总结词：通过按键精灵实现多媒体处理，提高工作效率。
案例四：多媒体处理脚本制作
详细描述
1. 多媒体处理的意义：快速批量处理 多媒体文件，如图片、音频、视频等 。
2. 按键精灵的多媒体处理功能：支持 多种多媒体格式处理，可实现批量转 换、裁剪等操作。
函数与子程序
• Function AddNumbers(x, y)
函数与子程序
01
Result = x + y
02
End Function
03
' 使用函数
函数与子程序
01
x = 10
02
y = 20
03
z = AddNumbers(x, y)
怎么开发脚本？按键精灵快速制作游戏脚本教程
怎么开发脚本？按键精灵快速制作游戏脚本教程
以按键精灵制作游戏中跑地图脚本“大地图寻路法”为例：以下是从应天府到星秀村的脚本
按键精灵中编程页面，找到基本命令，键盘命令，键盘按下Tab键，呼出大地图，其他命令中，延时200毫秒，插入命令，按下print screen截图，切换到按键精灵中的抓抓页面功能。
右键点目的地的位置，添加到点1，回到编辑器。
在鼠标命令中刚刚点的坐标，插入命令，延时200毫秒，再插入鼠标单击命令。
最后键盘按下T ab键，关掉地图页面，运行，大地图寻路完成。
目前按键精灵的周边产品商业小精灵也强势出击，其具体的操作资料，可百度按键精灵论坛查询：。
按键精灵脚本制作教程梦幻练级脚本
按键精灵脚本制作教程梦幻练级脚本//得到当前最前面的窗口句柄xyq = Plugin.Window.Foreground()//移动窗口到(0, 0)位置Call Plugin.Window.Move(xyq, 0, 0)//利用小地图，自动寻路Dim x,y,a,bDim color1,color2,color3,color4//根据地图的大小自己改下面的数字，有的地方地图大，有的地方地图小。
x=100y=100a=430b = 360call 判断是否进入战斗()Rem 开始移动鼠标KeyPress "Tab", 1Delay 1000MoveTo a, bDelay 1000LeftClick 1Delay 1000KeyPress "Tab", 1Delay 2000Call 判断是否进入战斗()Rem 开跑咯If a =430 and b =360 Thena=a-x-xGoto 开始移动鼠标End IfIf a>299 and b < 239 Thenb=b+y+yGoto 开始移动鼠标End IfIf a < 299 and b <239 thena=a+x+xGoto 开始移动鼠标End IfIf a < 299 and b >239 thenb=b-y-yGoto 开始移动鼠标End IfSub 判断是否进入战斗()FindPic 0,0,1024,768,"Attachment:\战斗.bmp",0.9,intX,intY If intX > 0 And intY > 0 ThenCall 自动战斗()ElseDelay 1000Goto 开跑咯End IfEnd SubSub 自动战斗()FindPic 0,0,1300,800,"Attachment:\法术.bmp",0.7,intX,intY If intX > 0 And intY > 0 ThenDelay 1500KeyDown 18, 1KeyPress 65, 1KeyUp 18, 1ElseDelay 2000Call 判断是否进入战斗() End IfEnd SubEvent Form1.Load End Event。
按键精灵脚本制作教程（全）
按键精灵脚本制作教程（全）一、前言所谓游戏外挂，其实是一种游戏外辅程序，它可以协助玩家自动产生游戏动作、修改游戏网络数据包以及修改游戏内存数据等，以实现玩家用最少的时间和金钱去完成功力升级和过关斩将。
虽然，现在对游戏外挂程序的“合法”身份众说纷纭，在这里我不想对此发表任何个人意见，让时间去说明一切吧。
不管游戏外挂程序是不是“合法”身份，但是它却是具有一定的技术含量的，在这些小小程序中使用了许多高端技术，如拦截Sock技术、拦截API技术、模拟键盘与鼠标技术、直接修改程序内存技术等等。
本文将对常见的游戏外挂中使用的技术进行全面剖析。
二、认识外挂游戏外挂的历史可以追溯到单机版游戏时代，只不过当时它使用了另一个更通俗易懂的名字??游戏修改器。
它可以在游戏中追踪锁定游戏主人公的各项能力数值。
这样玩家在游戏中可以达到主角不掉血、不耗费魔法、不消耗金钱等目的。
这样降低了游戏的难度，使得玩家更容易通关。
随着网络游戏的时代的来临，游戏外挂在原有的功能之上进行了新的发展，它变得更加多种多样，功能更加强大，*作更加简单，以至有些游戏的外挂已经成为一个体系，比如《石器时代》，外挂品种达到了几十种，自动战斗、自动行走、自动练级、自动补血、加速、不遇敌、原地遇敌、快速增加经验值、按键精灵……几乎无所不包。
游戏外挂的设计主要是针对于某个游戏开发的，我们可以根据它针对的游戏的类型可大致可将外挂分为两种大类。
一类是将游戏中大量繁琐和无聊的攻击动作使用外挂自动完成，以帮助玩家轻松搞定攻击对象并可以快速的增加玩家的经验值。
比如在《龙族》中有一种工作的设定，玩家的工作等级越高，就可以驾驭越好的装备。
但是增加工作等级却不是一件有趣的事情，毋宁说是重复枯燥的机械劳动。
如果你想做法师用的杖，首先需要做基本工作--?砍树。
砍树的方法很简单，在一棵大树前不停的点鼠标就可以了，每10000的经验升一级。
这就意味着玩家要在大树前不停的点击鼠标，这种无聊的事情通过"按键精灵"就可以解决。
按键精灵怎么写脚本
按键精灵怎么写脚本
编写按键精灵脚本可以通过以下步骤进行：
1. 安装按键精灵软件：首先，你需要下载并安装按键精灵软件。
你可以在官方网站上找到最新版本的软件，并按照安装向导进行安装。
2. 学习按键精灵脚本语言：按键精灵使用自己的脚本语言来编写脚本。
这种语言基于VBScript，并且具有一些特定的命令和函数。
你可以在按键精灵的官方文档中找到完整的脚本语言参考手册，以便学习如何编写脚本。
3. 编写脚本：一旦你熟悉了按键精灵脚本语言，你就可以开始编写脚本了。
脚本可以包含一系列的命令，用于模拟键盘和鼠标的操作。
你可以使用命令来模拟按键按下、释放、鼠标移动、点击等操作。
4. 调试和测试脚本：在编写完脚本后，你可以使用按键精灵提供的调试工具来检查脚本的正确性。
你可以逐步执行脚本，并观察每个命令的执行结果。
如果发现问题，你可以对脚本进行调整和修复。
5. 运行脚本：当你确认脚本没有问题后，你可以将其保存并运行。
按键精灵提供了多种运行脚本的方式，你可以选择手动运行脚本，或者设置定时任务来自动运行脚本。
需要注意的是，按键精灵是一款自动化工具，可以用于自动执行重复性的任务。
在使用按键精灵编写脚本时，请确保遵守相关法律法规和道德规范，不要滥用该工具。
按键精灵网游高级脚本编写教程
献给热爱按键精灵的广大爱好者按键精灵学习教程一、键盘命令（2~5页）二、鼠标命令（5~13页）三、控制命令（13~22页）四、颜色/图像命令（22~28页）五、其他命令（28~355页）五、网游脚本实例（35~最后）一、键盘命令命令名称：GetLastKey 检测上次按键命令功能：检测上次按键命令参数：参数1 整数型，可选：变量名返回值：无脚本例子：(8.x语法) 复制代码1.//脚本运行到这一行不会暂停,调用的时候立即返回，得到调用之前最后一次按下的按键码保存在变量Key里。
2.Key=GetLastKey()3.If Key = 13 Then4. Msgbox "你上次按下了回车键"5.End If脚本例子：(7.x语法) 复制代码1.//脚本运行到这一行不会暂停,调用的时候立即返回，得到调用之前最后一次按下的按键码保存在变量Key里。
2.GetLastKey Key3.If Key = 134. Msgbox "你上次按下了回车键"5.EndIf命令名称：KeyDown 按住命令功能：键盘按住命令参数：参数1 整数型，键盘虚拟码（8.X支持按键字符）参数2 整数型，次数返回值：无脚本例子：(8.x语法) 复制代码1.//KeyDown、KeyDownS、KeyDownH2.//KeyDownS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的键盘都可以使用3.//KeyDownH: 硬件模拟方式,仅支持PS(圆口)的键盘点击查看使用硬件模拟方式的注意事项4.KeyDown 65,15.//65是A键的按键码，上面的语句表示按住A键1次6.7.KeyDown "A",18. //上面的支持按键字符，语句表示按住A 键1次脚本例子：(7.x 语法) 复制代码 1. //KeyDown 、KeyDownS 、KeyDownH2. //KeyDownS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB 接口的键盘都可以使用3. //KeyDownH: 硬件模拟方式,仅支持PS(圆口)的键盘 点击查看使用硬件模拟方式的注意事项4. KeyDown 65,15. //65是A 键的按键码，上面的语句表示按住A 键1次命令名称：KeyPress 按键 命令功能：键盘按键 命令参数： 参数1 整数型，键盘虚拟码（8.X 支持 按键字符）参数2 整数型，次数返 回 值：无 脚本例子：(8.x 语法) 复制代码 1. //KeyPress 、KeyPressS 、KeyPressH2. //KeyPressS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB 接口的键盘都可以使用3. //KeyPressH: 硬件模拟方式,仅支持PS(圆口)的键盘 点击查看使用硬件模拟方式的注意事项4. KeyPress 65,15. //65是A 键的按键码，上面的语句表示按A 键1次6.7. KeyPress "A",18. //上面的支持按键字符，语句表示按A 键1次脚本例子：(7.x 语法) 复制代码 1. //KeyPress 、KeyPressS 、KeyPressH2. //KeyPressS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB 接口的键盘都可以使用3. //KeyPressH: 硬件模拟方式,仅支持PS(圆口)的键盘 点击查看使用硬件模拟方式的注意事项4. KeyPress 65,15. //65是A 键的按键码，上面的语句表示按A 键1次返回值：无脚本例子：(8.x语法) 复制代码1.//KeyUp、KeyUpS、KeyUpH2.//KeyUpS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的键盘都可以使用3.//KeyUpH: 硬件模拟方式,仅支持PS(圆口)的键盘点击查看使用硬件模拟方式的注意事项4.KeyUp 65,15.//65是A键的按键码，上面的语句表示松开A键1次6.7.KeyUp "A",18.//上面的支持按键字符，语句表示松开A键1次脚本例子：(7.x语法) 复制代码1.//KeyUp、KeyUpS、KeyUpH2.//KeyUpS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的键盘都可以使用3.//KeyUpH: 硬件模拟方式,仅支持PS(圆口)的键盘点击查看使用硬件模拟方式的注意事项4.KeyUp 65,15.//65是A键的按键码，上面的语句表示松开A键1次命令名称：WaitKey 等待按任意键命令功能：等待按任意键命令参数：参数1 整数型，可选：变量名返回值：无脚本例子：(8.x语法) 复制代码1.Key=WaitKey()2.//脚本运行到这一行会暂停,当用户按下键盘后继续执行,并且把用户的按键码保存在变量Key里3.If Key = 13 Then4. MessageBox "恭喜你按下了回车键"5.End If脚本例子：(7.x语法) 复制代码1.WaitKey Key2.//脚本运行到这一行会暂停,当用户按下键盘后继续执行,并且把用户的按键码保存在变量Key里3.If Key = 134. Msgbox "恭喜你按下了回车键"5.EndIf二、鼠标命令命令名称：GetCursorPos 得到鼠标位置坐标命令功能：得到当前鼠标所在的位置坐标命令参数：参数1 整数型，返回x坐标参数2 整数型，返回y坐标返回值：无脚本例子：(8.x语法) 复制代码1.GetCursorPos mx,my2.//把当前鼠标位置的x和y坐标放在变量mx和my中脚本例子：(7.x语法) 复制代码1.VBSCall GetCursorPos(mx,my)2.//把当前鼠标位置的x和y坐标放在变量mx和my中命令名称：GetCursorShape 得到鼠标形状命令功能：得到当前鼠标的形状特征命令参数：参数1 整数型，参数返回值：整数型，鼠标的形状值脚本例子：(8.x语法) 复制代码1.//参数: 0 是6.83之前的版本默认的参数2.//参数: 1 可用于一些在参数0下无法区分鼠标形状代码的情况3.//下面是我们普通的WINDOWS鼠标形状特征4.//不同电脑上鼠标形状特征也许不同，请使用"抓点抓色"功能抓取正确的鼠标形状特征5.Shape1 = 15933502876.//下面是我们访问网页超链接时候的手型鼠标形状7.Shape2 = 10559913298.shape=GetCursorShape(0)9.If shape = shape1 Then10. MessageBox "当前鼠标形状是普通的WINDOWS鼠标"11.ElseIf shape = shape2 Then12. MessageBox "当前鼠标形状是手型鼠标"13.Else14. MessageBox "不认识当前鼠标形状！"15.End If脚本例子：(7.x语法) 复制代码1.//参数: 0 是6.83之前的版本默认的参数2.//参数: 1 可用于一些在参数0下无法区分鼠标形状代码的情况3.//下面是我们普通的WINDOWS鼠标形状特征4.//不同电脑上鼠标形状特征也许不同，请使用"抓点抓色"功能抓取正确的鼠标形状特征5.Shape1 = 15933502876.//下面是我们访问网页超链接时候的手型鼠标形状7.Shape2 = 10559913298.VBSCall Shape=GetCursorShape(0)9.If shape = shape110. MessageBox 当前鼠标形状是普通的WINDOWS鼠标11.ElseIf shape = shape212. MessageBox 当前鼠标形状是手型鼠标13.Else14. MessageBox 不认识当前鼠标形状！15.EndIf命令名称：GetLastClick 检测上次按过的鼠标键命令功能：检测上一次按下的鼠标代码命令参数：参数1 整数型，可选：变量名返回值：无脚本例子：(8.x语法) 复制代码1.Mouse=GetLastClick()2.If Mouse =32770 Or Mouse =32769 Then3. Msgbox "你按下了鼠标左键"4.End If脚本例子：(7.x语法) 复制代码1.GetLastClick Mouse2.If Mouse =32770 Or Mouse =327693. Msgbox "你按下了鼠标左键"4.EndIf命令名称：LeftClick 左键单击命令功能：模拟点击鼠标左键命令参数：参数1 整数型，次数返回值：无脚本例子：(8.x语法) 复制代码1.//LeftClick、LeftClickS、LeftClickH2.//LeftClickS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的鼠标都可以使用3.//LeftClickH: 硬件模拟方式,仅支持PS(圆口)的鼠标点击查看使用硬件模拟方式的注意事项4.LeftClick 55.//在当前鼠标的位置单击鼠标左键5次脚本例子：(7.x语法) 复制代码1.//LeftClick、LeftClickS、LeftClickH2.//LeftClickS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的鼠标都可以使用3.//LeftClickH: 硬件模拟方式,仅支持PS(圆口)的鼠标点击查看使用硬件模拟方式的注意事项4.LeftClick 55.//在当前鼠标的位置单击鼠标左键5次命令名称：LeftDoubleClick 左键双击命令功能：模拟双击鼠标左键命令参数：参数1 整数型，次数返回值：无脚本例子：(8.x语法) 复制代码1.//LeftDoubleClick、LeftDoubleClickS、LeftDoubleClickH]2.//LeftDoubleClickS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的鼠标都可以使用3.//LeftDoubleClickH: 硬件模拟方式,仅支持PS(圆口)的鼠标点击查看使用硬件模拟方式的注意事项4.LeftDoubleClick 55.//在当前鼠标的位置双击鼠标左键5次脚本例子：(7.x语法) 复制代码1.//LeftDoubleClick、LeftDoubleClickS、LeftDoubleClickH]2.//LeftDoubleClickS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的鼠标都可以使用3.//LeftDoubleClickH: 硬件模拟方式,仅支持PS(圆口)的鼠标点击查看使用硬件模拟方式的注意事项4.LeftDoubleClick 55.//在当前鼠标的位置双击鼠标左键5次LockMouse 锁定鼠标位置命令功能：锁定鼠标位置，用户将不能通过移动鼠标而改变鼠标位置，而脚本仍可以改变鼠标位置命令参数：无返回值：无脚本例子：(8.x语法) 复制代码1.//在脚本开始的时候使用这个命令，可以有效防止用户误触鼠标引起脚本执行出错2.LockMouse3.Do4.Delay 10005.Loop脚本例子：(7.x语法) 复制代码1.//在脚本开始的时候使用这个命令，可以有效防止用户误触鼠标引起脚本执行出错2.LockMouse3.While True4.Delay 10005.EndWhile命令名称：MiddleClick 中键单击命令功能：模拟点击鼠标中键命令参数：参数1 整数型，次数返回值：无脚本例子：(8.x语法) 复制代码1.//MiddleClick、MiddleClickS、MiddleClickH2.//MiddleClickS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的鼠标都可以使用3.//MiddleClickH: 硬件模拟方式,仅支持PS(圆口)的鼠标点击查看使用硬件模拟方式的注意事项4.MiddleClick 55.//在当前鼠标的位置单击鼠标中键5次脚本例子：(7.x语法) 复制代码1.//MiddleClick、MiddleClickS、MiddleClickH2.//MiddleClickS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的鼠标都可以使用3.//MiddleClickH: 硬件模拟方式,仅支持PS(圆口)的鼠标点击查看使用硬件模拟方式的注意事项4.MiddleClick 55.//在当前鼠标的位置单击鼠标中键5次命令名称：MouseWheel 鼠标滚轮命令功能：滚动鼠标滚轮命令参数：参数1 整数型，滚动量返回值：无脚本例子：(8.x语法) 复制代码1.//如果滚动量为正,向上滚动;否则向下滚动.2.//仅支持Windows 2000以上的操作系统.3.MouseWheel 14.//把鼠标滚轮向上滚动1格脚本例子：(7.x语法) 复制代码1.//如果滚动量为正,向上滚动;否则向下滚动.2.//仅支持Windows 2000以上的操作系统.3.MouseWheel 14.//把鼠标滚轮向上滚动1格命令名称：MoveR 鼠标相对移动命令功能：鼠标相对移动到命令参数：参数1 整数型，X距离参数2 整数型，Y距离返回值：无脚本例子：(8.x语法) 复制代码1.//MoveR、MoveRS、MoveRH2.//MoveRS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的鼠标都可以使用3.//MoveRH: 硬件模拟方式,仅支持PS(圆口)的鼠标点击查看使用硬件模拟方式的注意事项4.//当前鼠标在(100,100)点,使用下面语句5.MoveR 200,3006.//之后,鼠标就被移到了(100+200,100+300)处,也就是坐标(300,400)处7.//提示:使用硬件模拟方式不能碰键盘鼠标,否则会导致出错脚本例子：(7.x语法) 复制代码1.//MoveR、MoveRS、MoveRH2.//MoveRS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的鼠标都可以使用3.//MoveRH: 硬件模拟方式,仅支持PS(圆口)的鼠标点击查看使用硬件模拟方式的注意事项4.//当前鼠标在(100,100)点,使用下面语句5.MoveR 200,3006.//之后,鼠标就被移到了(100+200,100+300)处,也就是坐标(300,400)处7.//提示:使用硬件模拟方式不能碰键盘鼠标,否则会导致出错命令名称：MoveTo 鼠标移动命令功能：移动鼠标到命令参数：参数1 整数型，X坐标参数2 整数型，Y坐标返回值：无脚本例子：(8.x语法) 复制代码1.//MoveTo、MoveToS、MoveToH2.//MoveToS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的鼠标都可以使用3.//MoveToH: 硬件模拟方式,仅支持PS(圆口)的鼠标4.MoveTo 100,2005.//把鼠标移动到(100,200)这个点上6.intX=507.intY=1508.MoveTo intX,intY9.//把鼠标移动到(intX,intY)这个点上,需要5.50以上版本支持.脚本例子：(7.x语法) 复制代码1.//MoveTo、MoveToS、MoveToH2.//MoveToS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的鼠标都可以使用3.//MoveToH: 硬件模拟方式,仅支持PS(圆口)的鼠标4.MoveTo 100,2005.//把鼠标移动到(100,200)这个点上6.intX=507.intY=1508.MoveTo intX,intY9.//把鼠标移动到(intX,intY)这个点上,需要5.50以上版本支持.命令名称：RestoreMousePos 恢复上次保存的鼠标位置命令功能：保存当前鼠标位置命令参数：无返回值：无脚本例子：(8.x语法) 复制代码1.SaveMousePos2.//保存当前鼠标位置3.Delay 1004.MoveTo 500,205.Delay 1006.RestoreMousePos7.//将鼠标移动到上一次保存的鼠标位置8.//保存/恢复鼠标位置常用于制作网络游戏练功脚本,脚本开始时保存鼠标位置,脚本结束时恢复鼠标位置,9.//这样脚本执行后鼠标的位置就不会变化脚本例子：(7.x语法) 复制代码1.SaveMousePos2.//保存当前鼠标位置3.Delay 1004.MoveTo 500,205.Delay 1006.RestoreMousePos7.//将鼠标移动到上一次保存的鼠标位置8.//保存/恢复鼠标位置常用于制作网络游戏练功脚本,脚本开始时保存鼠标位置,脚本结束时恢复鼠标位置,9.这样脚本执行后鼠标的位置就不会变化命令名称：RightClick 右键单击命令功能：模拟点击鼠标右键命令参数：参数1 整数型，次数返回值：无脚本例子：(8.x语法) 复制代码1.//RightClick、RightClickS、RightClickH2.//RightClickS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的鼠标都可以使用3.//RightClickH: 硬件模拟方式,仅支持PS(圆口)的鼠标点击查看使用硬件模拟方式的注意事项4.RightClick 55.//在当前鼠标的位置单击鼠标右键5次脚本例子：(7.x语法) 复制代码1.//RightClick、RightClickS、RightClickH2.//RightClickS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的鼠标都可以使用3.//RightClickH: 硬件模拟方式,仅支持PS(圆口)的鼠标点击查看使用硬件模拟方式的注意事项4.RightClick 55.//在当前鼠标的位置单击鼠标右键5次SaveMousePos 保存当前鼠标所在位置命令参数：无返回值：无脚本例子：(8.x语法) 复制代码1.SaveMousePos2.//保存当前鼠标位置3.Delay 1004.MoveTo 500,205.Delay 1006.RestoreMousePos7.//将鼠标移动到上一次保存的鼠标位置8.//保存/恢复鼠标位置常用于制作网络游戏练功脚本,脚本开始时保存鼠标位置,脚本结束时恢复鼠标位置,9.//这样脚本执行后鼠标的位置就不会变化脚本例子：(7.x语法) 复制代码1.SaveMousePos2.//保存当前鼠标位置3.Delay 1004.MoveTo 500,205.Delay 1006.RestoreMousePos7.//将鼠标移动到上一次保存的鼠标位置8.//保存/恢复鼠标位置常用于制作网络游戏练功脚本,脚本开始时保存鼠标位置,脚本结束时恢复鼠标位置,9.这样脚本执行后鼠标的位置就不会变化命令名称：UnlockMouse 解除锁定鼠标位置命令功能：解除LockMouse命令对鼠标位置的锁定命令参数：无返回值：无脚本例子：(8.x语法) 复制代码1.脚本例子：(7.x语法) 复制代码1.//如果用户使用了LockMouse命令而没有使用UnlockMouse命令，按键精灵会在脚本结束时自动解除锁定2.UnlockMouse命令功能：脚本执行到这一句暂停,按下任意鼠标键之后继续命令参数：参数1 整数型，可选：变量名返回值：无脚本例子：(8.x语法) 复制代码st_click=WaitClick()2.MessageBox "您按下了" & last_click脚本例子：(7.x语法) 复制代码1.WaitClick last_click2.MessageBox "您按下了" & last_click三、控制命令命令名称：Call 调用过程命令功能：调用过程命令参数：参数1 字符串型，过程名返回值：无脚本例子：(8.x语法) 复制代码1.Call子程序("我是子程序,被你调用了")2.EndScript3.//支持中文名变量4.Sub子程序(啊)5. Msgbox 啊6.End Sub7.//定义一个过程,可以在脚本中调用这个过程脚本例子：(7.x语法)复制代码命令名称：Do 循环命令功能：条件循环命令参数：参数1 条件型，循环条件返回值：无3.i=04.Do While i=05. Msgbox "我停不下来啦!!快住手"6.Loop7.//当循环条件成立的时候，反复执行循环体8.9.10.例子2：11.i=012.Do Until i=013. Msgbox "为什么没有循环到我呢？"14.Loop15.Msgbox "循环结束"16.//当循环条件成立的时候，离开循环体17.18.19.例子3：20.i=021.Do Until i=122. Msgbox "我停不下来啦!!快住手"23.Loop24.//当循环条件不成立的时候，反复执行循环体25.26.27.例子4：28.n=029.Do While true30. Msgbox "我将循环10次停下来!!"31.If n>=10 Then32. //当循环条件成立的时候，离开循环体33.Exit do34.End if35. n=n+136.Loop37.Msgbox n & "次"38.39.40.例子5：41.i = 042.Do43. MessageBox "ok"44.Loop While i <> 045.//条件放后面，前面的循环内容可以执行一次！脚本例子：复制代码命令名称：For 循环命令功能：循环一定次数命令参数：参数1 整数型，循环次数返回值：无脚本例子：(8.x语法) 复制代码1.例子1：2.//支持Exit For 命令退出循环3.For i=0 To 94.Delay 1005.Next6.//循环10次7.8.例子2：9.//支持Exit For 命令退出循环10.For 1011.Delay 10012.Next13.//循环10次14.15.16.例子3：17.//支持Exit For 命令退出循环18.For i=0 to 19 step 219.Delay 10020.Next21.//循环10次22.23.例子4：24.//支持Exit For 命令退出循环25.For i=0 to 19 step 226.Delay 10027.If i>9 Then28.Exit For29.End If30.Next31.//循环5次脚本例子：(7.x语法) 复制代码1.For 102.Delay 1003.EndFor4.//循环10次命令名称：Function 函数命令功能：函数命令参数：多类型，多参数返回值：多类型脚本例子：(8.x语法) 复制代码1.//支持Exit Function 命令退出函数过程2.Msgbox 函数过程("我是函数,被你调用了")3.EndScript4.Function函数过程(a)5.函数过程=a6.End Function7.//定义一个函数过程,可以在脚本中调用这个函数脚本例子：(7.x语法) 复制代码1.无命令名称：Gosub 调用子程序命令功能：调用过程命令参数：参数1 字符串型，过程名返回值：无脚本例子：(8.x语法) 复制代码1.//可带参数传递2.Call子程序("我是子程序,被你调用了")3.EndScript4.Sub子程序(a)5. Msgbox a6.End Sub7.//定义一个过程,可以在脚本中调用这个过程脚本例子：(7.x语法) 复制代码1.Gosub子程序2.EndScript3.Sub子程序4. Msgbox "我是子程序,被你调用了"5.Return子程序6.//定义一个过程,可以在脚本中调用这个过程命令功能：跳转到Rem标记处命令参数：参数1 字符串型，标号返回值：无脚本例子：(8.x语法) 复制代码1.Goto标记2.Delay 1003.Rem标记4.Msgbox "你直接跳到这里了!!,上面的延迟没有被执行!!"5.//跳转语句，可以跳转到rem标记过的标记处继续执行脚本例子：(7.x语法) 复制代码1.Goto标记2.Delay 1003.Rem标记4.Msgbox "你直接跳到这里了!!,上面的延迟没有被执行!!"5.//跳转语句，可以跳转到rem标记过的标记处继续执行命令名称：If 如果..则命令功能：判断表达式命令参数：参数1 条件型，表达式返回值：无脚本例子：(8.x语法) 复制代码1.例子1：2.i=03.If i=0 Then4. Msgbox "条件判断符合被通过!!"5.End If6.//通过判断表达式的取值，来执行后面的动作或控制7.8.例子2：9.i=110.If i=0 Then11. Msgbox "条件判断符合被通过!!"12.ElseIf i=1 Then13. Msgbox "否则条件判断符合被通过!!"14.Else15. Msgbox "否则!!"16.End If脚本例子：(7.x语法) 复制代码1.i=02.If i=03. Msgbox "条件判断符合被通过!!"4.EndIf5.//通过判断表达式的取值，来执行后面的动作或控命令名称：IfColor 颜色判断命令功能：判断屏幕某点的颜色命令参数：参数1 整数型，屏幕X坐标参数2 整数型，屏幕Y坐标参数3 字符串型，颜色16进制值参数4 整数型，判断条件返回值：无脚本例子：(8.x语法) 复制代码1.例子1：2.//判断条件(0:等于 1:不等于 2:近似等于)3.IfColor 860,27,"e1b072",0 Then4. Msgbox "颜色等于"5.Else6. Msgbox "颜色不等于"7.End If8.//判断坐标点(860,27)的颜色是否等于e1b0729.10.11.例子2：12.a=1:b=113.IfColor 650,118,"78F0E8",2 Then14. MessageBox "a"15.ElseIf b=a Then16. MessageBox "b"17.End if脚本例子：(7.x语法) 复制代码1.//判断条件(0:等于 1:不等于 2:近似等于)2.IfColor 860,27,e1b072,03. Msgbox "颜色等于"4.Else5. Msgbox "颜色不等于"6.EndIf命令名称：Rem 标记/注释命令功能：标记命令可当注释命令参数：参数1 字符串型，文字返回值：无脚本例子：(8.x语法) 复制代码1.//不支持数字开头的和符号作为标记名2.//标记命令.即可当注释,也可以为Goto跳转指令作标记3.Rem脚本开始脚本例子：(7.x语法) 复制代码1.//标记命令.即可当注释,也可以为Goto跳转指令作标记2.Rem脚本开始命令名称：RestartScript 重新启动脚本运行命令功能：重新启动脚本运行命令参数：无返回值：无脚本例子：(8.x语法) 复制代码1.For i=0 to 22.Delay 10003.Call Plugin.Msg.ShowScrTXT(0, 0, 1024, 768, "屏幕内容填写" & i, "0000FF")4.Next5.RestartScript //重新启动脚本运行脚本例子：(7.x语法) 复制代码1.无命令名称：Select 情况条件选择命令功能：根据情况选择条件判断命令参数：参数1 条件型，情况返回值：无脚本例子：复制代码3.//<>---------------------------------------------以下是选择条件结结构判断4.Select Case变量5.Case 06. Msgbox "你输入的数字为：0"7.Case 18. Msgbox "你输入的数字为：1"9.Case 210. Msgbox "你输入的数字为：2"11.Case 312. Msgbox "你输入的数字为：3"13.Case 414. Msgbox "你输入的数字为：4"15.Case 516. Msgbox "你输入的数字为：5"17.Case 618. Msgbox "你输入的数字为：6"19.Case 720. Msgbox "你输入的数字为：7"21.Case 822. Msgbox "你输入的数字为：8"23.Case 924. Msgbox "你输入的数字为：9"25.Case Else26. Msgbox "你输入的数字不正确，请输入（0~9）数字！"27.End Select脚本例子：(7.x语法) 复制代码1.无命令名称：Sub 子程序命令功能：定义一个过程命令参数：参数1 字符串型，过程名返回值：无脚本例子：(8.x语法) 复制代码1.//支持Exit Sub 命令退出子程序过程2.Call子程序()3.EndScript4.Sub子程序()5. Msgbox "我是子程序,被你调用了"6.End Sub7.//定义一个过程,可以在脚本中调用这个过程脚本例子：(7.x 语法) 复制代码 1. Gosub 子程序2. EndScript3. Sub 子程序4. Msgbox "我是子程序,被你调用了"5. Return 子程序6. //定义一个过程,可以在脚本中调用这个过程命令名称：While 如果..则循环 命令功能：条件循环 命令参数：参数1 条件型，循环条件 返 回 值：无 脚本例子：(8.x 语法) 复制代码 1. i=02. Whilei=0 3. Msgbox "我停不下来啦!!快住手"4. Wend5. //当循环条件成立的时候，反复执行循环体脚本例子：(7.x 语法) 复制代码 1. i=02. While i=03. Msgbox "我停不下来啦!!快住手"4. EndWhile5. //当循环条件成立的时候，反复执行循环体四、颜色/图像命令参数6 整数型，返回x 坐标参数7 整数型，返回y 坐标返 回 值：无 脚本例子：(8.x 语法) 复制代码 1. //FindCenterColor left,top,right,bottom,c,x,y2. //在区域内从中心到外围找颜色为c 的点，把坐标保存在变量x 和y 中3. //left,top,right,bottom 都是整数或者整数型变量，说明了区域的左，上，右，下界限4. //颜色是类似于"0000FF"的字符串，如果不取变量，别忘了加双引号5. //如果没有找到这个颜色，则x 和y 的值都被置为-16. FindCenterColor 0,0,800,600,"0000FF",x,y7. Ifx>0 and y>0 Then8. MoveTo x,y9. End If10. //在区域(0,0,800,600)中找红色（"0000FF"）的点，如果找到，则把鼠标移动到这个点脚本例子：(7.x 语法) 复制代码 1. //VBSCall FindCenterColor(left,top,right,bottom,c,x,y)2. //在区域内从中心到外围找颜色为c 的点，把坐标保存在变量x 和y 中3. //left,top,right,bottom 都是整数或者整数型变量，说明了区域的左，上，右，下界限4. //颜色是类似于"0000FF"的字符串，如果不取变量，别忘了加双引号5. //如果没有找到这个颜色，则x 和y 的值都被置为-16. VBSCall FindCenterColor(0,0,800,600,"0000FF",x,y)7. If x>0 and y>08. MoveTo x,y9. EndIf10. //在区域(0,0,800,600)中找红色（"0000FF"）的点，如果找到，则把鼠标移动到这个点(8.x语法) 1.//FindColor left,top,right,bottom,c,x,y2.//在区域内从左到右，从上到下找颜色为c的点，把坐标保存在变量x和y中3.//left,top,right,bottom都是整数或者整数型变量，说明了区域的左，上，右，下界限4.//颜色是类似于"0000FF"的字符串，如果不取变量，别忘了加双引号5.//如果没有找到这个颜色，则x和y的值都被置为-16.FindColor 0,0,800,600,"0000FF",x,y7.If x>0 and y>0 Then8. MoveTo x,y9.End If10.//在区域(0,0,800,600)中找红色（"0000FF"）的点，如果找到，则把鼠标移动到这个点脚本例子：(7.x语法) 复制代码1.//VBSCall FindColor(left,top,right,bottom,c,x,y)2.//在区域内从左到右，从上到下找颜色为c的点，把坐标保存在变量x和y中3.//left,top,right,bottom都是整数或者整数型变量，说明了区域的左，上，右，下界限4.//颜色是类似于"0000FF"的字符串，如果不取变量，别忘了加双引号5.//如果没有找到这个颜色，则x和y的值都被置为-16.VBSCall FindColor(0,0,800,600,"0000FF",x,y)7.If x>0 and y>08. MoveTo x,y9.EndIf10.//在区域(0,0,800,600)中找红色（"0000FF"）的点，如果找到，则把鼠标移动到这个点命令名称：FindColorEx 模糊找色命令功能：在屏幕区域模糊查找指定的颜色命令参数：参数1 整数型，屏幕左上角x坐标参数2 整数型，屏幕左上角y坐标参数3 整数型，屏幕右下角x坐标参数4 整数型，屏幕右下角y坐标参数5 字符串型，16进制颜色值参数6 整数型，查找方式参数7 整数型，相似度参数8 整数型，返回x坐标参数9 整数型，返回y坐标返回值：无脚本例子：(8.x语法) 复制代码1.//FindColorEx left,top,right,bottom,c,type,similar,x,y2.//在区域内找颜色为c的点，把坐标保存在变量x和y中3.//left,top,right,bottom都是整数或者整数型变量，说明了区域的左，上，右，下界限4.//颜色是类似于"0000FF"的字符串，如果不取变量，别忘了加双引号5.//type表示查找方式。
脚本制作教程按键精灵加速游戏
脚本制作教程：按键精灵加速游戏来源：按键学院【按键精灵】植物大战僵尸这款游戏，想必大家都不陌生讲述的是一场植物与僵尸之间刻骨铭心的撕逼大战是一款老少皆宜和善可爱的游戏……此处省略一万字……但是，问题来了等僵尸的过程也慢得太销魂了吧？画面一点动感刺激感都木有，还怎么玩？~和小编一样急性子的小伙伴们，一定忍受不住节奏如此缓慢的游戏，怎么办呢？凉拌炒鸡蛋！自己动手丰衣足食，咱们写个脚本让它快起来~脚本界面效果图今天的脚本例子是用按键精灵仿写一个《变速精灵》，是咱们的大姐大工程师01制作的。
界面十分骚气~~『1』下拉列表框用于显示当前电脑上运行的程序的窗口标题『2』刷新按钮用于重新获取当前电脑上运行的程序的窗口标题『3』"滑块"用于调整速度，往左是减速，往右是加速。
（大尺度调整）『4』快和慢这两个蓝色的按钮，也是用于调整速度的，与滑块的区别在于：滑块可以一次性拉动很大的范围，而按钮是精确调整的，每一次点击增/减一个单位的速度。
『5』?恢复"按钮"，用于将速度归零。
变速命令变速命令是官方新插件里的?SysEx系统插件增强版?下的命令：Speed注意：速度的倍数，范围：-256~256，保留小数点后3位，可以实现1.001、1.002倍速度。
??获取窗口句柄当我们点击刷新按钮的时候，则获取当前运行中的所有程序的窗口句柄，并且将窗口的标题名添加到下拉列表框中。
我们用?FindEx查找窗口句柄?命令遍历获取桌面下的第一级子窗口句柄（桌面句柄：0）但是，我们看到，这些窗口中有许多窗口是我们看不见的，甚至都不知道它是做什么用的。
那我们就没有必要获取它了，只要获取到可见的程序窗口句柄即可。
在遍历获取窗口句柄的过程中，加一个判断，利用?GetWindowState 获取窗口状态命令，判断当前窗口的状态，是否为可见的，如果是可见的窗口，则记录下该窗口的窗口句柄和窗口标题。
滑块拖动为了让界面更加的赏心悦目，所以滑块实际上是一张图片并不是真正的滑块按钮我们要实现，拖动滑块图片，往左右移动的时候，滑块图片会跟随着鼠标移动。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
献给热爱按键精灵的广大爱好者按键精灵学习教程一、键盘命令（2~5页）二、鼠标命令（5~13页）三、控制命令（13~22页）四、颜色/图像命令（22~28页）五、其他命令（28~355页）五、网游脚本实例（35~最后）一、键盘命令命令名称：GetLastKey检测上次按键命令功能：检测上次按键命令参数：参数1整数型，可选：变量名返回值：无脚本例子：语法)1.1.Loop1.1.1.2.3.MouseWheel11.2.3.MouseWheel14.1.脚本例子：1.语法)命令名称：RestoreMousePos恢复上次保存的鼠标位置命令功能：保存当前鼠标位置命令参数：无返回值：无脚本例子：1.SaveMousePos语法)1.LoopLoopLoopLoopLoop 1.1.1.则命令功能：判断表达式命令参数：参数1条件型，表达式返回值：无脚本例子：语法) 1.例子1：2.i=03.If i=0Then4.Msgbox"条件判断符合被通过!!"5.EndIf1.1.可当注释,也可以为Goto跳转指令作标记2.Rem脚本开始脚本例子：语法) 1.可当注释,也可以为Goto跳转指令作标记2.Rem脚本开始命令名称：RestartScript重新启动脚本运行命令功能：重新启动脚本运行命令参数：无返回值：无脚本例子：语法)1.For i=0to22.Delay10003.Call"屏幕内容填写"&i,"0000FF")4.NextRestartScript1.则循环命令功能：条件循环命令参数：参数1条件型，循环条件返回值：无脚本例子：语法) 1.i=02.While i=03.Msgbox"我停不下来啦!!快住手"4.Wend1.1.1.，则默认展开到按键精灵所在的文件夹中2.mp。
如果不指定要释放的文件，则默认释放所有文件3.PutAttachment"c:\","*.bmp"4.plugin","*.dll"1.，则默认展开到按键精灵所在的文件夹中2.mp。
如果不指定要释放的文件，则默认释放所有文件3.PutAttachmentc:\*.bmp4.plugin*.dll1.VBSEndVBS执行块命令功能：构成一个VBScript块命令参数：无返回值：无脚本例子：语法) 1.VBSBegin2.For i=0to53.Msgbox"我在循环运行VBScript块哦!!"4.'这是注释5.Next6.VBSEnd1.mp",,x1,y1)Ifx1>0andy1>0ElseVBSt=t+1Goto1EndIfEndIf《蜀门》辅助脚本源码.........................................................." Gosub写信息Delay256UserVarHong=50补血百分比UserVarlan=50补蓝百分比UserVarDZ=DropList{打坐:0|吃药:1}=0低血选项UserVarADZ=6打坐按键（0--9）VBSADZ=ADZ+48UserVarHP=4加血按键（0--9）VBSHP=HP+48UserVarMP=5加蓝按键（0--9）VBSMP=MP+48UserVarJN=1技能按键（0--9）VBSJN=JN+48UserVarwpgq=20e72e怪物光圈颜色(找物品用,光圈特征色)UserVarnzsz=DropList{随机选择:0|手动选择:1}=0验证码处理方法Delay256VBSCallFindColorEx(bkx1,bky1+32,bkx1+100,bky1+100,"0300df",0,,hprX,hprY) VBShppx=Cint(hprx+hong*:mppx=Cint(hprx+lan*Delay256GosubHPMPDelay64Rem开始主程序Delay100VBSCallFindColorEx(hprX+280,hprY-4,hprX+283,hprY+4,"0300df",0,,intX,intY) Delay16IfintX>0VBSxxx=1VBSxxts="锁定怪物,开始攻击.......................................................................... ............"Gosub写信息Delay100KeyPressJN,1Gosub捡查验证Delay32Gosub找物Delay32GosubHPMPDelay32VBSxxx=0KeyPress9,1Delay128EndIfDelay64Goto开始主程序Sub打坐Delay1000RemgVBSCallFindColorEx(hprx+154,hpry,hprx+156,hpry+18,"0100df",0,,hpuX,hpuY) Delay16VBSCallFindColorEx(hprx+154,hpry,hprx+156,hpry+18,"e08901",0,,hptX,hptY) Delay16IfhpuX>0andhptx>0Delay200GotorElseEndIfEndIfRemrReturn打坐Sub找物VBSdimjwx(5),jwy(5)Delay64For2VBSCallFindColorEx(bkx1+100,bky1+100,bkx2-100,bky2-100,wpgq,0,,WX,WY)Delay64EndForIfWX>0VBSjwx(0)=0:jwy(0)=0:jwx(1)=30:jwy(1)=0:jwx(2)=-30:jwy(2)=5:jwx(3)=0:jwy(3)= 30:jwx(4)=0:jwy(4)=-30VBScci=0For5Delay64MoveTojwx(cci)+WX,jwy(cci)+WYDelay32VBSCallvas=GetCursorShape(0)Delay32VBSxxts="发现物品.......................................................................... ..........."Gosub写信息Delay64RightDown1Delay16RightUp1Delay64Goto捡EndIfVBScci=cci+1EndForEndIfRem捡Delay512PluginXY=(bkx1+300,bky1+300,bkx2-200,bky2-200,"-5|0|0,-3|0|0,-1|0|0,1|0|0,3| 0|0,5|0|0,7|0|0,9|0|0,11|0|0,13|0|0,15|0|0,17|0|0,19|0|0,21|0|1,23|0|0,25|0| 0,27|0|0,29|0|0,31|0|1,33|0|1,35|0|1,37|0|0,39|0|0,41|0|0,43|0|0,-5|2|0,-3|2 |0,-1|2|0,1|2|0,3|2|0,5|2|0,7|2|0,9|2|0,11|2|0,13|2|0,15|2|0,17|2|1,19|2|1,2 1|2|1,23|2|0,25|2|1,27|2|1,29|2|0,31|2|0,33|2|0,35|2|1,37|2|1,39|2|0,41|2|0, 43|2|0,-5|4|1,-3|4|0,-1|4|1,1|4|1,3|4|0,5|4|1,7|4|1,9|4|1,11|4|1,13|4|1,15|4 |0,17|4|0,19|4|0,21|4|1,23|4|1,25|4|1,27|4|1,29|4|1,31|4|0,33|4|0,35|4|1,37| 4|1,39|4|0,41|4|0,43|4|0,-5|6|0,-3|6|0,-1|6|0,1|6|0,3|6|0,5|6|0,7|6|0,9|6|1, 11|6|1,13|6|0,15|6|0,17|6|1,19|6|1,21|6|1,23|6|0,25|6|1,27|6|1,29|6|0,31|6|0,33|6|0,35|6|1,37|6|1,39|6|1,41|6|0,43|6|0,-5|8|0,-3|8|0,-1|8|0,1|8|0,3|8|0, 5|8|0,7|8|0,9|8|0,11|8|0,13|8|0,15|8|1,17|8|1,19|8|0,21|8|1,23|8|0,25|8|0,27 |8|0,17|10|0,19|10|1,21|10|1,23|10|0,25|10|1,27|10|1,29|10|0,31|10|0,33|10|0 ,35|10|1,37|10|0,39|10|0,41|10|1,43|10|0",1)MyArray=Split(XY,"|")OKX=Clng(MyArray(0)):OKY=Clng(MyArray(1))Delay64IfOKX>0Delay64MoveToOKX,OKYDelay64LeftClick1EndIfDelay64Return找物SubHPMPVBSCallFindColorEx(hppx,hpry,hppx+1,hpry+8,"01006e",0,,hpcX,hpcY)IfhpcX>0Delay128ElseIfDZ=0VBSxxts="血太少,打坐吧.......................................................................... ................................"Gosub写信息Delay512KeyPressADZ,1Gosub打坐ElseKeyPressHP,1Delay128EndIfEndIfVBSCallFindColorEx(hppx,hpry+10,hppx+1,hpry+18,"6d4100",0,,mpcX,mpcY) IfmpcX>0Delay128ElseIfDZ=0VBSxxts="蓝太少，打坐.......................................................................... ............................"Gosub写信息Delay512KeyPressADZ,1Gosub打坐ElseKeyPressMP,1Delay128EndIfEndIfReturnHPMPSub写信息Delay64(bkx1+300,bky1+4,bkx1+800,bky1+22,xxts,"0000ff")Delay64Return写信息Sub移动一下MoveTo(bkx2-bkx1)/2+100,(bky2-bky1)/2+100Delay128LeftClick1Delay128Return移动一下Sub捡查验证Delay16PluginXY=(bkx1,bky1+150,bkx2,bky2-150,"0|0|1,2|0|1,4|0|1,6|0|1,8|0|1,10|0|0, 12|0|0,14|0|0,16|0|1,18|0|0,20|0|0,22|0|0,24|0|0,26|0|0,28|0|0,30|0|1,32|0|0 ,34|0|0,36|0|0,38|0|1,40|0|1,42|0|1,44|0|0,0|2|1,2|2|1,4|2|1,6|2|1,8|2|0,10| 2|0,12|2|1,14|2|1,16|2|1,18|2|1,20|2|1,22|2|0,24|2|0,26|2|1,28|2|1,30|2|0,32 |2|0,34|2|0,36|2|0,38|2|1,40|2|0,42|2|1,44|2|0,0|4|1,2|4|0,4|4|1,6|4|0,8|4|0 ,10|4|0,12|4|1,14|4|0,16|4|1,18|4|0,20|4|1,22|4|0,24|4|0,26|4|0,28|4|1,30|4| 0,32|4|1,34|4|0,36|4|0,38|4|1,40|4|0,42|4|1,44|4|0,0|6|1,2|6|1,4|6|1,6|6|1,8 |6|0,10|6|0,12|6|1,14|6|1,16|6|1,18|6|1,20|6|1,22|6|0,24|6|1,26|6|0,28|6|1,3 0|6|0,32|6|0,34|6|0,36|6|0,38|6|1,40|6|0,42|6|1,44|6|0,0|8|1,2|8|0,4|8|1,6|8 |0,8|8|0,10|8|0,12|8|0,14|8|0,16|8|1,18|8|0,20|8|0,22|8|0,24|8|0,26|8|1,28|8 |1,30|8|0,32|8|0,34|8|0,36|8|0,38|8|0,40|8|0,42|8|1,44|8|0,0|10|1,2|10|1,4|10|1,6|10|1,8|10|1,10|10|0,12|10|0,14|10|0,16|10|1,18|10|0,20|10|0,22|10|0,24 |10|1,26|10|0,28|10|1,30|10|0,32|10|0,34|10|0,36|10|0,38|10|0,40|10|0,42|10| 1,44|10|1",1)VBSccca=Split(XY,"|")VBSnzco=Clng(ccca(0)):nzcv=Clng(ccca(1))Delay16Ifnzco>0Ifnzsz=0VBSxxts="出现验证码,你定义了随机选择,选择失败请等10分钟...................................."Gosub写信息Delay16Gosub随机选择ElseIfnzsz=1VBSxxts="出现验证码，你定义了手动处理,15秒后按任意键继续........................"Gosub写信息Delay16For7KeyPressJN,1Delay1000KeyPressJN,1Delay1000EndForEndIfEndIfReturn捡查验证Sub随机选择Delay32RandomizeVBSszmjg=Int((999*Rnd)+1)Delay32PluginXY=(bkx1,bky1+150,bkx2,bky2-150,"0|0|1,2|0|1,4|0|1,6|0|1,8|0|1,10|0|0, 12|0|0,14|0|0,16|0|1,18|0|0,20|0|0,22|0|0,24|0|0,26|0|0,28|0|0,30|0|1,32|0|0 ,34|0|0,36|0|0,38|0|1,40|0|1,42|0|1,44|0|0,0|2|1,2|2|1,4|2|1,6|2|1,8|2|0,10| 2|0,12|2|1,14|2|1,16|2|1,18|2|1,20|2|1,22|2|0,24|2|0,26|2|1,28|2|1,30|2|0,32 |2|0,34|2|0,36|2|0,38|2|1,40|2|0,42|2|1,44|2|0,0|4|1,2|4|0,4|4|1,6|4|0,8|4|0 ,10|4|0,12|4|1,14|4|0,16|4|1,18|4|0,20|4|1,22|4|0,24|4|0,26|4|0,28|4|1,30|4| 0,32|4|1,34|4|0,36|4|0,38|4|1,40|4|0,42|4|1,44|4|0,0|6|1,2|6|1,4|6|1,6|6|1,8 |6|0,10|6|0,12|6|1,14|6|1,16|6|1,18|6|1,20|6|1,22|6|0,24|6|1,26|6|0,28|6|1,3 0|6|0,32|6|0,34|6|0,36|6|0,38|6|1,40|6|0,42|6|1,44|6|0,0|8|1,2|8|0,4|8|1,6|8 |0,8|8|0,10|8|0,12|8|0,14|8|0,16|8|1,18|8|0,20|8|0,22|8|0,24|8|0,26|8|1,28|8 |1,30|8|0,32|8|0,34|8|0,36|8|0,38|8|0,40|8|0,42|8|1,44|8|0,0|10|1,2|10|1,4|1 0|1,6|10|1,8|10|1,10|10|0,12|10|0,14|10|0,16|10|1,18|10|0,20|10|0,22|10|0,24 |10|1,26|10|0,28|10|1,30|10|0,32|10|0,34|10|0,36|10|0,38|10|0,40|10|0,42|10| 1,44|10|1",1)VBSMyArray=Split(XY,"|")VBSXznm=Clng(MyArray(0)):Yznm=Clng(MyArray(1))IfXznm>0Ifszmjg>0andszmjg<250VBSabcx=Xznm+10:abcy=Yznm+75ElseIfszmjg>=250andszmjg<500VBSabcx=Xznm+10:abcy=Yznm+101ElseIfszmjg>=500andszmjg<750VBSabcx=Xznm+10:abcy=Yznm+127ElseIfszmjg>750VBSabcx=Xznm+10:Yznm+153EndIfDelay256MoveToabcx,abcyDelay32LeftClick1Delay256MoveToXznm+154,Yznm+180Delay32LeftClick1Delay512PluginXY=(bkx1,bky1+100,bkx2,bky2-100,"0|0|1,2|0|1,4|0|1,6|0|1,8|0|1,10|0|0, 12|0|0,14|0|0,16|0|1,18|0|0,20|0|0,22|0|0,24|0|1,26|0|1,28|0|1,30|0|1,32|0|0 ,34|0|0,36|0|0,38|0|0,40|0|1,42|0|0,44|0|1,46|0|0,48|0|1,50|0|0,52|0|0,54|0| 0,56|0|1,58|0|0,60|0|1,62|0|0,64|0|0,66|0|0,68|0|0,70|0|0,72|0|0,74|0|0,76|0 |0,78|0|0,80|0|0,82|0|0,84|0|0,86|0|0,88|0|1,90|0|1,92|0|1,0|2|1,2|2|0,4|2|128|2|0,30|2|1,32|2|0,34|2|0,36|2|0,38|2|1,40|2|1,42|2|1,44|2|0,46|2|0,48|2|1 ,50|2|1,52|2|0,54|2|1,56|2|1,58|2|0,60|2|0,62|2|0,64|2|0,66|2|0,68|2|0,70|2| 0,72|2|1,74|2|0,76|2|0,78|2|0,80|2|0,82|2|0,84|2|1,86|2|0,88|2|1,90|2|1,92|2 |1,0|4|1,2|4|0,4|4|1,6|4|0,8|4|1,10|4|0,12|4|0,14|4|0,16|4|1,18|4|0,20|4|0,2 2|4|0,24|4|1,26|4|1,28|4|0,30|4|1,32|4|0,34|4|0,36|4|0,38|4|1,40|4|1,42|4|1, 44|4|0,46|4|0,48|4|1,50|4|1,52|4|1,54|4|1,56|4|1,58|4|0,60|4|1,62|4|1,64|4|0 ,66|4|0,68|4|0,70|4|0,72|4|1,74|4|0,76|4|1,78|4|0,80|4|1,82|4|0,84|4|1,86|4| 1,88|4|1,90|4|1,92|4|1,0|6|1,2|6|0,4|6|1,6|6|0,8|6|1,10|6|0,12|6|0,14|6|0,16 |6|1,18|6|0,20|6|0,22|6|0,24|6|1,26|6|1,28|6|1,30|6|1,32|6|1,34|6|0,36|6|0,3 8|6|0,40|6|0,42|6|0,44|6|0,46|6|0,48|6|1,50|6|0,52|6|0,54|6|0,56|6|1,58|6|0, 60|6|0,62|6|1,64|6|0,66|6|0,68|6|0,70|6|0,72|6|1,74|6|0,76|6|1,78|6|0,80|6|1 ,82|6|0,84|6|1,86|6|0,88|6|1,90|6|0,92|6|1",1)VBSMyArray=Split(XY,"|")VBSBBX=Clng(MyArray(0)):BBY=Clng(MyArray(1))Delay32IfBBX>0xxts="验证码选择失败,等待10分钟....................................................."Gosub写信息Delay128Gosub等待EndIfEndIfReturn随机选择VBStt4=nowRemddsjIfdatediff("s",tt4,now)>=600Delay512GotoddwElseDelay512GosubHPMPDelay128GotoddsjEndIfRemddwReturn等待学习网络游戏找怪的思路方法（按键精灵脚本技术）很多朋友都不知道如何在游戏中用按键精灵找怪物？请看下面哦？对一些找怪的思路小有体会。