qtp监听请求响应时间，服务器ip，…

qtp结合httpwatch监听请求响应时间，服务器ip，返回状态码，从而对出错的接口进行简单分析

Dim URL
Dim linkStatue 
URL="www.baidu.com"
Set control=CreateObject("HttpWatch.Controller")
Set plugin=control.IE.New()
plugin.Log.EnableFilter(false)
plugin.Clear()
plugin.Record()
plugin.GotoURL(URL)
wait(2)
Browser("百度一下，你就知道").Page("百度一下，你就知道").Link("新 闻").Click

ip = plugin.log.Entries.Item(0).ServerIP                                                  ''获取iP地址
code = plugin.Log.Entries.Item(0).StatusCode''获取状态码
linktime = plugin.log.Entries.Summary.Time''获取相应时间

If 10>linktime Then
Reporter.ReportEvent micPass,"响应时间爱","少于10秒："&linktime
else
Reporter.ReportEvent micFail,"响应时间","大于10秒："&linktime

End If
If 400 > code Then
Reporter.ReportEvent micPass, "状态码："&code
else
Reporter.ReportEvent micFail, "状态码："&code
ExitAction
End If

'停止记录Http底层数据
plugin.Stop
'获取返回的状态码

''关闭浏览器窗口
plugin.CloseBrowser()
''回收对象
Set control=nothing
Set plugin=nothing
Set sumary=nothing