QTP自动化测试：VBS脚本实战技巧

"QTP常用的VBS脚本包含生成随机数列、操作Windows TreeView控件、连接数据库、模拟鼠标右键菜单以及测试页面字体颜色的VBS代码片段。" 在自动化测试领域，QuickTest Professional (QTP) 是一款广受欢迎的测试工具，它支持使用Visual Basic Script (VBS)编写测试脚本来实现各种功能。以下是根据标题和描述中的内容，详细阐述这些知识点： 1) 生成随机数列 在VBS中，可以使用`Rnd`函数来生成随机数。第一种方法是通过`Randomize`函数初始化随机数生成器，然后调用`Rnd`生成一个介于1和k之间的整数。第二种方法使用`RandomNumber.Value`函数，它可以指定范围，例如在1到255之间生成随机数。 示例代码： ```vbs Randomize Function Rand(k) Rand = Int((k - 1) * Rnd + 1) End Function n = Rand(100) Dim rng Set rng = CreateObject("WScript.Shell").Exec("mshta vbscript:Execute('RandomNumber.Value(1, 100)')") MsgBox rng.StdOut.ReadAll ``` 2) 操作Windows TreeView控件 `WinTreeView`对象允许与树视图控件进行交互。可以使用`Select`方法选择特定项，`GetItem`方法获取根节点的名称。例如，选择根节点并获取其名称： ```vbs Dim treeView Set treeView = Session.Object.Window("Window Title").Control("Tree View Control Name") treeView.Select 0 ' 选择根节点 MsgBox treeView.GetItem(0) ' 获取根节点名称 ``` 3) QTP连接数据库 QTP可以通过VBS创建`ADODB.Connection`对象来连接数据库。以下代码展示了如何连接到Oracle数据库并执行SQL查询： ```vbs Dim conn, str, rs str = "DRIVER=Oracle in OraHome92;SERVER=192.168.0.1;DBQ=testdb;USERID=test;PASSWORD=test" Set conn = CreateObject("ADODB.Connection") conn.Open str Dim sql sql = "SELECT * FROM user_table WHERE table_name='XXX'" Set rs = CreateObject("ADODB.Recordset") rs.Open sql, conn, 1, 3 ' ... 查询处理 ... rs.Close conn.Close ``` 4) 模拟鼠标右键菜单 在QTP中，可以使用内置的鼠标操作模拟用户对网页元素的右键点击。例如，针对一个WebEdit控件执行右键点击，并选择第4个菜单项： ```vbs cur_replay_type = Setting.WebPackage("ReplayType") Setting.WebPackage("ReplayType") = 2 Browser("Browser").Page("Welcome:MercuryTours").WebEdit("userName").ClickMicRightBtn Setting.WebPackage("ReplayType") = cur_replay_type index = 4 Set WshShell = CreateObject("WScript.Shell") For i = 1 To index WshShell.SendKeys "{DOWN}" Next WshShell.SendKeys "{ENTER}" Set WshShell = Nothing ``` 5) 测试页面字体颜色 若要测试网页元素的字体颜色，可以使用`Browser()`和`Page()`对象来定位元素，然后获取其CSS属性。例如，获取WebEdit控件的字体颜色： ```vbs Dim webEdit, color Set webEdit = Browser("Browser").Page("Page Title").WebEdit("ElementName") color = webEdit.GetROProperty("css:color") MsgBox "Font color is: " & color ``` 这些VBS脚本实例展示了QTP中VBS的强大功能，包括数学运算、GUI控件操作、数据库交互以及模拟用户行为。通过掌握这些技术，测试工程师能够编写更复杂、更高效的自动化测试脚本。