|
'=========================================================================
'脚本功能:功能自动化测试脚本
'测试对象:XXXX 被测版本:V1.5
'编写日期:2010-5-20 编写人:XXX
'修改日期: 2010-5-26 修改人:XXX
'备注:目前脚本覆盖的功能有限,需要后继深入开发
'========================================================================
Option explicit '只能显式的定义变量
On Error Resume Next '遇到系统错误继续执行脚本
executefile "D:\qtp_control.VBS" '如果移植代码到其他机器运行 需要将对象库同此文件一起拷贝路径与此代码相同,或使用环境变量进行配置
Dim intRuntimes,objDialog,objSystemdia,strText ,strChecked,objSystemdia_1,stra,objarray(),wshshell,strreg(3) ' 定义测试过程中所需要的变量
Dim fso, fso_1,objqtpwin,objFile ' 文件系统操作相关变量
Dim rega,regb,regc '正则表达式相关变量
Dim objDescr,objChild,Counter '收集对象的相关变量
Dim objCollection,Counter_1 '收集对象属性集合的相关变量
Dim intDevnumber,strDevValue '设备列表相关变量
Set wshshell=createobject("wscript.shell") '创建WSH相关对象
Set fso=createobject("scripting.filesystemobject") '创建文件系统对象
Set fso_1=fso.CreateTextFile("d:\注册表测试结果.txt") '此处需要修改为更改后的程序可执行文件的绝对路径
'data table 的相关操作
'===================将常用对象赋值给变量,用变量代替============
Set objDialog=Dialog("xxxxx")
Set objSystemdia_1=objDialog
Set objSystemdia=objDialog.Dialog("XXXXX")
'==================================================================
SystemUtil.Run "C:\Program Files\xxxx","xxx","","xxx" '程序运行命令:如果程序的安装路径改变了,
If Dialog("xxxxx").WinComboBox("设备列表:").GetItemsCount=0 Then '判断设备列表中设备数
call QTP_Small()
Function Count_int()
Dim intCount
intCount=0
Call QTP_Big()
'exittestiteration '用于推出当前测试脚本的执行
For intRuntimes=2 to 6 step 2
If intRuntimes=4 Then
objDialog.WinButton("在线升级").Click
objDialog.WinButton("在线升级").WaitProperty "visible","true",10000
objDialog.WinButton("系统选项").Click
Set objDescr=Description.Create() '创建description对象,作为对象的属性集合
objDescr("Class Name").value="WinCheckBox"
Set objChild=dialog("xxxxx").Dialog("系统选项").ChildObjects(objDescr) '返回符合属性集合的对象
If objChild.Count=2 Then '判断对象个数是否与预期一致
reporter.ReportEvent micPass,"复选框个数预期相符", "共有复选框"& objChild.Count &"个"
else
reporter.ReportEvent micFail, "复选框个数与预期不符","预期复选框2个"&vbcrlf&"实际复选框个数"& objChild.Count &"个"
End If
For Counter=0 to objChild.Count-1
objChild(Counter).set "OFF"
Next
Set objCollection=dialog("xxxxx").Dialog("系统选项").WinCheckBox("XXXXX").GetTOProperties '获得此对象的描述属性
For Counter_1=0 to objCollection.count-1
reporter.ReportEvent micPass,"此对象属性"&(Counter_1+1),"属性名:"& objCollection( Counter_1).name&vbcrlf&"属性值:"& objCollection( Counter_1).value '想测试报告中输出每一个描述属性的名字和值
Next
wait 3
Set objCollection=nothing
Set objChild=nothing '释放与变量所引用的对象相关联的内存和系统资源
Set objDescr=nothing
If objSystemdia.WinCheckBox("XXX").Exist Then '判断”XXXXX“复选框是否存在
strChecked=objSystemdia.WinCheckBox("XXXXX").GetROProperty("checked") '”XXXXX“复选框的checked值赋值给变量
If strChecked="OFF" Then '判断”XXXXX“复选框是否被选中
objSystemdia.WinCheckBox("XXXX").Set"ON"
End If
else
intCount=intCount+1
end if
If objSystemdia.WinCheckBox("XXXX").Exist then ' 判断此窗口是否存在
objSystemdia.WinCheckBox("XXXX").Set "ON"
else
intCount=intCount+1
end if
objSystemdia.WinButton("确定").Click
end if
If intRuntimes=2Then
If objDialog.WinButton("系统选项").Check(CheckPoint("系统选项_2")) then
wait 3
With dialog("xxxxx")
.WinButton("系统选项").Click
End With
else
msgbox "系统选项文本内容不正确",48,"系统提示"
End If
strText= objSystemdia.WinCheckBox("XXXX").GetROProperty("text")
[ 本帖最后由 wangxin1618 于 2010-7-9 17:24 编辑 ] |
|