Capturing web page load times from VBA

  • Thread starter Thread starter Dirk
  • Start date Start date
D

Dirk

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/searchList.do?key1=xyz&key2=1234&ID1=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.
 
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/searchList.do?key1=xyz&key2=1234&ID1=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.
Click to expand...

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
 
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/searchList.do?key1=xyz&key2=1234&ID1=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.
Click to expand...

Hi Dirk...Tried posting this earlier, guess it didn't get through, so here goes again. Hope this gives you what you want...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
 
Ron,

I got one of the posts. Thanks for the help. This will get me started. The next step will be to try and get the breakdown of the time for each section of the web page.
 
Back
Top