人的差别在于业余时间,而一个人的命运决定于晚上8点到10点之间。 北京安全测试精英QQ群:164265622 北京白盒测试精英QQ群:164265999 北京性能测试精英QQ群:164266156 北京自动化测试精英群:212723528 北京软件测试精英QQ群:86920845

学习HTTPWATCH的心得 (转)

上一篇 / 下一篇  2012-02-02 10:08:44 / 个人分类:软件测试基础

原文:http://hclovebb1314.blog.163.com/blog/static/19667911620121294918560/

这两天在Q哥的带领下学习了HTTPWATCH,感谢Q哥还有云层老师的帖子。

废话不多说,入正题,安装。

傻瓜式的安装,废话不多说。

安装完毕后,我们需要创建一个httpwatch.vbs的脚本,调用httpwatch这个工具滴。

脚本内容如下Dim filename
filename=FormatDateTime(now,2)&FormatDateTime(now,3)
filename=replace(filename,":","")
filename=replace(filename,"-","")
filename=replace(filename,"/","")
Dim control
Set control = CreateObject("HttpWatch.Controller")
Dim plugin
Set plugin = control.IE.New
plugin.Record
plugin.GotoUrl("http://www.baidu.com")
control.Wait plugin,-1
'Stop recording HTTP
plugin.Stop
'Close down IE
plugin.CloseBrowser
'msgbox filename
plugin.Log.Save("f://"&filename&".hwl")
set plugin=nothing
set control=nothing

保存完毕后双击打开,看看是否正确。会有一个C:\命令的窗口,自动弹出www.baidu.com。如果一切OK那恭喜你,你成功了,接着我们要想如何在LR中调用这个脚本呢?

在LR中新建一个脚本,脚本内容:


Action()
{
   int sysst;
   lr_think_time(30);//可以修改时间再让他长一点,这样生成的图表会少点,不然你等着F盘里面全是图片吧呵呵呵。
   sysst=system("f:\\httpwatch.vbs");
   //lr_output_message("%d",sysst);//如果运行时,返回结果是0那么成功。可以
   return 0;
}

运行下脚本,你会发现跟刚才打击打开httpwatch.vbs一样的效果。那么我们的调用算是完成了。

现在考虑如何在场景中调用:方法有2个

第一:把上面的代码复制在LR的脚本中,直接在运行时调用

第二:把上面的代码另存为一个LR脚本,在场景中的group中添加,使其与LR的脚本一起运行。

问题:Set plugin = control.IE.New,是说我们使用的时候他会一只以新建的方式打开IE页面,知识浅薄的我不会修改,如何使其可以以刷新或者以新建选项卡的方式打开呢?


TAG:

 

评分:0

我来说两句

Open Toolbar