[VB] [Test technology application] VB and IE interactive implementation of Web screen automatic test (with VB fill in the content of the control in IE and submit the form)

Source: Internet
Author: User

VB and IE Interactive implementation of Web screen automatic test (with VB fill in the content of the control in IE and submit the form)

This document needs to have VBA programming Foundation.

When we were doing Web project testing, we wasted a lot of time trying to test a point to enter the same content repeatedly on IE. we can think of a problem where the screen test can be as good as a JUnit test. Just click on the mouse and do nothing to complete the test. The answer is yes.

My idea is: Use Excel VBA technology to set the value you want to set to the Web page and simulate clicking on a button or submitting a form, divided into three steps to complete the automated test.:

The first step, test data preparation and test results are expected. List the data required for testing and test results in EXECL

In the second step, the database data is initially initialized. Empty the data from these tables and insert the above data into the appropriate table

The third step, test implementation. Use Excel VBA technology to set the value you want to set to a Web page and simulate clicking on a button or submitting a form

The fourth step, compare the test results. Comparing the expected data with the actual data in the database, the same words indicate that there is no problem. The same indicates that the test passed, and the difference is that there is a problem with the program.

In the above four points, if you know how to use VBA for database programming, then the database data initially and test results should be no problem. The problem is in the test implementation. How to automatically assign and submit a form to a control on a Web page. I will explain the possibilities of this technology implementation.

HTML Source: <! DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 transitional//en" >

< HTML >
< head >
< title > Testpage </title >

< BODY >

< FORM name =chh method = "POST" action = "Login.asp" >

< table width = "100%" border = "0" cellspacing = "0" cellpadding = "2" >
< tr >
< td width = "31%" align = "center" > User: </td >
< td width = "69%" align = "left" >
< input name = "LoginName" type = "text" id = "LoginName" size = "All" >
</td >
</TR >
< tr >
< td width = "31%" align = "center" > Password: </td >
< td width = "69%" align = "left" >
< input name = "Loginpassword" type = "password" id = "Loginpassword" size = "All" >
</td >
</TR >
</table >
< input type = "Submit" id = "ClickMe" value = "Commit" >
</FORM >
</Body >
</HTML >

Very simple page, on which there is a login form, a user name input box loginname, a password input box Loginpassword and a Submit button ClickMe



Then use IE to open this page, note that the title of the page is set to Testpage.



Then open VBA and reference Microsoft Internet controls in your project:

Private Sub Command1_Click ()
Dim Ielist as New shellwindows
Dim Browser
Dim Doc

On Error Resume Next

' Traverse the current browser window
For each browser in Ielist
' Find the IE window that needs to
If Browser. Document.title = "Testpage" Then
' Get browser to document object
Set Doc = browser. Document

' Fill in the User Name field
Doc.body.All ("LoginName"). Value = "Eddie"
' Fill in the password field
Doc.body.All ("Loginpassword"). Value = "123456"

' Submit
Doc.body.All ("ClickMe"). Click
End If

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.