WEB-QTP随想录—老婆的生日

注：原文最早是发表在www.automationqa.com上面的，后来因为网站被黑而文章内容消失了，希望csdn别被黑了。

关于转载：本文为原创文章，欢迎转载，但转载需要标注出处以及保证内容的完整性，请理解写作的寂莫和苦处。

关于版权：本文不得应用于以赢利为目的的任何场景，否则本人保留相应的权利。

今天是老婆的生日，抽上班时间的间隙，给老婆买了百合和玖瑰，外加红酒和苹果，然后抽时间把家(租来的)布置了一下，本来想给她惊喜的，结果却把她吓坏了，她以为小偷进家了。呵呵。。

废话就不说了，让我们开始今天的学习吧。打开你的QTP了吗？我们还是来正经的吧。啊，你那神奇的录制，总让人惊喜又让人常常有哀怨的叹息。

点击Record，看见没有，QTP抛出了一个这样的页面

这里有一个Note是需要引起注意的。QTP只支持在Microsoft Internet Explorer下的录制，但它支持在其支持的浏览器回放。也就是说，录制必需是在IE下。

那么QTP支持那些浏览器的回放呢？答请参见下图。

如果你想了解更多关于QTP的使用环境和支持其它软件的情况，请参见安装包“X:\QuickTest\MSI\help”中的QTP_PAM.pdf文件。

也许下面是一段废话，就像我给老婆说，我骗你是小狗一样，但我仍然要说一说。

Record and run test on any open browser：录制和运行在任何浏览器上，好像跟她的警告有一点冲突，她所说的任何实际上仍然是IE。IE相同版本又不可能同时装一个电脑上，属于废话系列。

Open the following address when a record or run session begins：指定网站和浏览器，QTP将会自动打开浏览器并链接到你指定的地址。说说这两种模式的使用感想吧。


如果你选择这种模式，而恰好你的网页此时并没有打开，那么可能你就需要从启动IE程序开始，而此时如果你没有外网权限，IE7.0下可能会加载一个默认的error页。这个网页非常的讨厌，就像今晚讨厌的我忘了买开红酒的武器一下，浪漫的感觉一下就没有了。更糟糕的是如果你有一些计划外的动作的，它一样的会记录下来，所以在使用此种模式时，最好假定你已导航到要测试网站的主页了，并且需要有一个指导录制的计划。


后者，假如你的脚本想回放在FireFox下或者URL地址老在变的话，那你就得进入QTP改变运行配置，老配置是一件很烦人的事情，而如果你有多个脚本文件的话，那更是一种痛苦的事情。我曾经在网上问过，也见过有人问过如何设置QTP运行在其它浏览器或者URL地址发生变化后的回放。令人遗憾的是，不知是这个问题太简单还是大家都不知道或者其它原因，正确回答的寥寥无人。其实你只需要点击Automation菜单-》Record and settings，重新设置URL或者选择浏览器即可。


这两个调皮的而不得不选择的媳妇，到底那个好呢，你自己选择吧。不过我的习惯是选择第一个，因为在外部修改浏览器可比在QTP软件内部方便得多。


如果你选择第一个，那么请在你的QTP里面敲入下面的代码吧。


''启动IE

Call UrlIE(your_test_url)

Public Function UrlIE(sUrl)

                     systemutil.Run "iexplore.exe",sUrl

End Function


是否说明一下这个函数呢？我忧虑了很久，但我觉得你还是将光标移到systemutil.Run，然后点击F1一下，QTP本身的说明文档也许更恰当。另外，如果你想早日找到QTP桃花源记之路，请记住善用F1。


老婆说我像个老妈子一样，废话超多，写稿子时还跟她说点废话，时不时的还指挥打两把地主，她说你怎么还没有录制一个脚本呢。好吧，为了今晚不再做小狗，我们开始第一个QTP的Web录制事件吧。


录制事件主题名：HelloWord_BaiDu


录制事件的步骤：启动IE-》导航到BaiDu-》输入HelloWord_BaiDu-》点击百度一下-》关闭


实际步骤：调用UrlIE(sUrl)函数-》打开BaiDu-》点击Record-》切换页面到网页-》输入HelloWord_BaiDu-》点击百度一下-》关闭


录制生成的脚本：

Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").Set "HelloWord_BaiDu"

Browser("百度一下，你就知道").Page("百度一下，你就知道").WebButton("百度一下").Click

Browser("百度一下，你就知道").Close()

再结合我们上面所说的东东，一个完整的HelloWord_BaiDu事件的微略整理脚本应该如下所示：

'定义test_url变量

Dim test_url

test_url="http://www.baidu.com"



'删除历史Res

Call delRes()

'启动IE

Call UrlIE(test_url)



'##   HelloWord_BaiDu生成的代码

Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").Set "HelloWord_BaiDu"

Browser("百度一下，你就知道").Page("百度一下，你就知道").WebButton("百度一下").Click

Browser("百度一下，你就知道").Close()

'## End   HelloWord_BaiDu生成的代码



''启动IE

Public Function UrlIE(sUrl)

                     systemutil.Run "iexplore.exe",sUrl

End Function

'删除历史Res

Function delRes()

                     On error resume next

                     Set fs = CreateObject("Scripting.FileSystemObject")

                     fs.DeleteFolder environment("TestDir")&"\Res*",True

                     wait(1)

                     set fs=nothing

End Function


你现在可以Run一下，看一看跑后的结果。也许您现在正在感叹，世界是如此的美好，HP是如此的贴心，完美的动作，QTP诠释得是如此干练。呵呵，这没什么，当初我也曾如此的天真烂漫过。实际上QTP，在实现这一过程中，处理了很多信息，虽然此处只有这么短短几行代码，可代码背后隐藏着的那些神仙姐姐们，如果你不去触摸她们那美丽的面纱的话，七仙女就永驻天宫了。

文青山
2011-3-23

 

返回目录： http://blog.csdn.net/womengdoushizhongguo/article/details/7769936