【摘要】 随着软件产品在各行业应用越来越广泛，软件质量日益得到重视。提高测试水平，测试效率是广大测试工程师追求的目标。 Rational 的产品涉及到软件工程各个部分，本文从实际出发介绍控制启动自动化工具 Robot 的方法。文中涉及开发，系统几个方面，希望提供大家一个完美的解决方案。

【关键字】 软件测试 自动化测试 Rational Robot 系统启动

这篇文章是基于论坛上一个问题 “ 如何让脚本定时运行 ” ，提供的一个解决方案。我们都听说过自动化测试应用于每日构建，每天在 下班之后编译版本，定时启动自动化测试脚本进行功能测试，第二天相关人员收到相应的报告。但是如何启动自动化测试工具呢，这里主要针对于 Rational Robot 的提供一种实现方法。

因为 Rational Robot 支持从命令行启动脚本，所以我们很容易在命令行中启动它。具体参考 Rational Robot User's Guide 。基本的命令行语法结构如下：

Rtrobo.exe [scriptname] [/user userid] [/password PassWrod] [/project Full - path- and – full - projectname] [/play] [/purify] [/quantify] [/coverage] [/build build] [/logfolder foldername] [/log logname] [/nolog] [/close]

例：用户 admin 启动 testProject 工程脚本 test ，命令行语法如下：

rtrobo.exe test /user admin /project c:\Program\robot\testDelphi\testProject.rsp /play

那如何定时启动呢，在 Windows 系统中有 “ 任务计划 ” 提供了定时启动功能，通过它可以预定一些软件在规定的时间运行。利用 “ 任务计划 ” ，可以将任何脚本、程序或文档安排在某个最方便的时间运行。 “ 任务计划 ” 在每次启动 Windows 的时候开始启动并在后台运行。那么我们完全可以利用它来完成 “ 不可能的任务 ” 。

在计划任务中添加任务那么就可以定时启动 Rational robot 运行脚本。操作如下：

1 ．开始 - 〉设置 - 〉控制面板

2 ．打开计划任务向导

3 ．添加启动任务，设置启动时间

4 ．修改计划任务运行中参数如下：

"c:\Program Files\Rational\Rational Test\rtrobo.exe" test /user admin /project c:\Program\robot\testDelphi\testProject.rsp /play

Rational Robot 在预定时间定时启动了。问题得到解决。

备注： 运行过程中仍需要设置相关参数，否则阻止运行。比如默认情况下，脚本运行都会启动编译窗口。这里除了命令行设置参数外还可以设置 Robot 中 GUI Playback Option 窗体的 log 页面 use default log information 项。这样在无人职守的情况下，启动测试工具不会由于测试工具自身设置中止运行。

但是实际工作需要更加灵活的功能，比如曾经笔者所在公司开发软件为组态监控软件，利用组态软件开发的一个项目是控制大厦的空调系统在夜里定时重新启动。进行功能测试时候，我们不可能真的等到夜里才进行测试（估计夜里上班公司也不会批准给加班费 ^_^ ），按照计划任务的实现方法有一定局限性不能随心所欲启动机器进行功能测试。

熟悉 Windows 编程的人都知道 API 函数 ExitWindowsEx 可以实现重新启动系统的功能 ( 具体的用法参看 MSDN) 。这样只要调用 ExitWindowEx 函数重新启动系统后启动 Rational Robot 运行需要的脚本就可以达到任何时候启动系统继续进行功能测试的目的。

一般情况下登陆系统时需要输入登陆名和密码，如果不能自动登陆，那么就成为运行脚本进行测试的障碍。在注册表 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon 位置添加 DefaultDomainName,DefaultUserName,DefaultPassword 三项，赋予相应的值。重新启动系统后自动登陆。

那么最后面对的一个问题就是怎样让 robot 随着系统而启动。这个相对来说比较简单，在系统开始启动菜单中建立一个快捷方式就可以实现随着系统启动的功能，其实就是在注册表 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run 中添加键值。附录提供笔者实现的 robot 脚本代码供大家参考。

Brian Bryson 提供组件 – RobotHelperComponent 帮助我们实现利用 Robot 重新启动系统并启动 Rational Robot 运行脚本的功能。该组件下载地址为：

http://www-106.ibm.com/developerworks/rational/library/content/03July/2000/2155/2155_RobotHelperComponent.zip

关于该组件的介绍请看 Brian Bryson 的 Rebooting Your System 一文。该文地址：

http://www-106.ibm.com/developerworks/rational/library/959.html

本文到此告以结束，希望大家对于 Rational Robot 的启动问题有了一个满意的答案。

参考：

•  Microsoft MSDN2003

•  Rational Robot User Guide

•  Rational Robot Tips and Techniques: Rebooting Your System – 作者 Brian Bryson

附录：

Const REG_SZ=1

Global Const HKEY_LOCAL_MACHINE = ＆ H80000002

Declare Function RegOpenKey Lib“advapi 32” Alias “RegOpenKeyA”(ByVal hkey As Long, ByVal lpszSubKey As String,phkResult As Long) As Long

Declare Function RegSetValueEx Lib “advapi 32” Alias “RegSetValueExA” (ByVal hkey As Long,ByVal lpszValueName As String,ByVal dwReserved As Long,ByVal fdwType As Long, lpbData As Any,ByVal cbData As Long) As Long

Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long

Declare Function RegCloseKey Lib “advapi 32” Alias “RegCloseKey” (ByVal hkey As Long) As Long

编写功能函数

Function oRegOpenKey (ByVal hkey As Long, ByVal lpszSubKey As String,phkResult As Long) As Boolean

Dim lResult As Long

On Error GoTo 0 ' 错误跳转

lResult=RegOpenKey(hkey,lpszSubKey,phkResult)

If lResult=0 Then

oRegOpenKey=True

Else oRegOpenKey=False

End If

End Function

Function RegSetStringValue(ByVal hKey As Long, ByVal strValueName As String, ByVal strData As String, Optional ByVal fLog) As Boolean

Dim lResult As Long

On Error GoTo 0

lResult = RegSetValueEx(hKey, strValueName, 0&, REG_SZ, ByVal strData, LenB(StrConv(strData, vbFromUnicode)) + 1)

If lResult = 0 Then

RegSetStringValue = True

Else

RegSetStringValue = False

End If

End Function

调用函数测试代码

Sub Main

Dim hkey As Long

Dim MyReturn As Long

MyReturn=oRegOpenkey(HKEY_LOCAL_MACHINE,

“SOFTWARE\Microsoft\Windows\CurrentVersion\Run”,hkey)

If hkey=0 Then

MsgBox “ 主键未创建或者输入有误，请仔细核对后再次运行本程序！ ”

Exit Sub

End If

MyReturn=RegSetStringValue(hkey, “robot”,“”” 路径 / rtrobo.exe”” test /user admin /project c:\Program\robot\testDelphi\testProject.rsp /play ”,False)

If MyReturn Then

MsgBox “ 您的程序已成功添加到系统启动中，再次启动 Windows 时系统将自动运行您的程序！ ”

Else

MsgBox “ 代码中存在错误 ”

End If

RegCloseKey(hkey)

End Sub

以上代码在 Rational Robot 2002 上测试通过。