QTP中WshShell常用方法
WshShell提供对本地 Windows 外壳程序的访问。可以通过WshShell 对象模拟键盘，向激活窗口发送键值实现选择，弹出定时提示框，注册表的读写，程序的启动，系统等待，添加Event Log，创建快捷方式等与windows联系比较紧密的操作。这些操作如果使用QTP来操作可能不是最佳方案，甚至可能QTP根本无法完成，此时就可以用WSH对象来帮助解决此类问题。
首先了解下跟对象Wscript：Windows Script Host Object model
简单的说Wscript就是一个windows脚本宿主对象模型，而Wscript是一个基于windows脚本宿主对象的根对象。利用它可以创建两种COM对象：WshShell跟WshNetWork。
注释：COM对象:The Component Object Model 组件对象模型 COM组件是遵循COM规范编写、以Win32动态链接库（DLL）或可执行文件（EXE）形式发布的可执行二进制代码，能够满足对组件架构的所有需求。
其中WshNetWork对象主要用于访问局域网环境下的资源共享，自动化测试过程中用到较少，我也没有深入研究过，不多做阐述。本文主要讲一些自动化测试中常用的WSH应用。
先举个例子，看似很简单的例子，我还是遇到了些麻烦，就以下这段代码我直接在notepad里手写的，但是运行居然报了错。错误如图。
Set wsh = CreateObject(\) wsh.Run \ Set wsh = Nothing
然后我在程序第一行加了一句Dim wsh，再运行就通过了。大家都知道vbs并不强制定义变量，查了资料才知道wsh是Wscript的内置变量，正确的名称是WSH，vb中不区分大小写。 所以我们可以避免使用wsh这个变量名。
1. AppActivate方法
窗口激活经常在自动化测试中需要用到，特别是需要等待测试对象出现后再做的激活，往往需要一定的等待时间。如果hard code进去一个固定的等待时间，固然可以，但是如果考虑
到测试机本身的不稳定性，以及一旦脚本多，如果这个等待时间设置的过长，必然造成时间上的浪费，如果设置了过短，则会造成测试结果的不准确。所以此时使用循环判断窗口是否激活成功就成了关键，WshShell对象提供了一个非常有用的功能。 语法：
Object.AppActivate title 参数：
Title为需要激活窗口的title属性值，也就是标题或者是ProcessID 返回值：
返回一个布尔值，如果当前窗口激活则返回True，反之返回False
举个例子来说明窗口激活的必要性，很简单的打开一个notepad并输入“sunyu”
Set swsh = CreateObject(\) swsh.Run \
While Not swsh.AppActivate(\无标题 - 记事本\):Wend swsh.SendKeys \ Set swsh = Nothing
如果你将While Not swsh.AppActivate(\无标题 - 记事本\):Wend 这行代码注释掉的话，就很可能无法把“sunyu“输入到notepad里去了。
再举个经典的例子，可以让大家更加清楚的看到这行代码的重要性。 程序一：
Set swsh = CreateObject(\) swsh.Run \ msgbox \ Set swsh = Nothing
程序二：
Set swsh = CreateObject(\) swsh.Run \
While Not swsh.AppActivate(\无标题 - 记事本\):Wend msgbox \ Set swsh = Nothing
程序一的运行结果：
程序二的运行结果：
一目了然，无需再多做解释了吧。
2. SendKeys方法的用法
SendKeys恐怕是WSH对象最常用的方法了，主要用在对象无法识别时，又要在此对象中输入字符串，即可用该方法。又或者需要用到快捷键时，同样可以用该方法。 语法：
Object.Sendkeys(string) 参数：
String表示需要发送的字符串，以及一些特殊的键盘符 常用的特殊键：
Shift---------WshShell.SendKeys \Ctrl---------WshShell.SendKeys \Alt---------WshShell.SendKeys \Space---------WshShell.SendKeys \
Enter---------WshShell.SendKeys \←---------WshShell.SendKeys \↑---------WshShell.SendKeys \F1---------WshShell.SendKeys \
我只列举了一小部分，具体到用的时候有不清楚的可以在网上查到。
下面这个程序就是调用的任务管理器
Set swsh = CreateObject(\) swsh.SendKeys \ Set swsh = Nothing
3. 注册表的读写
在我之前的文章中经常会出现对注册表的读写，如果注册表的读写也能写进脚本里，那么我们的很多设置都会变得方便并且更加易于维护。WSH提供了方法对注册表进行增加，删除，读取等这些操作。 写注册表 语法：
Object.RegWrite(strName,anyValue [,strType]) 参数：
strName： 键的路径名 anyValue：键值
strType：可选，键的类型，默认为“REG_SZ“ 举个例子，在自启动项中增加一项：
Set swsh = CreateObject(\) regPath =
\ swsh.RegWrite regPath + \,\ Set swsh = Nothing
执行后结果如下图：
这样做对于间断性重启的自动化测试无疑来说是一个非常有用的方法。
读取注册表 语法：
Object.RegRead(strName) 参数：
strName：键的路径名 返回值：键的Value值 实例：
Set swsh = CreateObject(\) regPath =
\ MsgBox swsh.RegRead(regPath+\) Set swsh = Nothing
结果如图：