有关登陆页面的测试

jiangdanyang

Browser("多元化在线传真安全管理系统").Page("多元化在线传真安全管理系统").WebEdit("_idJsp0:eid").Set DataTable("用户名", dtLocalSheet)
Browser("多元化在线传真安全管理系统").Page("多元化在线传真安全管理系统").WebEdit("_idJsp0:password").SetSecure DataTable("密码", dtLocalSheet)
Browser("多元化在线传真安全管理系统").Page("多元化在线传真安全管理系统").Image("_idJsp0:_idJsp2").Click 63,10
Browser("多元化在线传真安全管理系统").Page("多元化在线传真安全管理系统_2").Sync

以上代码是我录制的登陆页面的代码并进行了参数化.下面两行代码意思分别是:登陆成功后页面的一个检查点和点击"安全退出"链接,返回登陆页面

Browser("多元化在线传真安全管理系统").Page("多元化在线传真安全管理系统_3").Image("header").Check CheckPoint("header")
Browser("多元化在线传真安全管理系统").Page("多元化在线传真安全管理系统_3").Link("安全退出").Click

但我不知道怎样用If语句把上下两段代码连接起来.
我的意思是想做到一旦检查点检查成功就点击"安全退出"链接,然后继续循环执行,检查不成功的话也就接着循环执行.

不知道我说的意思大家明白不?本人没接触过VBScript,所以请高手多多指点!在此谢谢!

jiangdanyang

高手何在?请赐教!

zengfanjin5588

期待高手指点~~

sterson

if Browser("多元化在线传真安全管理系统").Page("多元化在线传真安全管理系统_3").Image("header").Exist(10) then
Browser("多元化在线传真安全管理系统").Page("多元化在线传真安全管理系统_3").Link("安全退出").Click

end if

jiangdanyang

首先谢谢楼上的回答,但是我不明白
if Browser("多元化在线传真安全管理系统").Page("多元化在线传真安全管理系统_3").Image("header").Exist(10) then
这句话中.Exist(10)什么意思,是否表示检查点通过的意思

sterson

Exist是检查当前对象是否存在应该程序中
它返回一个Boolean值..
后面的参数是可选的.
如果指定一个时间,那么QTP将暂停指定的时间长.
如果指定为O,则QTP将直接返回结果,true or false
如果没有指定时间,则QTP将根据应该程序的默认设置

sterson

这样写也可以:
dim a  '保存期望值
dim b '保存实际值
a="XXXX"
b = browser("多元化在线传真安全管理系统").page("多元化在线传真安全管理系统_3").check ( CheckPoint("header"))


if a=b then
Browser("多元化在线传真安全管理系统").Page("多元化在线传真安全管理系统_3").Link("安全退出").Click
end if

jiangdanyang

Browser("多元化在线传真安全管理系统").Page("多元化在线传真安全管理系统").WebEdit("_idJsp0:eid").Set DataTable("用户名", dtLocalSheet)
Browser("多元化在线传真安全管理系统").Page("多元化在线传真安全管理系统").WebEdit("_idJsp0:password").SetSecure DataTable("密码", dtLocalSheet)
Browser("多元化在线传真安全管理系统").Page("多元化在线传真安全管理系统").Image("_idJsp0:_idJsp2").Click 63,10
Browser("多元化在线传真安全管理系统").Page("多元化在线传真安全管理系统_2").Sync
If Browser("多元化在线传真安全管理系统").Page("多元化在线传真安全管理系统_3").Image("header").Exist(10) then
Browser("多元化在线传真安全管理系统").Page("多元化在线传真安全管理系统_3").Link("安全退出").Click
end If
我现在按照你的提示,把代码修改成如上所示.但是执行完第一遍之后就停止执行了,也就是说不能循环执行登陆这一动作.不知道接下来又该怎么做?还请sterson再指点.多姐!

sterson

do while ("true")
Browser("多元化在线传真安全管理系统").Page("多元化在线传真安全管理系统").WebEdit("_idJsp0:eid").Set DataTable("用户名", dtLocalSheet)
Browser("多元化在线传真安全管理系统").Page("多元化在线传真安全管理系统").WebEdit("_idJsp0:password").SetSecure DataTable("密码", dtLocalSheet)
Browser("多元化在线传真安全管理系统").Page("多元化在线传真安全管理系统").Image("_idJsp0:_idJsp2").Click 63,10
Browser("多元化在线传真安全管理系统").Page("多元化在线传真安全管理系统_2").Sync
If Browser("多元化在线传真安全管理系统").Page("多元化在线传真安全管理系统_3").Image("header").Exist(10) then
Browser("多元化在线传真安全管理系统").Page("多元化在线传真安全管理系统_3").Link("安全退出").Click
end If
loop

jiangdanyang

问题已解决!
非常感谢这位来自珠海朋友的帮忙!
本人也在珠海待了一年,期待有一天再次来到美丽的珠海!
谢谢sterson!

sterson

you are welcome.....

欢迎加入我的Q群  8392493

更多问题会及时解决...