使用QTP统计网页加载时间（转）

'timeCount方法返回一个字符串,字符串的内容是统计各个阶段发生的时间
h]2isC]]1z0'可以使用各种方法查看result的内容
4Yi(Dv\-gw#n7N0SITEURL = "www.baidu.com"'设置要进行访问的URL51Testing软件测试网0nhyS Z8kCz
result = timeCount(SITEURL)'返回运行结果51Testing软件测试网7Xv%A8Z"gvp
print result '输出运行结果,在loadrunner中可以将该行注释掉 
/l0MDE`d-F ?'j g0'方法定义开始51Testing软件测试网9bqv'SpKW8c5M
Pu blic Fun ction timeCount(url)51Testing软件测试网+q1k
{M,[l;H8Y
Se t dom = Crea teObje ct("InternetExplorer.Application")  '创建一个IE的对象
;vZkyS6Q Z n U'U0dom.Navigate(url)  '打开指定的URL51Testing软件测试网ZVH2[Q
time_start = No w()'获取统计开始时的时间
t:h(b%A}\4JX0timer_start = ti mer()'获取当前时间的毫秒数51Testing软件测试网9?e)H)Q2K0O+V(m^-ap
'a = dom.ReadyState'获取当前IE的状态值,将使用该状态值判断IE的当前状态51Testing软件测试网{u:{UhY_ ak
dom.visible = Tr ue '设置IE可见51Testing软件测试网3Qx}U(x.i1}HA
Whi le dom.busy or (dom.readyState<>4)'当IE处于BUSY状态或者加载未完成时(readystate不等于4)时,根据IE的状态统计时间,每毫秒统计一次
p Q2g{S4ZC8Y-L0wait 0,1 '时间间隔1毫秒,如果时间间隔比较长的话,很有可能会取不到状态值
C*x6d
gH#f0Se lect Case dom.readystate '判断dom.readystate的值51Testing软件测试网_|O#A @-EL
51Testing软件测试网qz.P1GC\bqU8e_V
Ca se 0 'IE未初始化,其实在该方法,readystate=0无意义,因为循环至少是从1开始的.51Testing软件测试网#Y?,UT x8F N/Y
time0 = No w()
[Y2T+]+u9i/ag/HR0timer0 = ti mer()51Testing软件测试网lEUN+u)kf _
51Testing软件测试网-j"|6v_Y:R-f3B
Ca se 1 '"正在发送请求"
eMBAZ#N
h
E0time1 = No w()51Testing软件测试网2rt
v,iq0Q9|
timer1 = ti mer()51Testing软件测试网+E;~nXC`6f#mK5Z

5}'I&t;gM0Case 2 '"请求已经发送完成"
Ba0a^6O'Sm0time2 = No w()
K%GU&wIH\8u0timer2 = tim er()
|$d8?Bn051Testing软件测试网!f)C
`|6YV
Ca se 3 '"可以接收到部分响应数据"51Testing软件测试网0FX#W]9A4U)TU
time3 = No w()
M0f.F;CV%rb;PI^0timer3 = tim er()51Testing软件测试网%{~
M?
W$}? j ?$l

3C#x^1O M%BW6zi0
qbcRX051Testing软件测试网.ZCb:t!I C1c/}
End se lect51Testing软件测试网j6}K2lin;N&J
we nd51Testing软件测试网{j;r"WB]$[ M#u
time_end = No w()
X3~ L8u.X\n/q(VR0timer_end = ti mer()'统计结束时间
)V
sL3]{^0'MsgBox "开始时间是：" & time1 & "；结束时间是"&time2
p,O@{
u;W051Testing软件测试网 I7{W^^U
timeCount = "完成IE的初始化并发送请求"&(timer1-timer_start)&"秒;"_51Testing软件测试网4@+K yikpe^
&"发送完成并接受服务端部分响应数据："&(timer3-timer1)&"秒;"_51Testing软件测试网~ xhP$f"D A
&"100%接收并完成HTML内容解析："&(timer_end-timer3)&"秒;"_51Testing软件测试网uC$^6MK4@+^Cwo
&"总共花费:"&(timer_end-timer_start)&"秒;"
l8m Lg Cw0P-o)I.PI0En d Fun ction51Testing软件测试网i,c%i@1RS*V