![使用loadrunner调用HTTPWatch实现自动化探针性能前端分析 使用loadrunner调用HTTPWatch实现自动化探针性能前端分析](https://i-blog.csdnimg.cn/blog_migrate/a4c26d1e5885305701be709a3d33442f.gif)
![使用loadrunner调用HTTPWatch实现自动化探针性能前端分析 使用loadrunner调用HTTPWatch实现自动化探针性能前端分析](https://i-blog.csdnimg.cn/blog_migrate/a4c26d1e5885305701be709a3d33442f.gif)
![使用loadrunner调用HTTPWatch实现自动化探针性能前端分析 使用loadrunner调用HTTPWatch实现自动化探针性能前端分析](https://i-blog.csdnimg.cn/blog_migrate/a4c26d1e5885305701be709a3d33442f.gif)
![使用loadrunner调用HTTPWatch实现自动化探针性能前端分析 使用loadrunner调用HTTPWatch实现自动化探针性能前端分析](https://i-blog.csdnimg.cn/blog_migrate/a4c26d1e5885305701be709a3d33442f.gif)
![使用loadrunner调用HTTPWatch实现自动化探针性能前端分析 使用loadrunner调用HTTPWatch实现自动化探针性能前端分析](https://i-blog.csdnimg.cn/blog_migrate/a4c26d1e5885305701be709a3d33442f.gif)
代码:
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