51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 5005|回复: 22
打印 上一主题 下一主题

[原创] 关于qtp编写的小问题

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2007-6-12 10:37:49 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
我现在想做到的是监测点报错就跳出。请问怎么加代码??
我录制了一个简单的脚本,你们帮看看怎么改好
SystemUtil.Run "iexplore.exe","","",""
Browser("百度一下,你就知道").Page("百度一下,你就知道").Sync
Browser("百度一下,你就知道").Navigate "http://www.baidu.com"
Browser("百度一下,你就知道").Page("百度一下,你就知道").WebEdit("wd").Set "qtp"
Browser("百度一下,你就知道").Page("百度一下,你就知道").WebButton("百度一下").Click
Browser("百度一下,你就知道").Page("百度搜索_qtp").Check CheckPoint("百度搜索_qtp_3")
Browser("百度一下,你就知道").Page("百度搜索_qtp").Sync
Browser("百度一下,你就知道").Close
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

23#
发表于 2007-6-21 16:06:03 | 只看该作者
good
回复 支持 反对

使用道具 举报

该用户从未签到

22#
发表于 2007-6-21 11:59:16 | 只看该作者
sdlkfj2 学习了.....
回复 支持 反对

使用道具 举报

该用户从未签到

21#
发表于 2007-6-20 22:01:11 | 只看该作者
原帖由 rivermen 于 2007-6-12 12:10 发表
你这里then 怎么换行了?
给你个例子;


res = Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("userName").Check ( CheckPoint("userName") )

If res = False Then

  ...


上面这样的编程会让人笑掉大牙!

推荐用rivermen 兄的写法.比较专业.
if not Browser("百度一下,你就知道").Page("百度搜索_qtp").Check (CheckPoint("百度搜索_qtp_3"))  then
    msgbox "报错"
    ExitTest
end if
回复 支持 反对

使用道具 举报

该用户从未签到

20#
发表于 2007-6-20 17:46:58 | 只看该作者
学习了
回复 支持 反对

使用道具 举报

该用户从未签到

19#
发表于 2007-6-17 12:06:24 | 只看该作者

ding

ding
回复 支持 反对

使用道具 举报

该用户从未签到

18#
发表于 2007-6-15 15:56:50 | 只看该作者
恩,这样学习更有帮助啊.不断学习中.
回复 支持 反对

使用道具 举报

该用户从未签到

17#
发表于 2007-6-14 11:27:58 | 只看该作者
学习学习
回复 支持 反对

使用道具 举报

该用户从未签到

16#
发表于 2007-6-13 14:55:17 | 只看该作者
8醋8醋!!学了不少!!
回复 支持 反对

使用道具 举报

该用户从未签到

15#
 楼主| 发表于 2007-6-13 14:52:47 | 只看该作者
还是实际应用的好,我看help了,里面没有怎么写检查点的,开始我就想
if Browser("百度一下,你就知道").Page("百度搜索_qtp").Check (CheckPoint("百度搜索_qtp_3")) is False then
所以老过不去。
回复 支持 反对

使用道具 举报

该用户从未签到

14#
发表于 2007-6-13 13:51:04 | 只看该作者
招聘高级软件工程师,有朋友的话帮助推荐一下,2年以上测试工作经验.
More detail pls contact selina@mst.com.cn
lin830413@hotmail.com
回复 支持 反对

使用道具 举报

  • TA的每日心情
    奋斗
    2022-7-13 15:22
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    13#
    发表于 2007-6-13 12:03:45 | 只看该作者
    look up ‘help’
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    12#
     楼主| 发表于 2007-6-13 11:58:56 | 只看该作者
    希望谁有关于修改脚本的学习笔记能共享一下,
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    11#
     楼主| 发表于 2007-6-12 13:37:08 | 只看该作者
    不知道有没有这方面的学习资料,谁有共享一个。谢谢
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    10#
     楼主| 发表于 2007-6-12 12:50:42 | 只看该作者
    谢谢楼上的,我按照你说的可以了,我不知道then在下一行就报错。
    学习了
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    奋斗
    2022-7-13 15:22
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    9#
    发表于 2007-6-12 12:10:02 | 只看该作者
    你这里then 怎么换行了?
    给你个例子;


    res = Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("userName").Check ( CheckPoint("userName") )

    If res = False Then

           ExitTest

    End If
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    8#
     楼主| 发表于 2007-6-12 11:49:19 | 只看该作者
    没有好的截屏软件,不好意思
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    7#
     楼主| 发表于 2007-6-12 11:42:06 | 只看该作者
    哦,好的

    本帖子中包含更多资源

    您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

    x
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    奋斗
    2022-7-13 15:22
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    6#
    发表于 2007-6-12 11:37:18 | 只看该作者
    你把出错的信息贴上来吧。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    5#
     楼主| 发表于 2007-6-12 11:26:37 | 只看该作者
    我设置的是文本检查点,在网页的第一行“51Testing提供QTP课程”
    不过我用你给我的,我加上去,怎么还是通过不了???
    我不加这个,我通过了,检查点也没有问题,我改检查点里面的文本,也能提示我。也能测试出错误。
    可是加上就不能编译了。
    谢谢楼上,麻烦帮看看,是不是我的检查点哪需要设置????

    [ 本帖最后由 youxipp 于 2007-6-12 11:38 编辑 ]
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

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

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

    GMT+8, 2024-9-25 02:48 , Processed in 0.096568 second(s), 29 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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