如果弯弯 发表于 2014-4-15 13:24:54

web提交信息的响应时间可以这样统计么

代码如下:
......   '登录代码
Brower("xx集群管理平台登录").Page("xx集群管理平台").Frame("Frame").Link("新增任务").Click
......    '各种参数输入代码
Brower("xx集群管理平台登录").Page("xx集群管理平台").Frame("Frame").WebEdit("宽").Set "1280"
Brower("xx集群管理平台登录").Page("xx集群管理平台").Frame("Frame").WebEdit("高").Set "740"
wait(1)
loadbegin = time
Brower("xx集群管理平台登录").Page("xx集群管理平台").Frame("Frame").Link("确定").Click
'oIE是当前的IE对象
while oIE.Busy:Wend
    loadend = time
    loadtime = datediff("s",loadbegin,loadend)
    If loadtime > 3 then
      reporter.ReportEvent micFail,"新增任务","响应耗时"&loadtime&"秒,超过3秒"
      msgbox "响应耗时"&loadtime&"秒,超过3秒"
    else
      reporter.ReportEvent micPass,"新增任务","响应耗时"&loadtime&"秒"
    End If

请大家帮忙看看,这样的统计行的通么?有好的建议尽管提噢~~

黑羽祭 发表于 2014-4-19 09:34:15

回复 1# 如果弯弯


    不知道你们的页面是怎么样的,不过有一点
while oIE.Busy:Wend 并不一定就是页面 “全部” 加载完的情况
有时候页面是加载完了,页面内部的某个数据控件还未显示。
当然了如果你们的页面你的写法可行也是可以。

不过获取这个响应时间的问题,IE里装个HTTPwatch就很直观的看到加载的时间和每个url的加载时间了,更直观简单。

如果弯弯 发表于 2014-4-30 16:31:57

回复 2# 黑羽祭


我们的页面是javascript脚本的,我也不大懂,页面有个提交任务的按钮,会弹出参数表单,参数设置完成后就可以提交任务。有时候会出现点击这个按钮反应很慢,弹不出表单控件,5-8分钟才响应完成。
我收藏了版本的博客呢,分享的东西挺好的
页: [1]
查看完整版本: web提交信息的响应时间可以这样统计么