把以上这段代码放入QTP执行，结果如图2-12所示。
图2-12
3．函数的应用
|
Class User Sub msgNow MsgBox now End Sub Function msgContent(content) MsgBox content End Function End Class Set user1 = New user user1.msgContent "当前何时？" user1.msgNow |
把以上这段代码放入QTP中执行，结果如图2-14和图2-13所示。
图2-13
图2-14
总结：
虽然Class很实用，但可惜的是在QTP中，目前还不支持Class的编辑，即无法“点”出Class。因此不得不通过其他工具编辑完毕以后再放入QTP中。
2.1.7 VBS中SendKeys与项目结合的妙用
这个小节主要是介绍一下如何使用VBS中的SendKeys命令（这个命令的作用就是模拟键盘操作，将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行），巧妙地使用它可以极大地方便我们的常用操作，其使用格式为。
|
object.SendKeys string |
其中，“object”表示WshShell对象；“string”表示要发送的按键指令字符串，需要放在英文双引号中，而在按键指令字符串中通常又把它分为两类。
1．基本键。
一般来说，要发送的按键指令都可以直接用该按键字符本身来表示，例如，要发送字母“q”，使用“WshShell.SendKeys "q"”即可。当然，也可直接发送多个按键指令，只需要将按键字符按顺序排列在一起即可，例如，要发送按键“qtp”，则可以使用“WshShell.SendKeys "qtp"”来表示。
