[VB][测试技术应用]VB与IE交互实现WEB画面的自动测试(用VB填写IE中控件的内容和提交表单)

VB与IE交互实现WEB画面的自动测试(用VB填写IE中控件的内容和提交表单)

看这篇文件需要有VBA编程基础.

我们在做WEB项目测试的时候,为了测试一个点在IE上反复的输入相同的内容,浪费了很多的时间.我们就可以思考这样一个问题,画面测试是否也可以像Junit测试一样只要点击一下鼠标什么都不用做就完成测试. 答案是可以的.

我的设想是:用EXCEL VBA技术把想要设置的值设置到网页上并模拟点击某一个按钮或提交某一个表单,分成三个步骤完成自动测试.:

第一步,测试数据准备和测试结果预想..把测试需要的数据和测试预想结果罗列在EXECL中

第二步,数据库数据初期化.清空这些表的数据,并把上面的数据插入到相应的表中

第三步,测试实施.用EXCEL VBA技术把想要设置的值设置到网页上并模拟点击某一个按钮或提交某一个表单

第四步,测试结果比较.把预想数据和数据库中的实际数据相比较,相同的话就说明没有问题了.相同表示测试通过,不同则是程序有问题.

上述四点中,如果懂得用VBA进行数据库编程的话,那么数据库数据初期化和测试结果比较应该都没有问题.问题在测试实施上.如何让网页上的控件自动赋值并自动提交表单呢.下面我就正对这一点技术实现的可能性进行说明.

HTML源码:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>

<head>

<title>testPage</title>

</head>

<body>

<tr>

</td>

</tr>

<tr>

</td>

</tr>

</table>

</FORM>

</body>

</html>

很简单的页面，在上面有一个登录的Form，一个用户名输入框LoginName，一个密码输入框LoginPassword和一个提交按钮clickme

然后用IE打开这个页面，注意页面的title设置为testPage。
正在装载数据……

然后打开VBA，在工程中引用Microsoft internet controls：

Private Sub Command1_Click()

Dim IEList As New ShellWindows

Dim browser

Dim Doc

On Error Resume Next

'遍历当前地浏览器窗口

For Each browser In IEList

'找到需要地IE窗口

If browser.Document.Title = "testPage" Then

'获得浏览器地文档对象

Set Doc = browser.Document

'填写用户名字段

Doc.body.All("LoginName").Value = "eddie"

'填写密码字段

Doc.body.All("LoginPassword").Value = "123456"

'提交

Doc.body.All("clickme").Click

End If

End Sub

本文来源：http://blog.csdn.net/szwangdf/archive/2007/09/10/1779823.aspx

最新热点		最新推荐		相关文章
		如何在ado中使用connect… vb 贪吃蛇单人版游戏（… 关于在vb中进行com组件的… 用vb6.0编写自我升级的程… vb自动登陆网络站点详解… vb打造超酷个性化菜单（…		开发手记---JAVA数据库连接池设计模式之--Bridge JAVA 应用简单破解---类库提… java现状----编程使用的语言… SIP简介，第2部分：SIP SERV… 关于Linux下C/C++程序编译 c++ 09 :一览未来 visual C++ 6.0开发工具与调… 委托学习（1）-------函数指… 看完了第二遍C++Primer，学习…