原文: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页面,知识浅薄的我不会修改,如何使其可以以刷新或者以新建选项卡的方式打开呢?