使用QTP进行WEB页面性能测试.pdfVIP

TIB 自动化测试工作室 /testware/ QTP 是功能测试工具，但是也可以用于WEB 页面的性能测试，下面脚本利用了IE 的COM 接口和DOM 获取ReadyState 的方式来测 试WEB 页面加载的性能： SiteURL = /testing_is_believing Set the URL to visit result = timeCount (SITEURL) returns running results MsgBox result output to run As a result, the line can be commented out loadrunner Public Function timeCount (url) Set dom = CreateObject ( InternetExplorer.Application) Create an IE object dom.Navigate (url) open the specified URL time_start = Now () to obtain statistics at the beginning of time timer_start = timer () Get the current time in milliseconds a = dom.ReadyState Get the current state of the value of IE will be used to determine the value of the state of the current state of the IE dom.visible = True Set IE can be seen While dom.busy or (dom.readyState 4) When the IE is in BUSY status or load does not complete (readystate is not equal to 4), depending on the state of IE statistical time, once every millisecond Statistics WScript.Sleep 1 time interval 1 ms, if the relatively long time interval, then is likely to take less than a state value Wait 0, 1 Select Case dom.readystate to determine the value of dom.readystate Case 0 IE is not initialized, in fact, the method, readystate = 0 meaningless, because the cycle is at least a start. time0 = Now () timer0 = timer () Case 1 is sending request time1 = Now () timer1 = timer () Case 2 request has been sent to complete time2 = Now () timer2 = timer () Case 3 can receive the part of the response data, time3 = Now () timer3 = timer () Case 4 Page is loaded time4 = Now () timer4 = timer () End select wend time_end = Now () Statistical End Time MsgBox Start time is: time1 ; the end of time is time2 timeCount = Statistics Start Time: start_time vbcrlf time0: time0 vbcrlf time1: time1 vbcrlf time2: _ time2 vbcrlf time3: time3 vbcrlf time4: time4 vbcrlf to complete the initi