调用QC测试集运行并且发送测试结果

'*************************************************************************************************************************************************************************

'设计说明：调用QC测试集运行并且发送测试结果，必须配置好邮件服务器，否则邮件无法发送，其余无需修改51Testing软件测试网 ZGuK Q@9q

'程序输入：参见函数参数定义注解51Testing软件测试网s'pP1Gg%s4k2bu

'程序输出：邮件结果报告和分析报表51Testing软件测试网J+Wc0j)QL}C$^

'设计人员：刘毅（LIUYI）

'设计时间：2009-03-20

'调用举例：Call RunTestSet("http://qc/qcbin","核心项目","某某系统","LIUYI",psWord,"自动化测试\回归测试\","试验","remoterun","10.31.10.1","LIUYI@AAA.COM,HUYANG@AAAA.COM")

'*************************************************************************************************************************************************************************

Public Sub RunTestSet(qcServer,qcDomain,qcProject,qcUser,qcPassword,tsFolderName,tSetName,runMode,runHostName,resultGetter)51Testing软件测试网v-]6X*{uo2^Sj

      'Dim qcServer       定义QC服务器地址51Testing软件测试网+~1D%ia i
|m"t

      'Dim qcDomain            定义QC域的名称51Testing软件测试网(q6BXb2p3W&Nlk

      'Dim qcProject             定义QC项目名称

      'Dim qcUser                定义QC用户名称，必须保证这些用户有特定的执行权限

      'Dim qcPassword         定义QC用户的密码

      'Dim tsFolderName定义测试集所在的路径（不包含"Root\"）51Testing软件测试网T5Rf1Yt)t&E$INw

      'Dim tSetName             定义测试集的名称51Testing软件测试网'G!Gg`Hu~r)N;V

      'Dim runMode       定义运行模式：本地运行或代理运行51Testing软件测试网,Fg*@RJ5TQX1D;[.kk

      'Dim runHostName定义代理运行的主机名称或IP地址，如果是本地运行则此参数自动失效51Testing软件测试网1L*TS'B|E?

      'Dim resultGetter   定义邮件接受人（列表），多人则以英文半角的逗号”,“分隔

 51Testing软件测试网n.pN*P%w

      '全局对象声明51Testing软件测试网@*nS-tby

 51Testing软件测试网2kA+XAp7g
A

      'On Error Resume Next51Testing软件测试网h#u*T(``UP

 51Testing软件测试网X xks,H1f.S"xQ

      Set Wshshell = CreateObject("Wscript.Shell")51Testing软件测试网NRA,i?

      Set TDC = CreateObject("TDApiOle80.TDConnection.1")51Testing软件测试网*L a!]9KQ#`+~fa
g9H

      '判断制定用户和指定的域和项目是否连接成功，如果已经连接则首先断开之后重新登陆，这样可以确保连接的项目正确，如果没有连接则直接连接登陆

      If    TDC.Connected Then51Testing软件测试网%X7qH)l(S;{Y2dL!E

             TDC.intConnectionEx qcServer

             TDC.Login qcUser,qcPassword51Testing软件测试网Gh%me*Lt"k@]y:@

             TDC.Connect qcDomain,qcProject51Testing软件测试网7e&x1II'O.EY

      Else51Testing软件测试网RwNj%[{-Hl

             TDC.Disconnect51Testing软件测试网Ug&SUZ)P

             TDC.Logout

             TDC.ReleaseConnection51Testing软件测试网p*nS&B?]fV q,w9Ah

             TDC.intConnectionEx qcServer

             TDC.Login qcUser,qcPassword51Testing软件测试网bj/Xo&Q

             TDC.Connect qcDomain,qcProject

      End If51Testing软件测试网\~,P\1A)@Y

 51Testing软件测试网j}OB'K

      '声明测试集树、路径、测试实验室、测试集名等对象

      Set tsTreeMgr = TDC.TestSetTreeManager

      Set tsFolder = tsTreeMgr.NodeByPath("Root\"&Trim(tsFolderName))

      Set tsList = tsFolder.FindTestSets(tSetName)51Testing软件测试网)J t'FP-}1H f0|6q#E2V

 51Testing软件测试网E5OV xT$|k

      '对测试集路径进行正确性判断，发生异常情况清空所有对象退出运行

      If    tsFolder Is Nothing Then51Testing软件测试网~-K Or'iU)L

             Wshshell.Popup "找不到指定路径【"&nPath&"】",1,"运行时错误：",0

             Set tsList = Nothing51Testing软件测试网9F6_+m:Nb
