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

2010-10-28 作者：侯伯薇来源：侯伯薇的blog

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

代码如下：

001 ;各个文件的位置

002 $vss = "C:\Program Files\Microsoft Visual Studio\COMMON\VSS\win32\SSEXP.EXE"

003 $ie = "C:\Program Files\Internet Explorer\iexplore.EXE"

004 $plsql = "C:\Program Files\PLSQL Developer\plsqldev.exe"

005

006 ;是否已经将所有文件提交VSS？

007 $haveCheckedIn = MsgBox(4,"VSS 检查","是否已经将所有文件提交VSS?")

008 ;->否；打开VSS，自动输入用户名密码，进入

009 If $haveCheckedIn = 7Then

010 Run($vss)

011

012 WinWaitActive("Visual SourceSafe Login")

013 Send("hq100545")

014 Send("{Enter}")

015

016 WinWaitActive("Visual SourceSafe Explorer -- vss60cn");

017

018 ;等待完成…………

019 MsgBox(0,"VSS 检查","完成之后请继续！")

020

021 If WinExists("Visual SourceSafe Explorer -- vss60cn") Then

022 WinClose("Visual SourceSafe Explorer -- vss60cn")

023 WinWaitClose("Visual SourceSafe Explorer -- vss60cn")

024 EndIf

025

026 EndIf

027

028 ;是否存在SQL文件（.sql)?

029 $haveSQLFiles = MsgBox(4,"SQL 检查","是否有需要提交的SQL文件?");

030

031 ;如果有SQL的话，则需要验证SQL的有效性

032 if $haveSQLFiles = 6 Then

033 ;是否已验证SQL的有效性

034 $CheckedSQL = MsgBox(4,"SQL 检查","是否已经验证过SQL的有效性？")

035 ;->否：打开pl/sql developer,并以sys身份登录

036 if $CheckedSQL = 7Then

037 Run($plsql)

038

039 WinWaitActive("Oracle Logon")

040 Send("+{Tab}")

041 Send("sys")

042 Send("{Tab}")

043 Send("lis")

044 Send("{Tab}")

045 Send("ORCL_139")

046 Send("{Tab}")

047 Send("SYSDBA")

048 Send("{ENTER}")

049

050 WinWaitActive("PL/SQL Developer - sys@ORCL_139")

051

052 ;等待完成…………

053 MsgBox(0,"SQL 检查","完成之后请继续！")

054

055 If WinExists("PL/SQL Developer - sys@ORCL_139") Then

056 WinClose("PL/SQL Developer - sys@ORCL_139")

057 WinWaitClose("PL/SQL Developer - sys@ORCL_139")

058 EndIf

059 EndIf

060 EndIf

061

062 ;是否已经修改QC状态

063 $ModifiedQC = MsgBox(4,"QC 检查","是否已经修改QC状态？")

064 ;->否：打开浏览器，进入到QC

065 If $ModifiedQC = 7Then

066

067 Send("#r")

068 WinWaitActive("运行")

069 Send("http://10.18.4.149:8080/qcbin/start_a.htm",1);

070 Send("{Enter}")

071

072 WinWaitActive("Mercury Quality Center 9.0 - Windows Internet Explorer")

073

074 ;等待完成…………

075 MsgBox(0,"QC 检查","完成之后请继续！")

076

077 If WinExists("Mercury Quality Center 9.0 - Windows Internet Explorer")Then

078 WinClose("Mercury Quality Center 9.0 - Windows Internet Explorer")

079 WinWaitClose("Mercury Quality Center 9.0 - Windows Internet Explorer")

080 EndIf

081 EndIf

082

083 ;是否已经填写变更登记？

084 $haveFilledChangeReport = MsgBox(4,"变更登记检查","是否已填写变更登记并签入?")

085 ;->否；打开VSS，自动输入用户名密码，进入

086 If $haveFilledChangeReport = 7Then

087 Run($vss)

088

089 WinWaitActive("Visual SourceSafe Login")

090 Send("hq100545")

091 Send("{Enter}")

092

093 WinWaitActive("Visual SourceSafe Explorer -- vss60cn");

094

095 ;等待完成…………

096 MsgBox(0,"变更登记检查","完成之后请继续！")

097

098 If WinExists("Visual SourceSafe Explorer -- vss60cn") Then

099 WinClose("Visual SourceSafe Explorer -- vss60cn")

100 WinWaitClose("Visual SourceSafe Explorer -- vss60cn")

101 EndIf

102

103 EndIf

104

105 ;是否已经打印测试报告？

106 $havePrintedTestReport = MsgBox(4,"测试报告检查","是否已填写IT测试报告?")

107 ;->否：打开Word

108 If $havePrintedTestReport = 7Then

109

110 Send("#r")

111 WinWaitActive("运行")

112

113 ;选择当前要提交的是需求还是缺陷

114 $ProgramType = MsgBox(4,"测试报告检查","请选择提交程序的类型：需求选是，Bug选否！")

115

116 ;->需求：打开RQ的测试报告

117 If $ProgramType = 6 Then

118 Send("WINWORD.EXE C:\IT测试报告_rq.doc", 1)

119 Send("{ENTER}")

120 EndIf

121 ;->缺陷：打开ing的测试报告

122 If $ProgramType = 7 Then

123 Send("WINWORD.EXE C:\IT测试报告_rq.doc", 1)

124 Send("{ENTER}")

125 EndIf

126

127 ;等待完成…………

128 MsgBox(0,"变更登记检查","完成之后请继续！")

129

130 If WinExists("IT测试报告_rq.doc - Microsoft Word") Then

131 WinClose("IT测试报告_rq.doc - Microsoft Word")

132 WinWaitClose("IT测试报告_rq.doc - Microsoft Word")

133 EndIf

134

135 If WinExists("IT测试报告_ing.doc - Microsoft Word") Then

136 WinClose("IT测试报告_ing.doc - Microsoft Word")

137 WinWaitClose("IT测试报告_ing.doc - Microsoft Word")

138 EndIf

139

140

141 EndIf

142 ;OK，可以打印测试报告并提交签字了。

143 MsgBox(0,"恭喜","一切OK，测试报告签字后就可以提交了！")

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

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

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

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

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

相关文章

更多...

更多课程...

更多...