View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
ron ron is offline
external usenet poster
 
Posts: 118
Default Capturing web page load times from VBA

On Friday, December 27, 2013 8:29:32 AM UTC-7, Dirk wrote:
I have a couple of internal web applications that I would like to track their load times for certain web pages that they display. Most of the URLs are variations of the following.



1) https://mydomain.com/folder1/actions...1=119&ID2=AB01



2) https://mydomain.com/folder1/page1.jsp



When the page is requested there are a couple of servers that are contacted to get some information from and I would like to capture as much of the task durations as possible.



Is this something that could be done VBA. Any help would be greatly appreciated.


How about this...ron

Sub test_1()
' open IE, navigate to the website of interest and loop until fully loaded
Set IE = CreateObject("InternetExplorer.Application")
my_url = "https://mydomain.com/folder1/actions/searchList.do?key1=xyz&key2=1234&ID1=119&ID2=AB01"
start_time = Timer

With IE
.Visible = True
.navigate my_url
.Top = 50
.Left = 530
.Height = 400
.Width = 400
End With

Do Until Not IE.Busy And IE.ReadyState = 4
DoEvents
Loop

elapsed_time = (Timer - start_time)
MsgBox ("The time required to load the webpage was " & Format(elapsed_time, "0.0000") & " seconds.")
End Sub