关于qtp编写的小问题

youxipp · 发表于 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

rivermen · 发表于 2007-6-12 10:47:46

你说的"监测点"是不是这个？
Browser("百度一下，你就知道").Page("百度搜索_qtp").Check CheckPoint("百度搜索_qtp_3")

我们通常称为检查点

把它改造一下
if not Browser("百度一下，你就知道").Page("百度搜索_qtp").Check (CheckPoint("百度搜索_qtp_3")) then
......
else
.......
end if

也不知道你所谓的“跳出”是什么意思？
ExitRun，ExitTest
msgbox "监测点报错啦"
reporter.ReportEvent 1,"监测点","监测点报错"

youxipp · 发表于 2007-6-12 11:03:18

对，我是说这个意思，不过我真的不大会，
比如这个检查点报错了
显示“监测点报错啦“
然后不运行qtp了，
这个怎么改？？？
刚才我改了，还是没有通过，所以麻烦ls能编好吗？？？
谢谢了，我就是想学习一下

rivermen · 发表于 2007-6-12 11:15:17

SystemUtil.Run "iexplore.exe","","",""
Browser("百度一下，你就知道").Page("百度一下，你就知道").Sync
Browser("百度一下，你就知道").Navigate "http://www.baidu.com"
Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").Set "qtp"
Browser("百度一下，你就知道").Page("百度一下，你就知道").WebButton("百度一下").Click
if not Browser("百度一下，你就知道").Page("百度搜索_qtp").Check (CheckPoint("百度搜索_qtp_3")) then
msgbox "报错"
ExitTest
end if

Browser("百度一下，你就知道").Page("百度搜索_qtp").Sync
Browser("百度一下，你就知道").Close

如果检查结果为False，弹出对话框"报错"，点击对话框中的“确定”，退出运行。

前提要确保你的检查点的设置正确！！！

前面我提供的那些方法，你可以查看帮助！！！

[ 本帖最后由 rivermen 于 2007-6-12 11:18 编辑 ]

youxipp · 发表于 2007-6-12 11:26:37

我设置的是文本检查点，在网页的第一行“51Testing提供QTP课程”
不过我用你给我的，我加上去，怎么还是通过不了？？？
我不加这个，我通过了，检查点也没有问题，我改检查点里面的文本，也能提示我。也能测试出错误。
可是加上就不能编译了。
谢谢楼上，麻烦帮看看，是不是我的检查点哪需要设置？？？？

[ 本帖最后由 youxipp 于 2007-6-12 11:38 编辑 ]

rivermen · 发表于 2007-6-12 11:37:18

你把出错的信息贴上来吧。

youxipp · 发表于 2007-6-12 11:42:06

哦，好的

youxipp · 发表于 2007-6-12 11:49:19

没有好的截屏软件，不好意思

rivermen · 发表于 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

youxipp · 发表于 2007-6-12 12:50:42

谢谢楼上的，我按照你说的可以了，我不知道then在下一行就报错。
学习了

youxipp · 发表于 2007-6-12 13:37:08

不知道有没有这方面的学习资料，谁有共享一个。谢谢

youxipp · 发表于 2007-6-13 11:58:56

希望谁有关于修改脚本的学习笔记能共享一下，

rivermen · 发表于 2007-6-13 12:03:45

look up ‘help’

linlinselina · 发表于 2007-6-13 13:51:04

招聘高级软件工程师,有朋友的话帮助推荐一下,2年以上测试工作经验.
More detail pls contact selina@mst.com.cn
lin830413@hotmail.com

youxipp · 发表于 2007-6-13 14:52:47

还是实际应用的好，我看help了，里面没有怎么写检查点的，开始我就想
if Browser("百度一下，你就知道").Page("百度搜索_qtp").Check (CheckPoint("百度搜索_qtp_3")) is False then
所以老过不去。

nedved1020 · 发表于 2007-6-13 14:55:17

8醋8醋!!学了不少!!

kindworld · 发表于 2007-6-14 11:27:58

学习学习

reipo · 发表于 2007-6-15 15:56:50

恩,这样学习更有帮助啊.不断学习中.

mickeyang · 发表于 2007-6-17 12:06:24

ding

lanyu · 发表于 2007-6-20 17:46:58

学习了

		自动登录	找回密码
密码			(注-册)加入51Testing

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

相关帖子

本帖子中包含更多资源

ding

站长推荐 /1