QTP学习笔记（一）

在使用RandomNumber之前,先Randomize 初始化一下,这样每次随机开始的数字就基本不会重复了

systemutil.Run "程序路径"     '运行程序

counts=window("Flight Reservation").WinComboBox("Fly From:").GetItemsCount '得到FLY FROM里的选项总数值赋给counts

Dim RndNameLth,j,k,RndStr
Randomize
RndNameLth=int(3+6*Rnd) '定义随机名字的长度至少为3个字符到8个
For i = 1 To RndNameLth
Randomize
j = 97+Int(26*Rnd)  ‘'acsii字符，97为a，97+25=122为z
k=chr(j) '数字转为字母
RndStr =RndStr+k
next

Set des=description.Create() '创建description对象
des("Class Name").value="WinRadioButton" '为description对象添加描述属性
Set radioBtn=window("Flight Reservation").ChildObjects(des) '用ChildObjects来获取父对象下的des子对象
index=randomnumber(0,2) '随机从0到2选一个数
radioBtn(index).click

本文出自 “猪仔测试技术” 博客，转载请与作者联系！