求知 文章 文库 Lib 视频 iPerson 课程 认证 咨询 工具 讲座 Modeler   Code  
会员   
 
  
 
 
 
开发人员用的提交测试环境的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 = 7 Then
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 = 7 Then
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 = 7 Then
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 = 7 Then
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 = 7 Then
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这个工具,让我们日常的重复性工作的自动化程度更高。



LoadRunner性能测试基础
软件测试结果分析和质量报告
面向对象软件测试技术研究
设计测试用例的四条原则
功能测试中故障模型的建立
性能测试综述
更多...   


性能测试方法与技术
测试过程与团队管理
LoadRunner进行性能测试
WEB应用的软件测试
手机软件测试
白盒测试方法与技术


某博彩行业 数据库自动化测试
IT服务商 Web安全测试
IT服务商 自动化测试框架
海航股份 单元测试、重构
测试需求分析与测试用例分析
互联网web测试方法与实践
基于Selenium的Web自动化测试
更多...