隐藏方法-为Report添加HTML text个添加images

Set oEventDesc = CreateObject("Scripting.Dictionary")

oEventDesc("ViewType") = "Sell.Explorer.2"

oEventDesc("Status") = micPass

oEventDesc("EnableFilter") = False

oEventDesc("NodeName") = "HTML Text"

oEventDesc("StepHtmlInfo") = "<TABLE border='1'>" & _
"<TR><TD>Actual Value</TD><TD>Tarun</TD></TR>" & _
"<TR><TD>Expected Value</TD><TD>Tarun Lalwani</TD></TR>" & _
"<TR><TD>CheckPoint Status</TD><TD style='background-color:red'>Failed</TD></TR>" & _
"</TABLE>"

newEventContext = Reporter.LogEvent("Replay",oEventDesc,Reporter.GetContext)

 

Function AddFileTOReport(ByVal FileName, ByVal NodeName)

 Dim oDesc

 Set oDesc = CreateObject("Scripting.Dictionary")

 oDesc("ViewType") = "Sell.Explorer.2"

 oDesc("Status") = micInfo

 oDesc("StepInfo") = ""

 oDesc("NodeName") = NodeName

 oDesc("IsDirectEvent") = True

 oDesc("BottomFilePath") = Replace(FileName, Reporter.ReportPath & "\Report\", "")

 oDesc("ShowTopFile") = True

 oDesc("EnableFilter") = False

 oDesc("Action") = "InActUser"

 oDesc("DllPath") = Environment("ProductDir") & "\bin\Context-Manager.dll"

 oDesc("DllIconIndex") = 206

 oDesc("DllIconSelIndex") = 206

 Reporter.LogEvent "User", oDesc, Reporter.GetContext ' Reporter.GetContext

End Function

Desktop.CaptureBitmap Reporter.ReportPath & "\Report\MyFile.png"

AddFileTOReport "MyFile.png", "My File"