開發人員用的提交測試環境的AutoIT指令碼

主要功能就是依次檢查各個步驟，確定該做的工作都已經完成，如果沒有完成，就自動開啟相關的工具，並等待完成。

代碼如下：

 

;各個檔案的位置$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 ThenRun($vss)WinWaitActive("Visual SourceSafe Login")Send("hq100545")Send("{Enter}")WinWaitActive("Visual SourceSafe Explorer -- vss60cn");;等待完成…………MsgBox(0,"VSS 檢查","完成之後請繼續！")If WinExists("Visual SourceSafe Explorer -- vss60cn") ThenWinClose("Visual SourceSafe Explorer -- vss60cn")WinWaitClose("Visual SourceSafe Explorer -- vss60cn")EndIfEndIf;是否存在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 ThenRun($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 檢查","完成之後請繼續！")IfWinExists("PL/SQL Developer - sys@ORCL_139") ThenWinClose("PL/SQL Developer - sys@ORCL_139")WinWaitClose("PL/SQL Developer - sys@ORCL_139")EndIfEndIfEndIf;是否已經修改QC狀態$ModifiedQC = MsgBox(4,"QC 檢查","是否已經修改QC狀態？");->否：開啟瀏覽器，進入到QCIf $ModifiedQC = 7 ThenSend("#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") ThenWinClose("Mercury Quality Center 9.0 - Windows Internet Explorer")WinWaitClose("Mercury Quality Center 9.0 - Windows Internet Explorer")EndIfEndIf;是否已經填寫變更登記？$haveFilledChangeReport = MsgBox(4, "變更登記檢查","是否已填寫變更登記並簽入?");->否；開啟VSS，自動輸入使用者名稱密碼，進入If $haveFilledChangeReport = 7 ThenRun($vss)WinWaitActive("Visual SourceSafe Login")Send("hq100545")Send("{Enter}")WinWaitActive("Visual SourceSafe Explorer -- vss60cn");;等待完成…………MsgBox(0,"變更登記檢查","完成之後請繼續！")If WinExists("Visual SourceSafe Explorer -- vss60cn") ThenWinClose("Visual SourceSafe Explorer -- vss60cn")WinWaitClose("Visual SourceSafe Explorer -- vss60cn")EndIfEndIf;是否已經列印測試報告？$havePrintedTestReport = MsgBox(4, "測試報告檢查","是否已填寫IT測試報告?");->否：開啟WordIf $havePrintedTestReport = 7 ThenSend("#r")WinWaitActive("運行");選擇當前要提交的是需求還是缺陷$ProgramType = MsgBox(4, "測試報告檢查","請選擇提交程式的類型：需求選是，Bug選否！");->需求：開啟RQ的測試報告If $ProgramType = 6 ThenSend("WINWORD.EXE C:\IT測試報告_rq.doc", 1)Send("{ENTER}")EndIf;->缺陷：開啟ing的測試報告If $ProgramType = 7 ThenSend("WINWORD.EXE C:\IT測試報告_rq.doc", 1)Send("{ENTER}")EndIf;等待完成…………MsgBox(0,"變更登記檢查","完成之後請繼續！")If WinExists("IT測試報告_rq.doc - Microsoft Word") ThenWinClose("IT測試報告_rq.doc - Microsoft Word")WinWaitClose("IT測試報告_rq.doc - Microsoft Word")EndIfIf WinExists("IT測試報告_ing.doc - Microsoft Word") ThenWinClose("IT測試報告_ing.doc - Microsoft Word")WinWaitClose("IT測試報告_ing.doc - Microsoft Word")EndIfEndIf;OK，可以列印測試報告並提交簽字了。MsgBox(0,"恭喜","一切OK，測試報告簽字後就可以提交了！")

這樣，就可以避免在發布測試環境的時候忘東忘西了，呵呵。

其實，還可以進行其他改進，比方說：

構建幾個函數，讓程式模組化。

使用滑鼠控制事件，讓自動化的程度更高。

希望大家也能夠使用AotuIT這個工具，讓我們日常的重複性工作的自動化程度更高。