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