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

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

代码如下：

 

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143

;各个文件的位置 $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这个工具，让我们日常的重复性工作的自动化程度更高。