使用HTTPWatch实现自动化探针性能前端分析

云层

感觉有些东西不太方便在《性能测试进阶指南2》书上写清楚，所以这里还是单独抽出来写一个案例文档吧，在书上可能要考虑官方用语所以不一定那么简洁方便。

这里主要介绍了一下如何使用HTTPWatch的AOM自动化对象模型进行脚本开发，进一步在LR脚本中调用这个自动化模型形成类似Webpage breakdown功能的效果，相对来说更加清晰明了。

AOM调用代码：

1. 
   
2. 
   
3. Dim filename
   
4. filename=FormatDateTime(now,2)&FormatDateTime(now,3)
   
5. filename=replace(filename,":","")
   
6. filename=replace(filename,"-","")
   
7. filename=replace(filename,"/","")
   
8. Dim control
   
9. Set control = CreateObject("HttpWatch.Controller")
   
10. Dim plugin
    
11. Set plugin = control.IE.New
    
12. plugin.Record
    
13. plugin.GotoUrl("http://www.baidu.com")
    
14. control.Wait plugin, -1
    
15. 
    
16. ' Stop recording HTTP
    
17. plugin.Stop
    
18. 'msgbox filename
    
19. plugin.Log.Save("f:\\"&filename&".hwl")
    
20. ' Close down IE
    
21. plugin.CloseBrowser
    
22. 
    
23. set plugin=nothing
    
24. set control=nothing
    

复制代码

代码根据#25楼朋友的帮忙调试略作调整，避免保存文件的错误

这里顺便感谢一下在某期51testing杂志上投稿编写HTTPWatch自动化对象模型的大师，这里有点借花献佛了。

附件老规矩：

游客，如果您要查看本帖隐藏内容请回复

yao3000v

rt

sknife

看下，感谢

marysnow

支持一下。

不知道第二本中，有没有介绍一下web项目的实例的性能瓶颈分析，介绍LR图表及结合系统资源\数据库来进行查找定位。（要是介绍一下常用的辅助监控的工具就更好了。）

runny15

好东西要顶

wangyemami

夏日摸摸茶

看看

yzj014

拜读

y602015953

回复可见。。。。

thirfing

拜读

软件真的要测试

up

zhaoprive

回复 1# 云层

wxy1208

我要看，顶一下

cii566

可以学习学习，谢谢。

Sayid

感谢，拜读。。。

wolaizhinidexin

看看

PeterKang

拜读一下

p42

xuexiing

p42

xuexiing

y602015953

按照云大大的说明。测试了一下。只是成功了几次之后就总是报错。

做了弹框提示后发现执行到plugin.Log.Save("f:\\"&filename&".hwl")这里报的错。

错误：远程服务器不存在或不可用：'Log'

请问一下是什么原因呢？