Reporter.ReportEvent micPass,"AA checkpoint","page is saved successfully"
Else Reporter.ReportEvent micFail,"AA checkpoint","page is not saved successfully"
End If
5、编程性描述语言识别对象
刚开始一段时间，一直不知道QTP除了用对象库识别对象外，还可以用编程性描述语言。后来查了网上的资料才明白过来。
第一种方法：
Browser("CreationTime:=0").Page("index:=1").WebEdit("name:=" & edit).Set "ha"
我没有尝试过，总感觉不如对象库来的方便，在对象库中可以直接选择和修改用来识别对象的属性，以及highlight object等功能。
第二种方法：
碰到过一个Case是，页面上table A里的checkbox元素数量每次运行时都是不相同的，随着页面上另一个对象B的值而改变，对象B的值又是参数化的，最后造成checkbox数量运行前无法预知。操作时又需要每次都选上所有的checkbox。最后用这种识别对象方法可以顺利实现。
Public function SelectAllCheckBox()
Set NewObject = Description.Create '创建满足下面三个条件的对象集
NewObject("micclass").value ="WebCheckBox"
NewObject("html tag").value="INPUT"