Y2f

             Set tsFolder = Nothing51Testing软件测试网YFRW S}

             Set tsTreeMgr = Nothing51Testing软件测试网w)Wi/i7N%nB0{

             Set TDC = Nothing51Testing软件测试网5] RU y~s`:I)}*m

             Set Wshshell = Nothing

             Exit Sub

      End If51Testing软件测试网w#sl+P0V5rc

 51Testing软件测试网#j0z.g(]h7iy"n4QV

      '对同一目录下的同名测试集做异常判断，对没有找到指定测试集进行异常判断，异常情况清空所有对象退出运行51Testing软件测试网$['i!B&^(?*_

      If    tsList.Count > 1 Then51Testing软件测试网{6j4L/Lf'Kybu

             Wshshell.Popup "同名测试集多于一个，请先删除多于测试集！【"&nPath&tSetName&"】",1,"运行时错误：",0

             Set tsList = Nothing

             Set tsFolder = Nothing

             Set tsTreeMgr = Nothing

             Set TDC = Nothing51Testing软件测试网2Gr)])G
z0q@?

             Set Wshshell = Nothing

             Exit Sub

      ElseIf tsList.Count < 1 Then51Testing软件测试网#F ABp9?p

             Wshshell.Popup "找不到测试集！【"&nPath&tSetName&"】",1,"运行时错误：",0

             Set tsList = Nothing51Testing软件测试网(rso0I6o v

             Set tsFolder = Nothing

             Set tsTreeMgr = Nothing

             Set TDC = Nothing51Testing软件测试网.k0orrkln6J8T{

             Set Wshshell = Nothing51Testing软件测试网L3{#Ctm.QZ2j

             Exit Sub

      End If51Testing软件测试网8G4}m.E*x'jA2[
LX

 51Testing软件测试网2K2}T|
~;?@&QV

      '报告当前运行测试集的测试集信息

      Set theTestSet = tsList.Item(1)

 51Testing软件测试网pW/K^:EL!w@

      Wshshell.Popup "当前运行测试集ID为："&theTestSet.ID&"测试集名称为："&tSetName&"】",1,"当前运行测试集为：",051Testing软件测试网3x^3TQRLajR

      '判断运行模式：本机执行、代理执行，并且选择代理运行的执行机51Testing软件测试网
G LlM~Y

 51Testing软件测试网K|_Y&L"G

      If    Trim(runMode) = "localrun" Then

             Set Scheduler = theTestSet.StartExecution(LocalHost)

             Scheduler.RunAllLocally = True51Testing软件测试网[(Du5JQ w!T+g

             Scheduler.Run51Testing软件测试网 l;YMOV N

      ElseIf Trim(runMode) = "remoterun" Then

             Set Scheduler = theTestSet.StartExecution(LocalHost)

             Scheduler.TdHostName = runHostName

             Scheduler.Run51Testing软件测试网8xW?^ ]Z

      Else51Testing软件测试网TU9y{ DD2d

             Wshshell.Popup "调用接口错误，无此运行选项：【"&runMode&"】",1,"运行时错误：",051Testing软件测试网@lf5N8}hJ8c C8K

             Set tsList = Nothing51Testing软件测试网1H"\$ros

             Set tsFolder = Nothing

             Set tsTreeMgr = Nothing

             Set TDC = Nothing51Testing软件测试网L/i?};{7AnZP

             Set Wshshell = Nothing51Testing软件测试网 yv#g)E;X

             Exit Sub51Testing软件测试网;Qj HDWy

      End If

 51Testing软件测试网0KYs;`.P3\]LH

      '判断运行是否结束，没有结束则继续循环知道结束，否则进行后续处理

      Set execStatus = Scheduler.ExecutionStatus51Testing软件测试网tc2V#jy8g@#A

 51Testing软件测试网Xni!nK `

      mailMessage = "<HTML><HEAD><STYLE> TYPE=""TEXT/CSS"">ATS{COLOR:NAVY;FONT-SIZE:12PX;}Atest{BACKGROUND:GRAY;}</STYLE></HEAD>"&_51Testing软件测试网#MmvDVO[n

      "<BODY>"&_51Testing软件测试网o\,X$c&d?%k#L

             "<ATS>测试集"&tSetName&"执行时间："&Now&"结果报告</ATS><BR>"&_51Testing软件测试网[6X/?`a6u"?
