'在loadrunner脚本中,把要访问的url做参数化,变量名为SITEURL51Testing软件测试网'y p/z+wF3` 'timeCount方法返回一个字符串,字符串的内容是统计各个阶段发生的时间 N F7R0xS&K`A0 '可以使用各种方法查看result的内容51Testing软件测试网)n$Z)@)NMNA SITEURL ="www.sina.com.cn"'设置要进行访问的URL "KqH|.])JqRv-t�C0result = timeCount(SITEURL)'返回运行结果51Testing软件测试网0B9w ^*a T?(JF s MsgBox result '输出运行结果,在loadrunner中可以将该行注释掉 v2?[PE*_0 sw%| l b0'方法定义开始51Testing软件测试网5K/z�X!qV'I(? PublicFunction timeCount(url)51Testing软件测试网s*z?3J WB Set dom =CreateObject("InternetExplorer.Application") '创建一个IE的对象51Testing软件测试网+JfJl/Z'@'D@5` dom.Navigate(url) '打开指定的URL51Testing软件测试网s~?WE9l$E7`!S"X time_start =Now()'获取统计开始时的时间51Testing软件测试网pJ"uQG timer_start =timer()'获取当前时间的毫秒数51Testing软件测试网V4y gF#c7An C1e p 'a = dom.ReadyState'获取当前IE的状态值,将使用该状态值判断IE的当前状态51Testing软件测试网S,B*I.r6S&XR `H/h dom.visible =True'设置IE可见51Testing软件测试网9q"H aQ6@I7jU While dom.busy or (dom.readyState<>4)'当IE处于BUSY状态或者加载未完成时(readystate不等于4)时,根据IE的状态统计时间,每毫秒统计一次51Testing软件测试网}G c&cd wscrīpt.sleep 1'时间间隔1毫秒,如果时间间隔比较长的话,很有可能会取不到状态值51Testing软件测试网mc4nNW0o|2e SelectCase dom.readystate '判断dom.readystate的值 iF mor#}051Testing软件测试网`"tg8p6O5y/S(d1H Case0'IE未初始化,其实在该方法,readystate=0无意义,因为循环至少是从1开始的.51Testing软件测试网b6xY4L#`1EGa time0 =Now()51Testing软件测试网G L![7p"x3Q9z timer0 =timer() ;}r!y[]1Do9w0 Z N(m1Z)o0Case1'"正在发送请求"51Testing软件测试网J�ej{-z ~'w time1 =Now() s{j#G{0 timer1 =timer()51Testing软件测试网Qy0B7{J7/3xTH 51Testing软件测试网lNr.}8Qgh iV Case2'"请求已经发送完成"51Testing软件测试网Tf k"JUi time2 =Now()51Testing软件测试网2Sc0nmXo timer2 =timer() 7v*E'w5u6J;G0 N0A ^w3P-W|0Case3'"可以接收到部分响应数据"51Testing软件测试网 W,N?+^h#Jj*k time3 =Now()51Testing软件测试网X.h'p8iGw-} timer3 =timer()51Testing软件测试网? _!fz-R)^ q 51Testing软件测试网ZT$d*QA Case4'"页面加载完成"51Testing软件测试网5{6sE*DA time4 =Now()51Testing软件测试网)`*gJ I8ww,tQ@S;k timer4 =timer()51Testing软件测试网?#@Qh*af%wQ~9Uq7| 4{T+fV*sXE i w0Endselect Q;y ]%yEP0wend 'H},m#H Ad0 time_end =Now() '统计结束时间51Testing软件测试网l]4Rs3E5Mq-x 'MsgBox "开始时间是:" & time1 & ";结束时间是"&time2 x:M}%y`Lp0 ;CN,d hr0 timeCount ="统计开始时间:"&start_time&vbcrlf&"time0:"&time0&vbcrlf&"time1:"&time1&vbcrlf&"time2:"&time2&vbcrlf&"time3:"&time3&vbcrlf&"time4:"&time4&vbcrlf&"完成IE的初始化并发送请求:"&(timer1-timer_start)&"秒"&vbcrlf&"发送完成并接受服务端部分响应数据:"&(timer3-timer1)&"秒"&vbcrlf&"100%接收并完成HTML内容解析:"&(timer4-timer3)&"秒"&vbcrlf&"总共花费:"&(timer4-timer_start)&"秒"51Testing软件测试网,tW4v1slF1fr End Function w/a PP$T0 YSyJPv,Q0
V c-B'By r]0 代码中的SITEURL就是我们要进行测试的页面.51Testing软件测试网:KX:/!~]:zb]
51Testing软件测试网M!]%GRCu4ROo5}
这段代码虽然不长,但是却花了我整整4个小时的时间。一开始碰到的难题就是不知道VBS如何去调用document方法,在网上查了无数资料,大多 是讲如何在HTML代码中进行调用,很少说到如何使用标准VBS去调用,其实到最后才明白,VBS调用访问document无非就是这样的一句代码:51Testing软件测试网4_�OzK%Wcr h
Set dom =CreateObject("InternetExplorer.Application")