开发人员用的提交测试环境的AutoIT脚本

主要功能就是依次检查各个步骤，确定该做的工作都已经完成，如果没有完成，就自动打开相关的工具，并等待完成。

代码如下：

#cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.6.1 Author: 侯伯薇 Create Date: 2010-7-12 Script Function: 开发人员提交UAT前的检查 #ce ---------------------------------------------------------------------------- ;各个文件的位置 $vss = "C:/Program Files/Microsoft Visual Studio/COMMON/VSS/win32/SSEXP.EXE" $ie = "C:/Program Files/Internet Explorer/iexplore.EXE" $plsql = "C:/Program Files/PLSQL Developer/plsqldev.exe" ;是否已经将所有文件提交VSS？ $haveCheckedIn = MsgBox(4, "VSS 检查","是否已经将所有文件提交VSS?") ;->否；打开VSS，自动输入用户名密码，进入 If $haveCheckedIn = 7 Then Run($vss) WinWaitActive("Visual SourceSafe Login") Send("hq100545") Send("{Enter}") WinWaitActive("Visual SourceSafe Explorer -- vss60cn"); ;等待完成………… MsgBox(0,"VSS 检查","完成之后请继续！") If WinExists("Visual SourceSafe Explorer -- vss60cn") Then WinClose("Visual SourceSafe Explorer -- vss60cn") WinWaitClose("Visual SourceSafe Explorer -- vss60cn") EndIf EndIf ;是否存在SQL文件（.sql)? $haveSQLFiles = MsgBox(4, "SQL 检查","是否有需要提交的SQL文件?"); ;如果有SQL的话，则需要验证SQL的有效性 if $haveSQLFiles = 6 Then ;是否已验证SQL的有效性 $CheckedSQL = MsgBox(4,"SQL 检查","是否已经验证过SQL的有效性？") ;->否：打开pl/sql developer,并以sys身份登录 if $CheckedSQL = 7 Then Run($plsql) WinWaitActive("Oracle Logon") Send("+{Tab}") Send("sys") Send("{Tab}") Send("lis") Send("{Tab}") Send("ORCL_139") Send("{Tab}") Send("SYSDBA") Send("{ENTER}") WinWaitActive("PL/SQL Developer - sys@ORCL_139") ;等待完成………… MsgBox(0,"SQL 检查","完成之后请继续！") If WinExists("PL/SQL Developer - sys@ORCL_139") Then WinClose("PL/SQL Developer - sys@ORCL_139") WinWaitClose("PL/SQL Developer - sys@ORCL_139") EndIf EndIf EndIf ;是否已经修改QC状态 $ModifiedQC = MsgBox(4,"QC 检查","是否已经修改QC状态？") ;->否：打开浏览器，进入到QC If $ModifiedQC = 7 Then Send("#r") WinWaitActive("运行") Send("http://10.18.4.149:8080/qcbin/start_a.htm",1); Send("{Enter}") WinWaitActive("Mercury Quality Center 9.0 - Windows Internet Explorer") ;等待完成………… MsgBox(0,"QC 检查","完成之后请继续！") If WinExists("Mercury Quality Center 9.0 - Windows Internet Explorer") Then WinClose("Mercury Quality Center 9.0 - Windows Internet Explorer") WinWaitClose("Mercury Quality Center 9.0 - Windows Internet Explorer") EndIf EndIf ;是否已经填写变更登记？ $haveFilledChangeReport = MsgBox(4, "变更登记检查","是否已填写变更登记并签入?") ;->否；打开VSS，自动输入用户名密码，进入 If $haveFilledChangeReport = 7 Then Run($vss) WinWaitActive("Visual SourceSafe Login") Send("hq100545") Send("{Enter}") WinWaitActive("Visual SourceSafe Explorer -- vss60cn"); ;等待完成………… MsgBox(0,"变更登记检查","完成之后请继续！") If WinExists("Visual SourceSafe Explorer -- vss60cn") Then WinClose("Visual SourceSafe Explorer -- vss60cn") WinWaitClose("Visual SourceSafe Explorer -- vss60cn") EndIf EndIf ;是否已经打印测试报告？ $havePrintedTestReport = MsgBox(4, "测试报告检查","是否已填写IT测试报告?") ;->否：打开Word If $havePrintedTestReport = 7 Then Send("#r") WinWaitActive("运行") ;选择当前要提交的是需求还是缺陷 $ProgramType = MsgBox(4, "测试报告检查","请选择提交程序的类型：需求选是，Bug选否！") ;->需求：打开RQ的测试报告 If $ProgramType = 6 Then Send("WINWORD.EXE C:/IT测试报告_rq.doc", 1) Send("{ENTER}") EndIf ;->缺陷：打开ing的测试报告 If $ProgramType = 7 Then Send("WINWORD.EXE C:/IT测试报告_rq.doc", 1) Send("{ENTER}") EndIf ;等待完成………… MsgBox(0,"测试报告检查","完成之后请继续！") If WinExists("IT测试报告_rq.doc - Microsoft Word") Then WinClose("IT测试报告_rq.doc - Microsoft Word") WinWaitClose("IT测试报告_rq.doc - Microsoft Word") EndIf If WinExists("IT测试报告_ing.doc - Microsoft Word") Then WinClose("IT测试报告_ing.doc - Microsoft Word") WinWaitClose("IT测试报告_ing.doc - Microsoft Word") EndIf EndIf ;OK，可以打印测试报告并提交签字了。 MsgBox(0,"恭喜","一切OK，测试报告签字后就可以提交了！")

这样，就可以避免在发布测试环境的时候忘东忘西了，呵呵。

其实，还可以进行其他改进，比方说：

构建几个函数，让程序模块化。

使用鼠标控制事件，让自动化的程度更高。

希望大家也能够使用AotuIT这个工具，让我们日常的重复性工作的自动化程度更高。