QTP基础代码集锦：随机数生成与对话框处理

"这篇文档是关于QTP（QuickTest Professional，现称为UFT，Unified Functional Testing）的基础代码示例，主要包括生成随机数列、数据表操作以及处理对话框的技巧。" QTP（快速测试专业版）是HP公司推出的一款自动化测试工具，主要用于功能测试和回归测试。本篇文档主要介绍了几个QTP脚本编程中常用的基础代码片段。 1. **生成随机数列** - 第一种方法使用内置函数`Randomize`和`Rnd`来生成随机数。`Randomize`函数初始化随机数生成器，`Rnd`函数则返回0到1之间的一个随机浮点数。通过乘以(k-1)和加1，可以得到1到k之间的随机整数。 ```vbnet randomize '更新随机数种子 function rand(k,n) n = int((k-1) * rnd + 1) rand = n end function ``` - 第二种方法使用`RandomNumber`对象的`Value`方法，它可以设置一个范围来生成随机整数，例如`1`到`255`之间的数字。 ```vbnet n = RandomNumber.Value(1, 255) ``` 2. **数据表操作** - 在QTP中，可以使用数据表（DataTable）来管理测试数据。以下代码展示了如何根据当前行数导出整个数据表到XML文件中。 ```vbnet row = DataTable.GetCurrentRow if row = "5" then DataTable.Export("d:\data.xml") end if ``` 这段代码表示当测试执行到数据表的第5行时，将数据表导出为XML文件。 3. **处理密码字段** - QTP提供了`SetSecure`方法来安全地设置密码字段，确保密码不会在日志中显示。但有时，直接在数据表中输入明文密码，QTP也会自动处理。例如： ```vbnet WebEdit("txtpass").SetSecure "sdsdf." ``` 4. **对话框处理与错误验证** - 当浏览器弹出对话框时，可以通过`Exist`方法判断其是否存在，并获取其上的文本进行比对。以下代码展示了如何处理并验证对话框的错误信息。 ```vbnet If Browser("web_name").Dialog("dialog_name").Exist(1) Then '如果不出现=false error_message = Browser("web_name").Dialog("dialog_name").Static("用户密码错误!").GetROProperty("text") If error_message <> DataTable.Value("error_info") Then MsgBox error_message End If Browser("web_name").Dialog("dialog_name").Close End If ``` 这里提到了两个技巧： - 对于对话框中的静态文本对象，即使实际提示信息改变，只要对象名称不变，QTP仍能识别。 - 使用`Mid`函数可以从较长的错误信息中提取部分文本进行比较。 以上就是QTP基础代码的简单介绍，这些代码示例可以帮助理解QTP脚本的基本结构和常见操作，对于编写自动化测试脚本具有指导意义。