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

请大家帮忙看看，这样的统计行的通么？有好的建议尽管提噢～～

如果弯弯

回复 2# 黑羽祭


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

黑羽祭

回复 1# 如果弯弯


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

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