代替检查点的一种方法

当用描述性编程的方法时，或者要判断某个对象属性的一部分时，checkpoint就不好用了，下面是一种

代替设置检查点的一种方法，脚本如下：

Dim  i
set ōbjs=Browser("NYBOSS系统登陆").Window("-- 网页对话框").Page("产品选择").Frame("result").WebTable("产品编码")
i = 1
while not trim(objs.getcelldata(i,3))= "同方IC卡"
 i = i + 1
Wend

Browser("NYBOSS系统登陆").Window("-- 网页对话框").Page("产品选择").Frame("result").WebCheckBox("index:="& i-1).Set "ON"
chkpoint=Browser("NYBOSS系统登陆").Window("-- 网页对话框").Page("产品选择").Frame("result").WebCheckBox("index:="& i-1).getroproperty("value")
If   instr(chkpoint,"同方IC卡")<>0 Then
 reporter.reportevent 0, "同方IC卡", "找到了同方IC卡"
    else
  reporter.reportevent 1, "同方IC卡", "没找到同方IC卡"
End If