User defined Result file

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' About : Delcaration of Constans and Variables
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Public g_sFileName 'Report Log File Name.
Public g_iCapture_Count 'Number of Images captured
Public g_iImage_Capture 'Flag for Image Capture in Result File
Public g_iPass_Count 'Pass Count
Public g_iFail_Count 'Fail Count
Public g_tStart_Time 'Start Time
Public g_tEnd_Time 'End Time

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' About : Procedure to Open a HTML File for Report Log
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Public Sub rep_Open_File(sFileName, iImageCapture)
Dim g_objReport 'File Object
Dim g_objFS 'File System Object

g_iPass_Count = 0
g_iFail_Count = 0
g_sFileName = sFileName
g_iImage_Capture = iImageCapture
Set g_objFS = CreateObject("Scripting.FileSystemObject")
Set g_objReport = g_objFS.OpenTextFile(g_sFileName, 2, True)
g_objReport.Write "<$$HTML><$$BODY><$$TABLE BORDER=0 CELLPADDING=3 CELLSPACING=1 WIDTH=100%>"
g_objReport.Write "<$$TR COLS=2><$$TD BGCOLOR=WHITE WIDTH=6%><$$IMG SRC='https://webaccess.kdc.capitalone.com/GetAccess/images/logo_sso.gif'><$/$TD><$$TD WIDTH=94% BGCOLOR=WHITE><$FONT FACE=VERDANA COLOR=NAVY SIZE=2><$$B> Helix ProphIT Automation - " & Date & " - " & Time & " on Machine " & Environment.Value("LocalHostName") & "<$$/B><$$/FONT><$$/TD><$$/TR><$$/TABLE>"
g_objReport.Write "<$$TABLE BORDER=0 BGCOLOR=BLACK CELLPADDING=3 CELLSPACING=1 WIDTH=100%>"
g_objReport.Close
Set g_objFS = Nothing
Set g_objReport = Nothing
g_tStart_Time = Now()
End Sub

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' About : Procedure to Insert a Section to Report Log
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Public Sub rep_Insert_Section(sSection)
Dim g_objReport 'File Object
Dim g_objFS 'File System Object
Set g_objFS = CreateObject("Scripting.FileSystemObject")
Set g_objReport = g_objFS.OpenTextFile(g_sFileName, 8, True)
g_objReport.Write "<$$TR><$$TD COLSPAN=6 BGCOLOR=#66699><$$FONT FACE=VERDANA COLOR=WHITE SIZE=2><$$B>" & sSection & "<$$/B><$$/FONT><$$/TD><$$/TR>"
g_objReport.Write "<$$TR COLS=6><$$TD BGCOLOR=#FFCC99 WIDTH=25%><$$FONT FACE=VERDANA COLOR=BLACK SIZE=2><$$B>Description<$$/B><$$/FONT><$$/TD><$$TD BGCOLOR=#FFCC99 WIDTH=25%><$$FONT FACE=VERDANA COLOR=BLACK SIZE=2><$$B>Expected Result<$$/B><$$/FONT><$$/TD><$$TD BGCOLOR=#FFCC99 WIDTH=25%><$$FONT FACE=VERDANA COLOR=BLACK SIZE=2><$$B>Actual Result<$$/B><$$/FONT><$$/TD><$$TD BGCOLOR=#FFCC99 WIDTH=25%><$$FONT FACE=VERDANA COLOR=BLACK SIZE=2><$$B>Result<$$/B><$$/FONT><$$/TD><$$TD BGCOLOR=#FFCC99 WIDTH=7%><$$FONT FACE=VERDANA COLOR=BLACK SIZE=2><$$B>Test Type<$$/B><$$/FONT><$$/TD><$$/TR>"
g_objReport.Close
Set g_objFS = Nothing
Set g_objReport = Nothing
End Sub

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' About : Procedure to Insert a Step to Report Log
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Public Sub rep_Insert_Step(sDesc)
Dim g_objReport 'File Object
Dim g_objFS 'File System Object
Set g_objFS = CreateObject("Scripting.FileSystemObject")
Set g_objReport = g_objFS.OpenTextFile(g_sFileName, 8, True)
g_objReport.Write "<$$TR><$$TD BGCOLOR=#EEEEEE COLSPAN=5><$$FONT FACE=VERDANA SIZE=2><$$B>" & sDesc & "<$$/B><$$/FONT><$$/TD><$$/TR>"
g_objReport.Close
Set g_objFS = Nothing
Set g_objReport = Nothing
End Sub

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' About : Procedure to Insert a Result to Report Log
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Public Sub rep_Insert_Result(sDesc, sExpected, sActual, sResult, sTestType)
Dim g_objReport 'File Object
Dim g_objFS 'File System Object
Dim l_sFile 'Bitmap File Name

