Hm... I think, hundreds - Selenium, QuickTest Professional, SilkTest, Jmeter, LoadRunner, STAF, Watir, Canoo WebTest, and so on...
Is is possible to perform an automated testing without automated testing tools? Sure!
I will show how to perform automated testing of web applications on Internet Explorer (IE) browser.
The main advantage is that these tests can be run on any Windows computer without any additional sofware required.
Let's see steps of sample test:
- Open IE and navigate to google.com:
- Set value of edit box to 'Easy way to automate testing':
- Click 'Google Search' button:
- If a search results page contains a link to this blog (http://motevich.blogspot.com) then click this link:
- Last step is to close the IE window
Details info about InternetExplorer object is located here.
I hope, the source code of my test is clean and understandable. Here it is:
Option Explicit
Dim objIE, objLink
Set objIE = OpenBrowser("http://google.com")
' View the HTML source on Google's page to see the 'q' and 'btnG' values
objIE.Document.All("q").Value = "Easy way to automate testing"
objIE.Document.All("btnG").Click
WaitForLoad(objIE)
' Find a link to http://motevich.blogspot.com
Set objLink = GetLinkByHref(objIE, "motevich.blogspot.com")
' If found, then click it
If (False = IsNull(objLink)) Then
objLink.Click
WaitForLoad(objIE)
End If
' Close IE window
objIE.Quit
WScript.StdOut.Write("Script completed successfully...")
''''''''''''''''''''''''''''''''''''''''''''''
' Functions
' Opens IE and navigates to specified URL
Private Function OpenBrowser(URL)
Dim ie
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate2 URL
WaitForLoad(ie)
Set OpenBrowser = ie
End Function
' Waits for page fully loaded
Private Sub WaitForLoad(ie)
Const WAIT_TIMEOUT = 100
While (ie.Busy) or (ie.ReadyState <> 4) ' READYSTATE_COMPLETE = 4
WScript.Sleep(WAIT_TIMEOUT)
Wend
End Sub
' Gets Link by 'href' attribute.
' Note: If your need, you can write another function - GetLinkByText
Private Function GetLinkByHref(ie, href)
Dim Link
For Each Link In ie.Document.Links
If Instr(LCase(Link.href), LCase(href)) > 0 Then
Set GetLinkByHref = Link
Exit Function
End If
Next
Set GetLinkByHref = Null
End Function
Dim objIE, objLink
Set objIE = OpenBrowser("http://google.com")
' View the HTML source on Google's page to see the 'q' and 'btnG' values
objIE.Document.All("q").Value = "Easy way to automate testing"
objIE.Document.All("btnG").Click
WaitForLoad(objIE)
' Find a link to http://motevich.blogspot.com
Set objLink = GetLinkByHref(objIE, "motevich.blogspot.com")
' If found, then click it
If (False = IsNull(objLink)) Then
objLink.Click
WaitForLoad(objIE)
End If
' Close IE window
objIE.Quit
WScript.StdOut.Write("Script completed successfully...")
''''''''''''''''''''''''''''''''''''''''''''''
' Functions
' Opens IE and navigates to specified URL
Private Function OpenBrowser(URL)
Dim ie
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate2 URL
WaitForLoad(ie)
Set OpenBrowser = ie
End Function
' Waits for page fully loaded
Private Sub WaitForLoad(ie)
Const WAIT_TIMEOUT = 100
While (ie.Busy) or (ie.ReadyState <> 4) ' READYSTATE_COMPLETE = 4
WScript.Sleep(WAIT_TIMEOUT)
Wend
End Sub
' Gets Link by 'href' attribute.
' Note: If your need, you can write another function - GetLinkByText
Private Function GetLinkByHref(ie, href)
Dim Link
For Each Link In ie.Document.Links
If Instr(LCase(Link.href), LCase(href)) > 0 Then
Set GetLinkByHref = Link
Exit Function
End If
Next
Set GetLinkByHref = Null
End Function
How to run this file?
- Save this code to file, for example to ieauto.vbs.
- To execute this file, run from command line: cscript ieauto.vbs
or paste this command to bat-file:and run the bat-file from command line.
Note: You can download archived sample files from here.
The result of execution is:
Test runs and performs all steps correctly (it opens IE, fills values, clicks button, clicks link, closes IE).Conclusion:
You can create and use instances of the InternetExplorer object to perform and to test all actions, which you run manually.
Or to do some routine operations in a browser, for example - filling forms, creating test users, and so on.
--
Dmitry Motevich
Subscribe by Email
Subscribe to RSS feed
21 comments:
Great and thanks for sharing, could you please tell me how did you got the code generated please.
In your list of automation tools you forgot to mention InCisif.net.
InCisif.net is an automation tool designed to implement functional web testing
under Internet Explorer, using languages VB.Net, C# within Visual Studio 2005, 2008 or Express.
You VBScript is actually pretty good.
But InCisif.net comes with a record mode integrated with Visual Studio, and a smart API to look up html controls.
WatiN API is also interesting.
So using an automation tool is worth it.
Hi Dmitry,
Amazing, Your postings are subjective. Good going.
2Anonymous:
Google + MSDN :)
Dude you are using VB Scripting to do few steps. Its not really testing. Seems like you don't understand the concept of testing...
2Anonymous:
I never said, that I understand the concept of testing.
I would be grateful if you could help me. Thank you in advance, Mr. Anonymous.
This is neat! Can you do the same thing with Firefox?
Hi Dimitry,
Its good to see the tremendous benefits of vbscript to automate the testing w/o tool. However, its easy to automate only those programs, if the "Object Model" for such program is available. Can you guide how to automate "PDF"? For eg. how to get total number of pages in the pdf document. I wouldn't prefer any PAID products like "QTP" to 'spy' the pdf and then find the object model tree. Any other free tool to obtain such object model tree is ok but not a free functional testing tool.
Thanks in advance for your reply.
2Ozmar,
Yes, we can use FF too.
Please, check this link.
I hope, I will be able to prepare tutorial on FireFox XPCOM object in a future.
2Anonymous,
You are lucky :)
I created such tutorial on working with PDF files:
QTP - How to get number of pages in PDF file?
About PDF file...
Code, provided here can work without QTP.
HI Dmitry,
The explaination is pretty good.Could you please tell me how to see the code of vbs for the same
2. is it possible to parameterise the form filling with this method.
Thanks in advance,
Onsoftinc
Freelance Tester (Onsoftinc), (from September 4),
What do you mean with "to see the code of vbs for the same"? Please, explain.
Yes, It is possible to parameterise the form filling with VBScript.
Hi,
It's a great effort indeed. Thanks for sharing this information.
Is it possible to automate web pages having Css/or javascript content and not the HTML content as in the case of google?
Kindly let me know. Thanks in advance.
@ Anonymous,
I didn't get you.
What are "web pages having Css/or javascript content and not the HTML content"?
Please provide several links to see such pages.
hI
I was referring to some pages having Css/Javascript content embebed in html pages.
Please let me know if the snippet below helps you to explain.
like below (intranet site):
(i cannot post the snippet here as you editor is not letting me to put it up)
@ Anonymous,
Since you couldn't show me sites you mentioned, I'm afraid I cannot help you.
hi,
please let me know your email id, i would send the attachments.
thanks a bunch....
@Anonymous.
You can find my email on several posts on my blog.
Apply the efforts to find it.
And please answer the simple question - why should I spend my time to resolve your issue? How I am motivated in this?
Hi, its very useful everyone who does testing.Continue adding some concepts like this.....
Hi Dimtry,
This is really good one. I have learned a lot from this IE Object.
I have a question for you. I want to write an excel macro to up load my test case results into Qualtiy Center. I have successfully uploaded test cases using Add-in but now i want to upload with the results into Quality Center. I searched Google for this but i didn't get proper responce. Please help me to write the code for uploading test case results to (Pass/fail/blocked/No run) quality Center.
Thanks in Advance,
Srinivasachary.
Post a Comment