使用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自动化对象模型的大师，这里有点借花献佛了。

附件老规矩：

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

lhacs

看看

2448962239

啊啊啊啊啊啊啊啊啊啊啊啊啊

YY123_51test

cs66092

学习下httpwatch实际应用

ip91745

谢谢分享！

oanbsnd

好,赞叹!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

wangood

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

antmaker

wtf？？？

yjz001

666666666

zhongchen110

学习，谢谢分享！

jane_fun_hua

32个赞~

那个谁要学习

支持一下

mengmengda

路过 顶一下

mengmengda

luguo qiangjie

kbmickey

谢谢1！！！！！！！！！！

paopaotang421

see see

知止内明

运行后，脚本好像不能生成httpwatch

543091200

0.0.0.0.0.0.0.00.0

hunter.hu

谢谢，看看

紫萱1125

学习了