用于场景恢复的函数

　　在制作场景恢复的时候可以选择调用函数来解决，下面的函数就是为此写的。因为之前用的场景恢复只报错了，看报告后大概了解了Object、Method、Arguments、retVal等参数的意义，于是写了这个方法，一方面可以截图，另一方面可以在报告中看到哪个对象出问题了。因为我经常是通过公司的自动化平台调用测试案例，一般晚上或凌晨执行，第二天看结果，看结果的时候一般直接从QC打开报告查看，这样方便自己定位问题。

　　这个方法的作用我简单描述一下：首先是指定一个目录，然后检查是否从QC调用的(因为有时候自己单机执行也用到这个)，如果是就记录测试集的名称，如果不是就放到SingleTest目录，然后判断对应的目录是否存在，不存在就创建目录。之后是创建日期时间标签，然后把文件完整路径组合起来，并加上了案例名称，测试机器等等(因为有很多台机器，方便查看是否某台机器出问题了)。之后模拟2次回车按键是防止有异常对话框存在，然后把原来的对象语句自己还原回来，这样如果是某个对象执行什么操作的时候语句出错，就可以在报告里看到了。

　　当然并不是很完善，比如时间标签的分秒没有加0的判断，Arguments其实是个集合，只不过我只考虑了1个的情况，没考虑多个的情况。

　　需要用这个的朋友可以自己稍微维护改进一下。使用方法就是自己创建一个场景恢复，然后选择指定文件里的函数，下面的函数最好单独保存为一个文件，因为我之前把他和我的函数库放在一起，发现里面的初始化函数被执行了2次，可能和场景恢复有关，分开后就没问题了。

　　[vb] view plaincopyprint?

　　'用于恢复场景控制。

　　Function RecoveryFunctions(Object, Method, Arguments, retVal)

　　'有错误发生时，对Desktop进行截图并保存

　　' SaveTestError ""

　　Set objWS = CreateObject("WScript.Shell")

　　strDesktopFolder = "T:/TestData/测试组/测试截图/"

　　If QCUtil.IsConnected then

　　If TypeName(QCUtil.CurrentTestSet) <> "Nothing" Then

　　set CurrentTSTest = QCUtil.CurrentTestSet

　　strDesktopFolder = strDesktopFolder & CurrentTSTest.Name '如果从QC的测试集运行的，则保存到测试集名字的目录下

　　Else

　　strDesktopFolder = strDesktopFolder & "SingleTest" '如果不是从QC运行，保存到SingleTest目录下

　　End If

　　Else

　　strDesktopFolder = strDesktopFolder & "SingleTest"

　　End If

　　Set objFSO = CreateObject("Scripting.FileSystemObject")

　　If objFSO.FolderExists(strDesktopFolder) Then

　　Set objFolder = objFSO.GetFolder(strDesktopFolder)

　　Else

　　Set objFolder = objFSO.CreateFolder(strDesktopFolder)

　　End If

　　'确定保存文件的名称

　　tmpTime=Time()

　　t=Split(tmpTime,":")

　　If Len(t(0))<2 Then

　　t(0) = "0" & t(0)

　　End If

　　tmpTime=t(0) & t(1) & t(2)

　　tmpDate=CStr(Date())

　　tmpYear = CStr(Year(tmpDate))

　　tmpMonth = CStr(Month(tmpDate))

　　tmpDay = CStr(Day(tmpDate))

　　'如果月或日不足两位，前面补0

　　If Len(tmpMonth) < 2 Then

　　tmpMonth = "0" & tmpMonth

　　End If

　　If Len(tmpDay) < 2 Then

　　tmpDay = "0" & tmpDay

　　End If

　　tpmDate=tmpYear & tmpMonth & tmpDay

　　' strTimeStamp = CStr(Year(Now)) & CStr(Month(Now)) & CStr(Day(Now)) _

　　' & "_" & CStr(Hour(Now)) & CStr(Minute(Now)) & CStr(Second(Now))

　　strTimeStamp = tpmDate & "_" & tmpTime

　　strFile = strDesktopFolder & "/[测试案例]" & Environment("TestName") & "_[测试机器]" & Environment("LocalHostName") & "_[测试时间]" & strTimeStamp & "_Error.png" '组合出截图文件的名称

　　'对Desktop截图并保存

　　Desktop.CaptureBitmap strFile

　　reporter.Filter = 0

　　Reporter.ReportEvent micFail,"案例失败","本处提交失败报告是为了避免下面因为数据问题导致错误报告没有正常提交。"

　　reporter.Filter = 3

　　set WshShell = CreateObject("WScript.Shell")

　　WshShell.SendKeys "{ENTER}"

　　WshShell.SendKeys "{ENTER}"

　　strStepInfo = "Test(" & Environment("TestName") & ")-Action(" & Environment("ActionName") & ") 发生非预期错误，测试退出"

　　' strDetails = "错误编号：" & CStr(Err.Number) & "，错误描述：" & Err.Description

　　On Error Resume Next

　　oClass=Object.GetTOProperty("micclass")

　　oName=Object.GetTOProperty("name")

　　reporter.Filter = 0

　　Reporter.ReportEvent micFail, strStepInfo, oClass & "(" & Chr(34) & oName & Chr(34) & ")." & Method & " " & Arguments(0) & " 出现错误，错误编号：" & retVal

原文转自：http://www.ltesting.net