t%d!ij

                    "<TABLE>"&_51Testing软件测试网 SHX`4Z)fm

                           "<TR BGCOLOR=""NAVY""><B>测试名称</B></FONT></TD>"&_

                           "<TR BGCOLOR=""NAVY""><B>执行状态</B></FONT></TD>"&_

                           "<TR BGCOLOR=""NAVY""><B>执行主机</B></FONT></TD>"&_

                           "</TR>"51Testing软件测试网#{LPtI

      While (RunFinished = False) Then51Testing软件测试网 r@#O}1qG/s+t"a

             execStatus.RefreshExecStatusInfo "all",True

             RunFinished = execStatus.Finished51Testing软件测试网!InvbW}R

             Set EventList = execStatus.EventList

             Wscript.sleep 500051Testing软件测试网O'W3qgD

      Wend51Testing软件测试网n,Sd2v
L.F`A
U

      Set theTestSet = tcList.Item(1)51Testing软件测试网-d+a h$kR

      Set TSTestFact = theTestSet.TSTestFactory

      Set TestSetTestsList = TSTestFact.NewList("")51Testing软件测试网$NG/pRB OJ

 51Testing软件测试网"IPs2xPU2O7ql
C8zxY

      For i = 1 To execStatus.Count

             Set TestExecStatusObj = execStatus.Item(i)

 51Testing软件测试网#C,h/TQ2q3f

             testName = TestSetTestsList.Item(i).Name

             resState = TestExecStatusObj.Message

 51Testing软件测试网h'I&?H;_l A D6~
U

             mailMessage = mailMessage&"<TR ALIGN=""MIDDLE""><TD>"&i&"</TD><TD>"&testName&"</TD><TD>"&resState&"</TD><TD>"&runHostName&"</TD></TR>"51Testing软件测试网'}&h bMrQz
mn

      Next51Testing软件测试网WvK3Q#j;QC

 51Testing软件测试网9UVA4Q5I3l

      mailMessage = mailMessage&"</TABLE></BODY></HTML>"

 51Testing软件测试网x ['g n#\Z,Y4O

      Wshshell.Popup "执行全部完成于【"&CStr(Now)&"】",1,"执行结果通知：",051Testing软件测试网,PP{W? Sv

      '此处向EXCEL或数据库回写测试结果，计算该测试集案例个数、运行个数、成功个数，生成报表，发送邮件，进行下一个测试集的运行

 51Testing软件测试网;@eQ3Q+h#h s

      TDC.SendMail resultGetter,"","自动化测试集【Root\"&tsFolderName&tSetName&"】于【"&Now&"】完成的运行结果报告",mailMessage,"","HTML"51Testing软件测试网9bsf"uPD

 51Testing软件测试网Mz`gO9H}

      TDC.Disconnect()

      TDC.Logout()51Testing软件测试网)^6R,?'w-e @8zE/K

      TDC.ReleaseConnection()51Testing软件测试网^a){]A5}0b

      '结束之后清空所有对象退出运行51Testing软件测试网6[0w%{#Aq)mnHEv"P

 51Testing软件测试网q#?,W$vb

      Set TestSetTestsList = Nothing51Testing软件测试网9k#^!Ls/G7T

      Set TSTestFact = Nothing

      Set theTestSet = Nothing51Testing软件测试网9g/u.R%Vn+R^

      Set tsList = Nothing

      Set tsFolder = Nothing

      Set tsTreeMgr = Nothing51Testing软件测试网.dY[5Zo _v

      Set Wshshell = Nothing

      Set TDC = Nothing

End Sub

 51Testing软件测试网j(E:s
jQ*[4D5i'P

'过程调用，做循环处理：从WEB页面传入测试集信息，保存之后开始运行

'实现思路：每次清空页面上次写入的记录之后重新写入测试集信息，如果建表，则【测试集名称】字段做主键

 51Testing软件测试网"R:TZKs
s l5d

Call RunTestSet("http://qc/qcbin","核心运营","某某系统","LIUYI",psWord,"自动化测试\回归测试\","试验","remoterun","10.31.10.1","LIUYI@AAA.COM,HUYANG@AAAA.COM")