QTP 资源函数库（Library Files）

 
           '******************************CheckPoint********************** 
          
           '******result---ReportEvent的状态 
          
           '******stepName---测试的名称 
          
           '******Detail---详细信息 
          
           '******Bool---布尔值，是否截屏并插入图片至报告中 
          
           '***************************************************************** 
          
           Function 
            CheckPoint(result,stepName,detail,Bool) 
          
           TestDir=Environment.Value( 
           "TestDir" 
           ) 
          
           TestName=Environment.Value( 
           "TestName" 
           ) 
          
           ActionName=Environment.Value( 
           "ActionName" 
           ) 
          
           If 
            Bool  
           Then 
          
           fileName=Left(createobject( 
           "Scriptlet.TypeLib" 
           ).Guid,38) 
          
           filePath=TestDir& 
           "\"&TestName&" 
           _ 
           "&ActionName&" 
           _ 
           "&fileName&" 
           .png" 
          
           Desktop.CaptureBitmap filePath,true 
          
           Reporter.ReportEvent result,stepName,detail,filePath 
          
           else 
          
           Reporter.ReportEvent result,stepName,detail 
          
           End 
            If 
          
           End 
            Function