lsekfe 发表于 2011-11-15 16:57:35

好东西支持下

y602015953 发表于 2011-11-15 17:10:21

本帖最后由 y602015953 于 2011-11-15 19:19 编辑


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
msgbox "页面加载完成"
' Stop recording HTTP
plugin.Stop
' Close down IE
msgbox filename
plugin.Log.Save("f:\\"&filename&".hwl")
msgbox "保存日志完毕"
plugin.CloseBrowser
set plugin=nothing
set control=nothing



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

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

小白cool 发表于 2011-11-15 17:22:47

东东

wolaizhinidexin 发表于 2011-11-15 17:36:22

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

PrefTest 发表于 2011-11-15 20:29:16

回复

零测试 发表于 2011-11-16 08:48:04

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

goodhal 发表于 2011-11-16 09:01:41

谢谢！

默心 发表于 2011-11-16 14:42:56

学习了

默心 发表于 2011-11-16 14:43:02

学习了

grace.tao 发表于 2011-11-16 16:12:53

一定要拜读的！:victory:

Juventus1984 发表于 2011-11-16 16:23:32

很有新意啊，看下先

msnshow 发表于 2011-11-16 23:08:31

看不太明白

鹭岛 发表于 2011-11-16 23:23:07

看看再说~~~

zhoucc 发表于 2011-11-17 15:18:43

看看

lxk123 发表于 2011-11-17 15:47:49

up

mongnet 发表于 2011-11-17 17:29:21

分析分析

lanbingkafei 发表于 2011-11-17 18:13:21

回复 1# 云层


    ;P

dcdh123 发表于 2011-11-18 10:01:32

Thanks:)

naroon 发表于 2011-11-18 10:04:06

瞄瞄。。

naroon 发表于 2011-11-18 10:16:14

附件载不了，楼主~~
页: 1 [2] 3 4 5 6 7 8 9 10 11
查看完整版本: 使用HTTPWatch实现自动化探针性能前端分析