VBS统计页面加载时间脚本

下面是一个通过Excel中的url列表来请求页面，统计页面加载时间，然后记录到Excel中的vbs脚本。由于vbs脚本并不是这方面的最好选择，没有研究过httpWatch软件是如何实现统计页面各个元素加载时间的原理，这个脚本统计出来的时间会有偏差，数据仅供参考。以下是代码：

 

1 ' Function GetCellNum()
2 ' On Error Resume Next
3 ' Set Wshell = CreateObject("Wscript.shell")
4 ' Set ExcelApp = CreateObject("Excel.Application")
5 ' ExcelApp.Visible = True
6 ' Set newBook = ExcelApp.Workbooks.Open("C:/Report.xls")
7 ' If Err = 0 Then
8 ' Set excelSheet = ExcelApp.ActiveSheet
9 ' Set rowCount = excelSheet.Rows.Count
10 ' For i = 1 To 65535
11 ' GetCellValue = excelSheet.Cells(i,1)
12 ' excelSheet.Cells(i,2) = "http://test.gasgoo.cn/TradeSearch/search/SearchNormal.aspx?idty=0.2831222238019109&sType=1&key=" & GetCellValue & ""
13 ' excelSheet.save
14   ' MsgBox "现在是第"&i&"行"&vbCrLf&"值为："&GetCellValue
15 ' Wshshell.Popup GetCellValue,2,"获取的Excel单元格的值为：",0+64
16 ' If GetCellValue = "" Then
17 ' rowNum = i - 1
18 ' GetCellNum = rowNum
19 ' MsgBox rowNum
20 ' Exit For
21 ' Else
22   ' do nothing
23 ' End If
24 ' Next
25 ' Else
26   ' do nothing
27 ' End If
28  
29 ' newBook.SaveAs("C:\KeywordUrl.xls")
30 ' newBook.Save
31 ' newBook.Close
32 ' ExcelApp.Quit
33
34 ' Set ExcelApp = Nothing
35 ' Set Wshell = Nothing
36 ' End Function
37
38 ' Call GetCellNum()
39 ' i = GetCellNum()
40 ' MsgBox i
41
42 Function CountPadLoadTime()
43 On Error Resume Next
44 Set Wshell = CreateObject ( " Wscript.shell " )
45 Set IeObject = CreateObject ( " InternetExplorer.Application " )
46 Set ExcelApp = CreateObject ( " Excel.Application " )
47 ExcelApp.Visible = True
48
49 Set newBook = ExcelApp.Workbooks.Open( " C:/KeywordUrl.xls " )
50
51 If Err = 0 Then
52 Set excelSheet = ExcelApp.ActiveSheet
53
54 For i = 1 To 65535
55 GetCellValue = excelSheet.Cells(i, 2 )
56 If GetCellValue <> "" Then
57 ' MsgBox GetCellValue
58 IeObject.Navigate(GetCellValue)
59 time1 = timer ()
60 ' MsgBox time1
61 a = IeObject.ReadyState
62 IeObject.visible = True
63 While IeObject.busy Or ( IeObject.ReadyState <> 4 )
64 wscript.sleep 1
65 wend
66 time2 = timer ()
67 ' MsgBox time2
68
69 costPageLoad = time2 - time1
70
71 ' Wshshell.Popup costPageLoad,2,"页面加载时间为：",0+64
72
73 ' MsgBox "页面加载时间为："& costPageLoad
74
75 excelSheet.Cells(i, 3 ) = costPageload
76 excelSheet.save
77
78 WScript.Sleep 1000
79
80 time1 = 0
81 time2 = 0
82 costPageLoad = 0
83
84
85 Else
86 Exit For
87 End If
88 Next
89 End If
90 newBook.SaveAs( " c:\Results.xls " )
91 newBook.Close
92 excelApp.Quit
93
94 Call RelaeseResource()
95 End Function
96
97
98 Function ReleaseResource()
99 On Error Resume Next
100 Set excelObject = Nothing
101 Set ExcelApp = Nothing
102 Set IeObject = Nothing
103 End Function
104
105 Call CountPadLoadTime()

 

 

 

转载于:https://www.cnblogs.com/shinhwa/archive/2010/03/04/1678211.html