|
8#
楼主 |
发表于 2009-6-5 10:20:00
|
只看该作者
从网上找到这个资料:
'在loadrunner脚本中,把要访问的url做参数化,变量名为SITEURL
'timeCount方法返回一个字符串,字符串的内容是统计各个阶段发生的时间
'可以使用各种方法查看result的内容
SITEURL = "www.baidu.com"'设置要进行访问的URL
result = timeCount(SITEURL)'返回运行结果
MsgBox result '输出运行结果,在loadrunner中可以将该行注释掉
'方法定义开始
Public Function timeCount(url)
Set dom = CreateObject("InternetExplorer.Application") '创建一个IE的对象
dom.Navigate(url) '打开指定的URL
time_start = Now()'获取统计开始时的时间
timer_start = timer()'获取当前时间的毫秒数
'a = dom.ReadyState'获取当前IE的状态值,将使用该状态值判断IE的当前状态
dom.visible = True '设置IE可见
While dom.busy or (dom.readyState<>4)'当IE处于BUSY状态或者加载未完成时(readystate不等于4)时,根据IE的状态统计时间,每毫秒统计一次
wscript.sleep 1 '时间间隔1毫秒,如果时间间隔比较长的话,很有可能会取不到状态值
Select Case dom.readystate '判断dom.readystate的值
Case 0 'IE未初始化,其实在该方法,readystate=0无意义,因为循环至少是从1开始的.
time0 = Now()
timer0 = timer()
Case 1 '"正在发送请求"
time1 = Now()
timer1 = timer()
Case 2 '"请求已经发送完成"
time2 = Now()
timer2 = timer()
Case 3 '"可以接收到部分响应数据"
time3 = Now()
timer3 = timer()
Case 4 '"页面加载完成"
time4 = Now()
timer4 = timer()
End select
wend
time_end = Now() '统计结束时间
'MsgBox "开始时间是:" & time1 & ";结束时间是"&time2
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)&"秒"
End Function
但回放时提示缺少对象wscript,请高手指点一下。 |
|