自动化测试qtp框架之

1、QTP 测试框架之_作者：Wally ）E QTP 测试框架之_作者：Wally ）E 1Report HYPERLINK http:/w/ /knowl.ut-Functionruntime=Report HYPERLINK http:/w/ /knowl.ut-Functionruntime=Date&-&Hour(Now)&Minute(Now)&ath=call EndFunctionReportQTP(testCaseName,result,fullPath=ReadLastLine(D:QTP_Frameworkreportconfigmse) ReportExcelFile =

2、fullPath &report.xlsCaptureFilePath=Environment(TCase)=CallReport(result,comment,ReportExcelFile,CaptureFilePath) End FunctionistheIPaddof theexecution Public Function GetIP DimSetobjWMIService=gmts:&ComputerName&SetcolItems=objWMIService.ExecQuery(Select*FromWin32_NetworkAdapterConfiguration Where

3、IPEnabled = True)ForEachobjIteminForEachobjAddressinobjItem.IPAddress If objAddress thenGetIP=objAddress Exit FunctionEnd2Endisthefunctionforisusofexecution,validEndisthefunctionforisusofexecution,validinputare:FAIL?PASS,isthecomment/notesforthisPublicFunctionReport(sS us,sDetails,ReportExcelFile,Di

4、m fso DimoExcelDim ExcelFile DimobjWorkBook Dim objSheetDimNewTC Dim S us Dim tempDimSetfso=SetoExcel=S us=UCase(sS oExcel.Visible=falseSettingexcelIf Notfso.FileExists(ReportExcelFile)Then Getsheetof SetobjSheet=3With.Name=With.Name=TestingResult testing results set the fonts type and size.Range(A:

5、D).Font.Name=.Range(A:D).Font.Size=setthestyleoftheheadoftheerior.ColorIndex=.Range(B1:C1).Font.ColorIndex=.Range(B1:C1).Font.Bold=settheexecution .Range(C6).NumberFormat=SettheBordersfortheDate&Time.Range(C3:C8).HorizontalAlignment=4right4.Range(C3:C8).Font.Bold=.Range(C3:C8).Font.ColorIndex=.Range

6、(C3:C8).Font.Bold=.Range(C3:C8).Font.ColorIndex= FormattheDateandTimeerior.ColorIndex=.Range(B3:C8).Font.ColorIndex=.Range(C3:C8).Font.ColorIndex=.Range(B3:A8).Font.Bold= setstyleforResulterior.ColorIndex=.Range(B10:D10).Font.ColorIndex=.Range(B10:D10).Font.Bold=setstyleforResult .Range(B10:D10).Hor

7、izontalAlignment=- 5End With SetobjSheet=EndEnd With SetobjSheet=EndSet objSheet = oExcel.Sheets(Testing Result)WithEnvironment.Value(Row) =.Range(C7).Value+11 NewTC = False .Cells(Environment(Row),3).Value=S .Cells(Environment(Row),4).value=.Cells(Environment(Row),5).value=clickthislinktoseeSelectC

8、ase.Range(C&Environment(Row).Font.ColorIndex=temp=Date&-&Hour(Now)&Minute(Now)&PngPath=CaptureFilePath&temp&.Hyperlinks.AddobjSheet.Cells(Environment(Row),5),PngPath,CallCapture(temp,Case.Range(C&Environment(Row).Font.ColorIndex=6temp=Date&-&Hour(Now)&Minute(Now)&PngPath=temp=Date&-&Hour(Now)&Minute

9、(Now)&PngPath=CaptureFilePath&temp&.Hyperlinks.AddobjSheet.Cells(Environment(Row),5),PngPath,CallCapture(temp,CaptureFilePath) Case WARNING.Range(C&Environment(Row).Font.ColorIndex=temp=Date&-&Hour(Now)&Minute(Now)&PngPath=CaptureFilePath&temp&.Hyperlinks.AddobjSheet.Cells(Environment(Row),5),PngPat

10、h,CallCapture(temp,EndNewTC=set board.Range(B & Environment(Row) & :D & Environment(Row).Borders(1).LineStyle 1.Range(B & Environment(Row) & :D & Environment(Row).Borders(2).LineStyle 1.Range(B & Environment(Row) & :D & Environment(Row).Borders(3).LineStyle 1.Range(B & Environment(Row) & :D & Enviro

11、nment(Row).Borders(4).LineStyle 1setfonttypeand.Range(B & Environment(Row) & :D & erior.ColorIndex .Range(B&Environment(Row).Font.ColorIndex=.Range(D&Environment(Row).Font.ColorIndex=.Range(B&Environment(Row)&:D&Environment(Row).Font.Bold=7EndIf(NotNewTC)And(S usEndIf(NotNewTC)And(S us=FAIL) .Range(

12、C&Environment(Row).Font.ColorIndex=3 end IfupdateendEnd With save result SetobjSheet=SetobjWorkBook=Nothing Set oExcel = NothingSetfso=EndPublicFunctionCapture(fileNo,CaptureFilePath) Dim datestDim= filename = fileNo & .png filename=Replace(filename,/,) filename=filename=CaptureFilePath+&filename De

13、sktop.CaptureBitmap filenameReporter.ReportEventmicFail,image,imgsrc=&filename&8EndAppendtoEndAppendtotxtDim fileSystemObj,fileSpec,logFile,waySetfileSystemObj=CreateObject(Scripting.FileSystemObject) fileSpec = pathwaySetlogFile=fileSystemObj.OpenTextFile(fileSpec,8,true) ine (CStr(words)SetlogFile

14、=Nothing End FunctionReadlastlineoftxtFunctionReadLastLine(pathway) Dim fso,myfileSetfso=CreateObject(scripting.FileSystemObject) Set myfile = fso.openTextFile(pathway,1,false)WhileNotmyfile.AtEndOfLine temp=ReadLastLine=temp End FunctionFunctionCreatFolderIfNotExist(fldr) Dim fso, msgSetfso=CreateO

15、bject(Scripting.FileSystemObject) If Not (fso.FolderExists(fldr) ThenSetf=fso.CreateFolder(fldr) End IfEnd9Dimfso, tConstForWriting=Dimfso, tConstForWriting=dim stTime dim enTime dim objIEdimOpenFileC:TesthtmlAddNewCaseAddNewCaseAddNewCase3,X,X,X,Pass FunctionToOpentheHTMLFunctionstTime = TimeSet fs

16、o = CreateObject(Scripting.FileSystemObject) Setts=fso.OpenTextFile(strFileName,ForWriting,True) strFileURL = strFileNameEndFunctionToCreateFunctionine(Test Results)order=0width=100% size=2Expectedsize=2Actualts.wri EndFunctionine(Test Results)order=0width=100% size=2Expectedsize=2Actualts.wri EndFu

17、nctionToAddNewts.wri ine(td width=13% bgcolor=# ts.wri ine(td width=24% bgcolor=# ts.wri ine(tdwidth=23%bgcolor=# ts.wri ine( & strTCID FDC valign=top align=justify & strObjective FDCvalign=topalign=justify&strExpectedResultFDC valign=top align=justify & strActualResult color=Greenface=Tahomasize=2&

18、strPassFail&PassPass+ts.wri ine(&strPassFail&FailendFail+color=Greenface=Tahomasize=2&strPassFail&PassPass+ts.wri ine(&strPassFail&FailendFail+EndFunctionToFooterFunctionFooter() Dim EndTime EndTime=TimerenTime=order=0ine(td width=100% face=Tahoma ts.wri ine(font Passed& ts.wri ine(td width=45% Failedface=Tahoma size=2Total Tests Pass & )face=Tahoma size=2Total Fail&ine(td width=45% bgcolor=# Ontd width=55% bgcolor= # Timetdw