使用HTTPWatch实现自动化探针性能前端分析
本帖最后由 云层 于 2011-11-23 12:58 编辑感觉有些东西不太方便在《性能测试进阶指南2》书上写清楚,所以这里还是单独抽出来写一个案例文档吧,在书上可能要考虑官方用语所以不一定那么简洁方便。
这里主要介绍了一下如何使用HTTPWatch的AOM自动化对象模型进行脚本开发,进一步在LR脚本中调用这个自动化模型形成类似Webpage breakdown功能的效果,相对来说更加清晰明了。
AOM调用代码:
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
'msgbox filename
plugin.Log.Save("f:\\"&filename&".hwl")
' Close down IE
plugin.CloseBrowser
set plugin=nothing
set control=nothing
代码根据#25楼朋友的帮忙调试略作调整,避免保存文件的错误
这里顺便感谢一下在某期51testing杂志上投稿编写HTTPWatch自动化对象模型的大师,这里有点借花献佛了。
附件老规矩:**** Hidden Message ***** rt 看下,感谢 支持一下。
不知道第二本中,有没有介绍一下web项目的实例的性能瓶颈分析,介绍LR图表及结合系统资源\数据库来进行查找定位。(要是介绍一下常用的辅助监控的工具就更好了。) 好东西要顶 :victory: 看看 拜读 回复可见。。。。 拜读 up 回复 1# 云层 我要看,顶一下 可以学习学习,谢谢。 感谢,拜读。。。 看看 拜读一下 xuexiing xuexiing
按照云大大的说明。测试了一下。只是成功了几次之后就总是报错。
做了弹框提示后发现执行到plugin.Log.Save("f:\\"&filename&".hwl")这里报的错。
错误:远程服务器不存在或不可用:'Log'
请问一下是什么原因呢?