Set g_objFS = CreateObject("Scripting.FileSystemObject")
Set g_objReport = g_objFS.OpenTextFile(g_sFileName, 8, True)

If sResult="PASS" Then
g_iPass_Count = g_iPass_Count + 1
If g_iImage_Capture=2 Then
l_sFile = Environment("ResultDir") & "\Screen" & g_iCapture_Count & ".png"
Desktop.CaptureBitmap l_sFile
g_iCapture_Count = g_iCapture_Count + 1
g_objReport.Write "<$$TR COLS=5><$TD BGCOLOR=#EEEEEE WIDTH=25%><$$FONT FACE=VERDANA SIZE=2>" & sDesc & "<$$/FONT><$$/TD><$$TD BGCOLOR=#EEEEEE WIDTH=25%><$$FONT FACE=VERDANA SIZE=2>" & sExpected & "<$$/FONT><$$/TD><$$TD BGCOLOR=#EEEEEE WIDTH=25%><$FONT FACE=WINGDINGS SIZE=4>2<$/FONT><$FONT FACE=VERDANA SIZE=2><$A HREF='" & l_sFile & "'>" & sActual & "<$/A><$/FONT><$/TD><$TD BGCOLOR=#EEEEEE WIDTH=7%><$FONT FACE='WINGDINGS 2' SIZE=5 COLOR=GREEN>P<$/FONT><$FONT FACE=VERDANA SIZE=2 COLOR=GREEN><$B>" & sResult & "<$/B><$/FONT><$/TD><$TD BGCOLOR=#EEEEEE WIDTH=18%><$FONT FACE=VERDANA SIZE=2>" & sTestType & "<$/FONT><$/TD><$/TR>"
Reporter.ReportEvent micPass,sDesc,sActual
Else
g_objReport.Write "<$TR COLS=5><$TD BGCOLOR=#EEEEEE WIDTH=25%><$FONT FACE=VERDANA SIZE=2>" & sDesc & "<$/FONT><$/TD><$TD BGCOLOR=#EEEEEE WIDTH=25%><$FONT FACE=VERDANA SIZE=2>" & sExpected & "<$/FONT><$/TD><$TD BGCOLOR=#EEEEEE WIDTH=25%><$FONT FACE=VERDANA SIZE=2>" & sActual & "<$/FONT><$/TD><$TD BGCOLOR=#EEEEEE WIDTH=7%><$FONT FACE='WINGDINGS 2' SIZE=5 COLOR=GREEN>P<$/FONT><$FONT FACE=VERDANA SIZE=2 COLOR=GREEN><$B>" & sResult & "<$/B><$/FONT><$/TD><$TD BGCOLOR=#EEEEEE WIDTH=18%><$FONT FACE=VERDANA SIZE=2>" & sTestType & "<$/FONT><$/TD><$/TR>"
Reporter.ReportEvent micPass,sDesc,sActual
End If
ElseIf sResult="FAIL" Then
g_iFail_Count = g_iFail_Count + 1
If g_iImage_Capture=1 Or g_iImage_Capture=2 Then
l_sFile = Environment("ResultDir") & "\Screen" & g_iCapture_Count & ".png"
Desktop.CaptureBitmap l_sFile
g_iCapture_Count = g_iCapture_Count + 1
g_objReport.Write "<$TR COLS=5><$TD BGCOLOR=#EEEEEE WIDTH=25%><$FONT FACE=VERDANA SIZE=2>" & sDesc & "<$/FONT><$/TD><$TD BGCOLOR=#EEEEEE WIDTH=25%><$FONT FACE=VERDANA SIZE=2>" & sExpected & "<$/FONT><$/TD><$TD BGCOLOR=#EEEEEE WIDTH=25%><$FONT FACE=WINGDINGS SIZE=4>2<$/FONT><$FONT FACE=VERDANA SIZE=2><$A HREF='" & l_sFile & "'>" & sActual & "<$/A><$/FONT><$/TD><$TD BGCOLOR=#EEEEEE WIDTH=7%><$FONT FACE='WINGDINGS 2' SIZE=5 COLOR=RED>O<$/FONT><$FONT FACE=VERDANA SIZE=2 COLOR=RED><$B>" & sResult & "<$/B><$/FONT><$/TD><$TD BGCOLOR=#EEEEEE WIDTH=18%><$FONT FACE=VERDANA SIZE=2>" & sTestType & "<$/FONT><$/TD><$/TR>"
Reporter.ReportEvent micFail,sDesc,sActual
Else
g_objReport.Write "<$TR COLS=5><$TD BGCOLOR=#EEEEEE WIDTH=25%><$FONT FACE=VERDANA SIZE=2>" & sDesc & "<$/FONT><$/TD><$TD BGCOLOR=#EEEEEE WIDTH=25%><$FONT FACE=VERDANA SIZE=2>" & sExpected & "<$/FONT><$/TD><$TD BGCOLOR=#EEEEEE WIDTH=25%><$FONT FACE=VERDANA SIZE=2>" & sActual & "<$/FONT><$/TD><$TD BGCOLOR=#EEEEEE WIDTH=7%><$FONT FACE='WINGDINGS 2' SIZE=5 COLOR=RED>O<$/FONT><$FONT FACE=VERDANA SIZE=2 COLOR=RED><$B>" & sResult & "<$/B><$/FONT><$/TD><$TD BGCOLOR=#EEEEEE WIDTH=18%><$FONT FACE=VERDANA SIZE=2>" & sTestType & "<$/FONT><$/TD><$/TR>"
Reporter.ReportEvent micFail,sDesc,sActual
End If
Else
g_objReport.Write "<$TR COLS=5><$TD BGCOLOR=#EEEEEE WIDTH=25%><$FONT FACE=VERDANA SIZE=2>" & sDesc & "<$/FONT><$/TD><$TD BGCOLOR=#EEEEEE WIDTH=25%><$FONT FACE=VERDANA SIZE=2>" & sExpected & "<$/FONT><$/TD><$TD BGCOLOR=#EEEEEE WIDTH=25%><$FONT FACE=VERDANA SIZE=2>" & sActual & "<$/FONT><$/TD><$TD BGCOLOR=#EEEEEE WIDTH=7%><$FONT FACE='WINGDINGS 2' SIZE=5 COLOR=RED>O<$/FONT><$FONT FACE=VERDANA SIZE=2 COLOR=BLACK><$B>" & sResult & "<$/B><$/FONT><$/TD><$TD BGCOLOR=#EEEEEE WIDTH=18%><$FONT FACE=VERDANA SIZE=2>" & sTestType & "<$/FONT><$/TD><$/TR>"
Reporter.ReportEvent micGeneral,sDesc,sActual
End If

