51Testing软件测试论坛

标题: 再检查checkpoint通过没有的时候出现了问题 [打印本页]

作者: sally_520xue 时间: 2008-1-9 12:25
标题: 再检查checkpoint通过没有的时候出现了问题
我自己写了段代码，是用来检查checkpoint通过没有的，但是我加入的文本检查点，不知道为什么说对象不支持此种属性或者方法，好纳闷啊，
图片检查点就没有问题，为什么文本检查点就不可以呢？
下面是截图，请高人帮忙指点一下，谢谢喽~~

作者: 风过无息 时间: 2008-1-9 14:21
lz的脚本有点问题,是自己写的还是自动生成的.
checkpoint.check(chechpoint())?

作者: sally_520xue 时间: 2008-1-9 17:03
标题: 回复 2# 的帖子
Browser("Browser").Page("北京租房信息- 酷讯生活搜索_2").CheckPoint("北京租房信息- 酷讯生活搜索_3")这句话完全是加的检查点，自动生成的，我只是定义了一个chk_PassFail，然后Check(CheckPoint("北京租房信息- 酷讯生活搜索_3"))这句话是自己写的。
版主，给下指点，是不是这段话有什么问题？我把整段代码贴出来好了。
Call main
Sub main

Dim chk_PassFail
SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE","","C:\Documents and Settings\Administrator.SALLY","open"
Browser("Browser").Page("Page").Sync
Browser("Browser").Navigate "http://www.kooxoo.com/"
Browser("Browser").Page("酷讯生活搜索―工作、租房、二手房、新房、火车票、机票、酒店、").WebButton("酷讯搜索").Click
Browser("Browser").Page("北京租房信息- 酷讯生活搜索").Sync
Browser("Browser").Page("北京租房信息- 酷讯生活搜索_2").Check CheckPoint("北京租房信息- 酷讯生活搜索_3")
chk_PassFail=Browser("Browser").Page("北京租房信息- 酷讯生活搜索_2").CheckPoint("北京租房信息- 酷讯生活搜索_3").Check(CheckPoint("北京租房信息- 酷讯生活搜索_3"))
if chk_PassFail then

Browser("Browser").Close
Call main
else
'MsgBox "Check Point failed"
Call transfer
end if

作者: sally_520xue 时间: 2008-1-9 18:20
标题: 回复 3# 的帖子
chk_PassFail=Browser("Browser").Page("北京租房信息- 酷讯生活搜索_2").CheckPoint("北京租房信息- 酷讯生活搜索_3").Check(CheckPoint("北京租房信息- 酷讯生活搜索_3"))
这句话改了一下，运行通过了，改成这个样子：chk_PassFail=Browser("Browser").Page("北京租房信息- 酷讯生活搜索_2").Check(CheckPoint("北京租房信息- 酷讯生活搜索_3"))就可以了。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)