51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2691|回复: 4
打印 上一主题 下一主题

[原创] 怎样根据判断网页上的文字来执行不同的步骤?(8.2汉化文件下载)

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2009-1-9 10:15:41 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
昨天在网上捡到一个8.2的汉化文件,估计对像我这种菜鸟的新手有点帮助!要的朋友自己来下载哟!顺便帮我看看下面的问题!
http://pcxu.vicp.net:520/QTPV8.2ChinesePack.rar
(用自己的电脑共享的,要的朋友请早点!不要使用迅雷下载,否则可能不能完成下载!)

怎样根据判断网页上的文字来执行不同的步骤?没接触过QTP,小弟初学,请大虾指点一下,我知道if...then那个地方的语法有误,请问该怎样写才是正确的呀?谢谢了!
QTP提示语法错误,缺少then,代码如下:
Browser("Browser").Page("Page").Sync
Browser("Browser").Navigate "http://192.168.20.142/Pages/maintenance.asp"
Browser("Browser").Dialog("连接到 192.168.20.142").WinEdit("用户名(U):").Set "admin"
Browser("Browser").Dialog("连接到 192.168.20.142").WinEdit("用户名(U):").Type  micTab
Browser("Browser").Dialog("连接到 192.168.20.142").WinEdit("密码(P):").SetSecure "4966ad0e31ecc1fb0254e36f97619515"
Browser("Browser").Dialog("连接到 192.168.20.142").WinEdit("密码(P):").Type  micReturn
if Browser("Browser").Page("Network Camera").Check CheckPoint("V0.91") then
Browser("Browser").Page("Network Camera").WebFile("binary").Set "D:\Backup\software\081218.bin"
else
Browser("Browser").Page("Network Camera").WebFile("binary").Set "D:\Backup\software\090102.bin"
end if
检查页面是否出现"V0.91"字样,如果存在,则执行上传081218.bin步骤,不存在则执行090102.bin...
Browser("Browser").Page("Network Camera").WebButton("Upgrade").Click
Browser("Browser").Page("Network Camera_2").Sync

[ 本帖最后由 xkowen 于 2009-1-9 10:27 编辑 ]
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2009-1-9 11:01:39 | 只看该作者
Browser("Browser").Page("Network Camera").Check CheckPoint("V0.91") 一句中,在.check 与checkpoint("v0.91")之间是不是有一个空格啊?如果有的话if then肯定报错
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2009-1-9 11:33:21 | 只看该作者

回复 2# 的帖子

大虾,没空格也不行啊!郁闷ing....
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2009-1-9 15:41:23 | 只看该作者
楼主试一下这个:
content=Browser("Browser").Page("Network Camera").Check (CheckPoint("V0.91") )
if content then
Browser("Browser").Page("Network Camera").WebFile("binary").Set "D:\Backup\software\081218.bin"
else
Browser("Browser").Page("Network Camera").WebFile("binary").Set "D:\Backup\software\090102.bin"
end if
回复 支持 反对

使用道具 举报

该用户从未签到

5#
 楼主| 发表于 2009-1-9 15:47:51 | 只看该作者

回复 4# 的帖子

呃...根据大虾所说的方法,QTP提示对象库中找不到 "V0.91" CheckPoint 对象啊!
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-28 00:58 , Processed in 0.082271 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表