不知道我说的意思大家明白不?本人没接触过VBScript,所以请高手多多指点!在此谢谢!作者: jiangdanyang 时间: 2007-8-16 10:42
高手何在?请赐教!作者: zengfanjin5588 时间: 2007-8-16 10:52
期待高手指点~~作者: sterson 时间: 2007-8-16 11:08
if Browser("多元化在线传真安全管理系统").Page("多元化在线传真安全管理系统_3").Image("header").Exist(10) then
Browser("多元化在线传真安全管理系统").Page("多元化在线传真安全管理系统_3").Link("安全退出").Click
end if作者: jiangdanyang 时间: 2007-8-16 11:36
首先谢谢楼上的回答,但是我不明白
if Browser("多元化在线传真安全管理系统").Page("多元化在线传真安全管理系统_3").Image("header").Exist(10) then
这句话中.Exist(10)什么意思,是否表示检查点通过的意思作者: sterson 时间: 2007-8-16 12:40
Exist是检查当前对象是否存在应该程序中
它返回一个Boolean值..
后面的参数是可选的.
如果指定一个时间,那么QTP将暂停指定的时间长.
如果指定为O,则QTP将直接返回结果,true or false
如果没有指定时间,则QTP将根据应该程序的默认设置作者: sterson 时间: 2007-8-16 12:46
这样写也可以:
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 时间: 2007-8-16 13:37 标题: 回复 #7 sterson 的帖子 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 时间: 2007-8-16 14:11
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 时间: 2007-8-16 14:30
问题已解决!
非常感谢这位来自珠海朋友的帮忙!
本人也在珠海待了一年,期待有一天再次来到美丽的珠海!
谢谢sterson!作者: sterson 时间: 2007-8-16 14:58
you are welcome.....