实例五：使计算机死机（请勿随意尝试！）。
|
Dim WSHSHELL Set WSHSHELL = WScript.CreateObject("WScript.Shell") WSHSHELL.Run " " Wait 1 WSHSHELL.SendKeys "{ENTER}" Wait 1 WSHSHELL.SendKeys "{ENTER}" Wait 1 WSHSHELL.SendKeys "{ENTER}" Wait 1 WSHSHELL.SendKeys "{ENTER}" Wait 1 WSHSHELL.SendKeys "{ENTER}" |
实例六：定时关机。
|
Dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") WScript.Sleep 2000 WshShell.Run "shutdown -r -t 120" wscript.sleep 6000 WshShell.Run "shutdown –a |
注意：在“实例四”中的“wscript.sleep 500”意味着等待0.5秒（1000 = 1秒），而在“实例五”中的“Wait 1”直接意味着等待1秒。另外QTP并不支持前者，所以，使用QTP执行的话只能使用Wait函数，否则会报错。
2.1.8 总结
VBScript的知识点很多，在本书中只是总结一些和QTP息息相关的知识点，以及一些在项目中会使用到的小技巧（比如SendKeys），本章节的内容并不是全面的VBS教学，内容并不是特别系统，但是作者已经讲了VBScript脚本语言和QTP交互的重点部分。
完全可以通过很多网络资源学习VBScript，在本书的后续章节（比如介绍EOM的那一章）也会使用到不少VBScript的知识。最后再通过不断地实践，相信过不了多久就可以随心所欲地应付VBS了，个人认为“VBScript脚本语言”没有必要特意去“学习”！
知识点巩固和举一反三练习
一、利用VBScript中的SendKeys方法写一段代码，使记事本能自动定时保存。
二、编写一个Function、一个Sub并调用它们。
要求：注意代码规范！
本文选自《51Testing软件测试作品系列》之九——《精通QTP——自动化测试技术领航》。
本站经人民邮电出版社和作者的授权，近期将进行部分章节的独家连载，敬请期待！
版权声明：51Testing软件测试网获人民邮电出版社和作者授权独家连载本书部分章节。
任何个人或单位未获得明确的书面许可，不得对本文内容复制、转载或进行镜像，否则将追究法律责任。
相关阅读：
