|
3#
楼主 |
发表于 2008-1-9 17:03:45
|
只看该作者
回复 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 |
|