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

#y!vy"@b`|+q{x-UE0'timeCount方法返回一个字符串,字符串的内容是统计各个阶段发生的时间
z5ib;Y
BgcQ0'可以使用各种方法查看result的内容
c%JT*q6_,VHF0SITEURL = "www.baidu.com"'设置要进行访问的URL
qV3CM5E{x!D&h0result = timeCount(SITEURL)'返回运行结果51Testing软件测试网X/rH4yS#J
print result '输出运行结果,在loadrunner中可以将该行注释掉 
+e;UB{){8l
~0'方法定义开始51Testing软件测试网P3[,a)OC ^k*Lq
Pu blic Fun ction timeCount(url)51Testing软件测试网`#G"fV5fV
Se t dom = Crea teObje ct("InternetExplorer.Application")  '创建一个IE的对象
tJFM,R+g%} Ej-l0dom.Navigate(url)  '打开指定的URL51Testing软件测试网:{:ZWo8fm
time_start = No w()'获取统计开始时的时间
Lc2CLp3Z
s$h0timer_start = ti mer()'获取当前时间的毫秒数
,pi`1zgd:TL e0'a = dom.ReadyState'获取当前IE的状态值,将使用该状态值判断IE的当前状态51Testing软件测试网\kxE@
dom.visible = Tr ue '设置IE可见
M%x2b)gP9cb0fc0Whi le dom.busy or (dom.readyState<>4)'当IE处于BUSY状态或者加载未完成时(readystate不等于4)时,根据IE的状态统计时间,每毫秒统计一次
c
[e!Ud4y,N0wait 0,1 '时间间隔1毫秒,如果时间间隔比较长的话,很有可能会取不到状态值51Testing软件测试网9kV7L(z'Q([Gw
Se lect Case dom.readystate '判断dom.readystate的值
d6Zf6|SAk,p0
Hy`2D"U)R"R0Ca se 0 'IE未初始化,其实在该方法,readystate=0无意义,因为循环至少是从1开始的.
0N`EM8EZz
V0time0 = No w()
uh8MQl)f0timer0 = ti mer()
#W5DO4]'a!y/A+?051Testing软件测试网L_ y h2AU/kW.qI5d
Ca se 1 '"正在发送请求"
"tT p7T,e7{j:v}-U0time1 = No w()
Z2l5\d.P!gv1~0timer1 = ti mer()
J7Q(PNy7^PS(n-Y!K051Testing软件测试网4~#G2UPk0[r'^6}Z }
Case 2 '"请求已经发送完成"
en5ZS$} D0time2 = No w()51Testing软件测试网ux3mtZ9vxc
timer2 = tim er()51Testing软件测试网5S |8qD&Ki
51Testing软件测试网_VbaI
Ca se 3 '"可以接收到部分响应数据"
qyM.J,\#x0time3 = No w()51Testing软件测试网-N3T OM6y5gP#B ^
timer3 = tim er()51Testing软件测试网8r!L O3@m0O|

%F6~(m!o5uFM;py0
"I_ l,GL2t"[A[AT0
)U{]0M9lx0End se lect
z7@[` gG0we nd
{vSupEw0time_end = No w()51Testing软件测试网 O Ev(Qdwd
timer_end = ti mer()'统计结束时间
Ewy#Y1G"{!Q,Rh0'MsgBox "开始时间是：" & time1 & "；结束时间是"&time251Testing软件测试网F+p B;r8E(zinf
51Testing软件测试网C/w3B.~4p$X
timeCount = "完成IE的初始化并发送请求"&(timer1-timer_start)&"秒;"_51Testing软件测试网ZsC]#Nu,Fqh
&"发送完成并接受服务端部分响应数据："&(timer3-timer1)&"秒;"_
%ofpx/M6i!I0&"100%接收并完成HTML内容解析："&(timer_end-timer3)&"秒;"_51Testing软件测试网:J3M,xgp,H4s`.r
&"总共花费:"&(timer_end-timer_start)&"秒;"51Testing软件测试网2Si7mQ|0|
En d Fun ction