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

lsekfe

好东西支持下

y602015953

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

复制代码

这样修改以后就不会报错日志生成失败了，原因是先关闭了浏览器，导致log保存失败。

灰常感谢云大大的指教。。。

小白cool

东东

wolaizhinidexin

试了一下，发现随着时间的推移，生成的文件很多，如果只看是那个请求导致了时间较长，个人觉得也可以用webscarab，但是它的信息显示没有httpwatch这样详细和美观。
感谢云层的这个思想，很有抛开云雾的感觉。

PrefTest

回复

零测试

楼主哦。有时候不要老规矩行不行。有时候赶时间，没空回帖。
要实在点嘛！共享知识，不要求回报！

goodhal

谢谢！

默心

学习了

默心

学习了

grace.tao

一定要拜读的！

Juventus1984

很有新意啊，看下先

msnshow

看不太明白

鹭岛

看看再说~~~

zhoucc

看看

lxk123

up

mongnet

分析分析

lanbingkafei

回复 1# 云层


   

dcdh123

Thanks

naroon

瞄瞄。。

naroon

附件载不了，楼主~~