- 概述
在自动化测试过程中,我们不可避免的要面临GUI对象识别的问题。目前主流的测试工具如RFT、QTP等,都能够很好的识别标准的对象元素,如windows的按钮、下拉列表,IE中的html标签等。但是也有一些定制的控件和元素是自动化测试工具所识别不了的。对于这种情况,我们或者依靠测试工具提供的API函数来实现,或者想一些变通的办法来实现。本文所说的就是用RFT和VBS脚本结合的方式来解决OCX数据录入的问题。
- 问题描述
在我所负责的自动化测试项目里,被测系统的界面中使用了OCX控件,该控件的作用是接收用户在界面上录入的金额,并保存到数据库中。由于该OCX控件是开发人员自己定制的,因此开发测试脚本时运到了问题:在控件所生成的界面中包含多个录入单元格,但是RFT或者QTP都把该OCX控件识别成了一个整体。如下图所示:
这就带来一个问题,如果要实现多个单元格的录入,我们只能把每个单元格都执行一遍录入操作,脚本参数化时也是这样,每个单元格录入所对应的脚本都要进行参数化,增加了脚本的维护工作量,降低了自动化测试的可用性。
对于OCX控件操作,一般有两种解决方法:1、RFT提供了invoke方法,利用该invoke方法实现对OCX的属性访问和方法调用,但是invoke调用在我本机上会报异常;2、利用开源框架,如jacob,实现对OCX控件的调用。但是我却不知道如何将控件的值传递给IE接收。无奈之下我只能用复制粘贴的方法来实现数据的录入了。
- 设计思路
1、要求被测系统必须支持界面的复制粘贴操作;
2、利用excel准备好表样和测试数据,要求表样必须与界面的表样一致;
3、编写vbs函数实现复制粘贴操作
4、RFT调用该VBS函数,将excel中的数据粘贴到被测系统的表格中。
注意,利用复制excel然后粘贴实现录入的做法并不是自动化测试的标准方法,利用对象属性识别单元格并进行数据录入才是王道。
使用该方法需要了解以下知识:
1、excel 对象模型方法;
2、 wscipt对象
3、RFT对第三方函数和文件的调用
4、RFT(JAVA)获取VBS函数的返回值
- 代码实现
1、public function getRange(sheet):将excel sheet的名称做为参数传递进去,返回有数据的单元格区域
Dim m,n,rowcount,colcount
For Each r In sheet.range( " a1:a100 " ) ' 目前只是将搜索范围限制在1000行以内
m = r.row
If r <> "" Then
rowCount = m
End If
Next
' MsgBox "有数据的行数是"&rowcount
For Each c In sheet.range( " a1:z1 " ) ' 搜索范围限制在a~z列之间
n = c.column
If c <> "" Then
colCount = n
End If
Next
' MsgBox "有数据的列数是"&colcount
getRange = " a1: " & sheet.cells(rowcount,colcount).address ' 返回有数据的单元格区域
End Function
2、public function copyExcel(filenname,sheet):将excel文件路径和sheet传递进去,实现 excel复制粘贴的操作
' 王云鹏2007-11-22修改,修正在复制EXCEL时,如果excel表数据表处于未打开状态时无法复制合并单元格,导致数据录入失败的问题.
' Set excelobj = GetObject(filename)
' Set sheets = excelObj.worksheets(sheet)
Set excelobj = CreateObject ( " Excel.Application " )
Set workbook = excelobj.Workbooks.Open(filename)
Set sheets = workbook.Worksheets(sheet)
sheets.activate ' 激活要复制的工作表
address = getRange(sheets) ' 得到要复制区域
isCopy = sheets.range(address).copy ' 其实这里的返回值没有任何意义,只是为了调试用
' 王云鹏2007-11-23修改,修正EXCEL打开没有关闭,造成测试机运行缓慢的问题
' 王云鹏2007-11-23修改,将关闭EXCEL的方法改写到pastevalue函数中,以解决复制单元格时丢失单元格格式的问题
' workbook.Close'关闭excel
wscript.sleep 2000
Set ws = CreateObject ( " WScript.Shell " )
ws.AppActivate " 兼容性测试-数据录入 " ' 激活数据录入窗口,获取焦点
ws.SendKeys " ^v "
wscript.sleep 1000
excelobj.displayalerts = false ' excelobj是excel自动化对象模型里的顶级对象
workbook.Close
End Function
3、public function setvalue(filename,sheetname):调用copyExcel方法,实现复制粘贴,并返回一个布尔值
Call copyExcel(filename,sheetname)
isdone = true
End Function
4、在D盘根目录中新建一个ReadExcel_demo.vbs文件,编辑代码如下:
sheetname = " shee1 "
Set excelobj = CreateObject ( " Excel.application " )
Set workbook = excelobj.workbooks.open(filename)
Set worksheet = workbook.worksheets(sheetname)
Call setValue (filename,sheetname)
编辑完成后,点击保存;
4、在RFT中新增一个脚本文件,代码如下:
import resources.NewFolder1.Script3Helper;
import com.rational.test.ft. * ;
import com.rational.test.ft.object.interfaces. * ;
import com.rational.test.ft.object.interfaces.SAP. * ;
import com.rational.test.ft.object.interfaces.siebel. * ;
import com.rational.test.ft.object.interfaces.flex. * ;
import com.rational.test.ft.script. * ;
import com.rational.test.ft.value. * ;
import com.rational.test.ft.vp. * ;
/**
* Description : Functional Test Script
* @author Administrator
*/
public class Script3 extends Script3Helper
{
/**
* Script Name : <b>Script3</b>
* Generated : <b>2008-5-24 下午12:23:47</b>
* Description : Functional Test Script
* Original Host : WinNT Version 5.1 Build 2600 (S)
*
* @since 2008/05/24
* @author Administrator
*/
public void testMain(Object[] args)
{
boolean isdone = false;
while(!isdone){
isdone = shellExecute("d:/ReadExcel_demo.vbs");//当setvalue方法执行完毕后,则结束循环
System.out.println(isdone);
}
}
回放脚本即可看到效果。RFT会调用封装在VBS中的函数,从指定的excel中复制有数据的区域,并粘贴到被测系统的界面中。使用while循环的目的是为了实现RFT与VBS的同步:只有当VBS函数执行完毕时,RFT脚本的运行才结束。
-
总结
使用这样的方法进行自动化测试,让我有一种哭不出来的感觉:明明我们已经有了很强大的测试工具,结果又大费周折自己写函数实现。但是有什么办法呢,测试工具提供的手段都不能实现我的需求。就好象当年红军放弃城市攻坚而转入农村包围,不管用什么方法,能达到目的才是最主要的。
setValue方法不是这个项目才创造的,上一个自动化测试项目中就已经大量使用了。我把它贴出来,一是希望能和自动化测试的同行们交流与讨论,另一方面是为了给自己做一下总结。
将JAVA和VBS结合能做到很多我们意想不到的事情,如果对这个论题感兴趣,需要进一步了解RFT的API和windows 的com技术。上次看到有人问:测试人员需要掌握哪些技术?我现在的回答是:掌握任何一门技术都会对你的测试工作大有裨益,因为测试本身就是一门综合性很强的学科。