WshShell.docx

WshShell对象WshShell提供对本地 Windows 外壳程序的访问。 可以通过WshShell 对象模拟键盘，向激活窗口发送键值实现选择，弹出定时提示框，注册表的读写，程序的启动，系统等待，添加Event Log，创建快捷方式等下面我们介绍一下WshShell的几个方法：1、SendKeys 方法即模拟键盘操作，将一个或多个键击发送到活动窗口（仿佛是在键盘上击键一样）。语法如下：object.SendKeys(string)object ：WshShell 对象。 string ：表示要发送的键击（一个或多个）的字符串值。 说明：发送单个字符用字符本事作为参数发送空格键 使用“ ”发送多个键，只需要把每个键击按顺序排列在一起某些特殊字符：圆括号 中括号 大括号 + % 要使用括起来其他键击参数如下：键参数退格键BACKSPACE、BS 或 BKSPBREAKBREAKCAPS LOCKCAPSLOCKDEL 或 DELETEDELETE 或 DEL向下键DOWN向左键LEFT向右键RIGHT向上键UPENDENDENTERENTER 或 ESCESCHELPHELPHOMEHOMEINS 或 INSERTINSERT 或 INSNUM LOCKNUMLOCKPAGE DOWNPGDNPAGE UPPGUPPRINT SCREENPRTSCSCROLL LOCKSCROLLLOCKTABTABF1、F2、F3 F1、F2、F3SHIFT +CTRLALT%*函数功能：模拟键盘输入参数：模拟的键盘传递返回值：无示例调用：call Send(TEST)*Sub Send(Key)Dim WshShellset WshShell = CreateObject(Wscript.Shell) WshShell.SendKeys keySet WshShell = NothingEnd Sub *例子： 1、在记事本里边输入字符abc2、然后删除最后一个字符3、输入字符+和=号4、输入10个重复的k5、回车6、同时按住ctrl+h,打开查找框7、按ALT+F4键关闭查找框Sub sendkey(keys) dim Wshshell set Wshshell = CreateObject(Wscript.Shell) Wshshell.sendkeys keys Set WshShell=NothingEnd SubWindow(记事本).Activate一般字符，如字母，数字，键下方的符号等sendkey abc回车，退回键等使用，详见help文档（搜索SendKeys）sendkey BACKSPACE圆括号 中括号 大括号 + % 要使用括起来sendkey +=重复显示打10个k键sendkey k 10代表回车符，也可以使用ENTERsendkey 同时按住CTRL和h键sendkey hwait 3同时按住alt键和F4键sendkey %F4 2、Popup 方法在弹出式消息框中显示文本。函数功能：定时提示框输入参数：Value - 消息提示框内容waitTime - 提示框停留时间Title - 提示框标题返回值：无示例调用：Call Mbox(15sec, 15, )*Sub Mbox(Value,waitTime,Title)Dim WshShell Set WshShell = CreateObject(WScript.Shell) WshShell.Popup Value, waitTime, Title Set WshShell = nothingEnd Sub*3、Exec 方法Exec 方法返回 WshScriptExec 对象，它提供有关用 Exec 运行的脚本状态和错误信息，还提供对 StdIn、StdOut 和 StdErr 频道的访问。Exec 方法只允许执行命令行应用程序。Exec 方法不能用于运行远程脚本。Execute可以用来运行远程脚本，它是WshRemote 对象例子：函数功能：运行指定程序输入参数：command - 程序全路径返回值：无示例调用： Call RunApp(notepad.exe)*Sub RunApp(command)Dim WshShellset WshShell = CreateObject(Wscript.Shell) WshShell.Exec notepadEnd Sub *4、RegWrite 方法创建新项、将另一个值名添加到现有的项中（为其指派一个值），或更改现有值名的值。object.RegWrite(strName, anyValue ,strType)参数object :WshShell 对象。 strName :表示要创建、添加或更改的项名、值名或值的字符串值。 anyValue :要创建的新项名称、要添加到现有项中的值名或要指派给现有值名的新值。 strType :可选。表示值的数据类型的字符串值。 strType 的选项。转换成strType字符串REG_SZ字符串REG_EXPAND_SZ整数REG_DWORD字符串REG_BINARY其中5个跟项可以用缩写根项名 缩写 HKEY_CURRENT_USER HKCU HKEY_LOCAL_MACHINE HKLM HKEY_CLASSES_ROOT HKCR HKEY_USERS HKEY_USERS HKEY_CURRENT_CONFIG HKEY_CURRENT_CONFIG例子：改变QC字体的大小手工实现1.输入命入regedit，打开注册表键值：HKEY_CURRENT_USERSoftwareMercury InteractiveTestDirectorGeneral TDFontSize=dword:0000000a新增TDFontSize，newREG_DWORD,value=a（即10）重新打开浏览器代码实现Set WshShell = CreateObject(WScript.Shell)WshShell.RegWriteHKEY_CURRENT_USERSoftwareMercury InteractiveTestDirectorGeneralTDFontSize, a, REG_SZ5、RegRead 方法从注册表中返回项值或值名。语法：object.RegRead(strName)参数object ：WshShell 对象。 strName ：表示所需的项名或值名的字符串值。 例子函数功能：获取当前计算机名输入参数：无返回值：无示例调用：MsgBox GetComputerName()*Function GetComputerName()Set ws = CreateObject(wscript.shell)pcname = ws.RegRead(HKLMSYSTEMcurrentcontrolsetcontrolcomputernamecomputernamecomputername)GetComputerName = pcnameSet ws = NothingEnd Function6、RegDelete 方法从注册表中删除项及其某个值。object.RegDelete(strName)例子：把在RegWrite方法中写入的信息删除Set WshShell = CreateObject(WScript.Shell)WshShell.RegDelete HKEY_CURRENT_USERSoftwareMercury InteractiveTestDirectorGeneralTDFontSize7、AppActivate 方法激活应用程序窗口。object.AppActivate title 参数Object：WshShell 对象。 Title：指定要激活哪个应用程序。它可以是包含应用程序的标题（和出现在标题栏中的一样）或过程 ID 的字符串。 如：WshShell.AppActivate 计算器例子：函数功能：激活标题为“计算器”的计算器输入参数：无返回值：无示例调用： ActiveApp(计算器)*Function ActiveApp(command)Set ws = CreateObject(wscript.shell) ws.AppActivate