使用loadrunner调用HTTPWatch实现…

代码：

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