g_objReport.Close
Set g_objFS = Nothing
Set g_objReport = Nothing
End Sub

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' About : Procedure to Close Report Log
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Public Sub rep_Close
Dim g_objReport 'File Object
Dim g_objFS 'File System Object
Set g_objFS = CreateObject("Scripting.FileSystemObject")
Set g_objReport = g_objFS.OpenTextFile(g_sFileName, 8, True)
g_tEnd_Time = Now()
g_objReport.Write "<$TR COLS=5><$TD BGCOLOR=BLACK WIDTH=25%><$FONT FACE=VERDANA COLOR=WHITE SIZE=2><$B>Pass Count : " & g_iPass_Count & "<$/B><$/FONT><$/TD><$TD BGCOLOR=BLACK WIDTH=25%><$FONT FACE=VERDANA COLOR=WHITE SIZE=2><$B>Fail Count : " & g_iFail_Count & "<$/B><$/FONT><$/TD><$TD BGCOLOR=BLACK WIDTH=25%><$FONT FACE=VERDANA COLOR=WHITE SIZE=2><$B>Time Taken : " & DateDiff("n",g_tStart_Time,g_tEnd_Time) & " Minutes<$/B><$/FONT><$/TD><$TD BGCOLOR=BLACK WIDTH=7%><$FONT FACE=VERDANA COLOR=WHITE SIZE=2><$B><$/B><$/FONT><$/TD><$TD BGCOLOR=BLACK WIDTH=18%><$FONT FACE=VERDANA COLOR=WHITE SIZE=2><$B><$/B><$/FONT><$/TD><$/TR>"
g_objReport.Write "<$/TABLE><$/BODY><$/HTML>"
g_objReport.Close
Set g_objFS = Nothing
Set g_objReport = Nothing
End Sub

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' About : Procedure to Show Report Log in Browser Window
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Public Sub rep_Show_Result
rep_Close
Set objIE = CreateObject("InternetExplorer.Application") ' Creating a new object for IE
objIE.Visible = True 'Setting the visible property to true
'msgbox g_sFileName & "#Summary"
objIE.Navigate g_sFileName & "#Summary"
End Sub