将屏幕截图添加到自定义UFT结果功能

Question

我有一个可以以自定义格式打印结果的功能，但是该功能不允许我在其中使用屏幕截图。

我已经使用了所有可能的方法在此功能中插入屏幕截图，但是它对我不起作用。

Public Function CustomResult(nStatus, sStep, sActual, sExpected, brow)
     Set oEventDesc = CreateObject("Scripting.Dictionary")
     oEventDesc("ViewType") = "Sell.Explorer.2"
     oEventDesc("Status") = nStatus
     oEventDesc("EnableFilter") = False
     oEventDesc("NodeName") = sStep
     Capture_Image(brow)
     Dim sHTMLInfo
     sHTMLInfo = "<TABLE border='0'>"
     If nStatus = 1 Then
         sHTMLInfo = sHTMLInfo & "<TR><TD><font color='red' size='2'>Actual Result: " & sActual & "</font></TD></TR>" 
     Else
         sHTMLInfo = sHTMLInfo & "<TR><TD><font color='green' size='2'>Actual Result: " & sActual & "</font></TD></TR>" 
     End If
     sHTMLInfo = sHTMLInfo & "<TR><TD><font color='blue' size='2'>Expected Result: " & sExpected & "</font></TD></TR></TABLE>" 

     oEventDesc("StepHtmlInfo") = sHTMLInfo
     newEventContext = Reporter.LogEvent ("Replay",oEventDesc,Reporter.GetContext) 
  End Function

此功能还应提供浏览器的屏幕截图以及结果。