UFT/QTP HTML RESULTS FUNCTIONS

Public Function commonconfig (environmentFilePath)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(environmentFilePath)) Then   '"D:\QTP POC\ENVIRONMENT\commonconfig.xml"
        Environment.LoadFromFile(environmentFilePath)
else
msgbox "Environment variable file is missing. Place the file and Try again !!"
End If
End Function

#################################################################################

Public Function logger(filePath,message)
Dim fso,f,wr
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.Fileexists(filePath&"log_"&DatePart("d",Date)&"_"&DatePart("m",Date)&"_"&DatePart("YYYY",Date)&".txt")) Then
else
fso.createtextfile (filePath&"log_"&DatePart("d",Date)&"_"&DatePart("m",Date)&"_"&DatePart("YYYY",Date)&".txt")
End If
Set f = fso.getfile(filePath&"log_"&DatePart("d",Date)&"_"&DatePart("m",Date)&"_"&DatePart("YYYY",Date)&".txt")
set wr = f.OpenAsTextStream(8,-2)
wr.write now &"  -  "
wr.writeline message
'msgbox "log has been updated..."
wr.writeblanklines 1
wr.close
End Function
#################################################################################
Public Function ReportFileStatus(filepath)
Dim fso, status
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(filepath)) Then
status=1
Else
status=0
End If
ReportFileStatus = status
End Function
#################################################################################
Public Function html_logger(filePath)
Dim fso,f,wr
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.Fileexists(filePath&"Test_Result_"&day(date)&"_"&month(date)&"_"&year(date)&".html")) Then
html_logger = filePath&"Test_Result_"&day(date)&"_"&month(date)&"_"&year(date)&".html"
environment.value("htmllogfile") = html_logger
Exit Function
Else
fso.createtextfile (filePath&"Test_Result_"&day(date)&"_"&month(date)&"_"&year(date)&".html")
End If
html_logger = filePath&"Test_Result_"&day(date)&"_"&month(date)&"_"&year(date)&".html"
environment.value("htmllogfile") = html_logger
Set f = fso.getfile(filePath&"Test_Result_"&day(date)&"_"&month(date)&"_"&year(date)&".html")
set wr = f.OpenAsTextStream(8,-2)
'wr.writeline"<img src = http://192.168.20.59/logo.gif>"
'wr.writeline "<A Name="&chr(34)&"Head"&chr(34)&"><h1> Test Automation Summary </h1></A>"
'wr.writeline "<img src=http://chart.apis.google.com/chart?chs=300x200&cht=p2&chl=PASS|FAIL&chd=t:60.0,30.0&chco=0000FF width=300 height=200<br />"
'wr.writeline "<hr>"
wr.writeline "<A Name="&chr(34)&"Head"&chr(34)&"><h1> Automation Test Report </h1></A>"
wr.writeline "<br><br><h5><u>Release</u> : "&" "&Environment.Value("Release")&"</h5><br>"
wr.writeline "<h5><u> Build</u> : "&" "&Environment.Value("Build")&"</h5><br>"
wr.writeline "<h5><u> URL</u> : "&" "&"<a href = "&Environment.Value("URL")&">"&Environment.Value("URL")&"</a></h5><br>"
wr.writeline "<hr>"
wr.writeline "<style type=text/css>"
wr.writeline "body {"
wr.writeline " font:normal 68% verdana,arial,helvetica;"
wr.writeline " color:#000000;"
wr.writeline "}"
wr.writeline "table tr td, table tr th {"
wr.writeline "font-size: 68%;"
wr.writeline "}"
wr.writeline "table.details tr th{"
wr.writeline " font-weight: bold;"
wr.writeline " text-align:left;"
wr.writeline " background:#a6caf0;"
wr.writeline " white-space: nowrap;"
wr.writeline "}"
wr.writeline "table.details tr td{"
wr.writeline " background:#eeeee0;"
wr.writeline " white-space: nowrap;"
wr.writeline "}"
wr.writeline "h1 {"
wr.writeline " margin: 0px 0px 5px; font: 165% verdana,arial,helvetica"
wr.writeline "}"
wr.writeline "h2 {"
wr.writeline " margin-top: 1em; margin-bottom: 0.5em; font: bold 125% verdana,arial,helvetica"
wr.writeline "}"
wr.writeline "h3 {"
wr.writeline " margin-bottom: 0.5em; font: bold 115% verdana,arial,helvetica"
wr.writeline "}"
wr.writeline ".Failure {"
wr.writeline " font-weight:bold; color:red;"
wr.writeline "}"
wr.writeline "</style>"
wr.writeline "<table class=details cellspacing=2 border=0 width=100% cellpadding=5>"
wr.writeline "<tr>"
wr.writeline "<th width="&chr(34)&"15%"&chr(34)&" align="&chr(34)&"left"&chr(34)&">Test Step</th>"
wr.writeline "<th width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"left"&chr(34)&">Start Time</th>"
wr.writeline "<th width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"left"&chr(34)&">End Time</th>"
wr.writeline "<th width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"left"&chr(34)&">Elapsed Time (sec)</th>"
wr.writeline "<th width="&chr(34)&"40%"&chr(34)&" align="&chr(34)&"left"&chr(34)&">Details</th>"
wr.writeline "</tr>"
'msgbox "log file has been created..."
wr.writeblanklines 1
wr.close
End Function

#################################################################################
Public Function htmlstart_logger(teststep)
Dim fso,f,wr
Set fso = CreateObject("Scripting.FileSystemObject")
html_log_file = environment.value("htmllogfile")
If (fso.Fileexists(html_log_file)) Then
else
msgbox "Error in retrieving log file"
End If
start_time = now
t1=timer
environment.value("start_time") = timer
Set f = fso.getfile(html_log_file)
set wr = f.OpenAsTextStream(8,-2)
'wr.write "<td width="&chr(34)&"15%"&chr(34)&" align="&chr(34)&"left"&chr(34)&">"&teststep&"</td>"
'wr.write "<td width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"left"&chr(34)&">"&start_time&"</td><br>"
    wr.writeline "<td width="&chr(34)&"15%"&chr(34)&" align="&chr(34)&"left"&chr(34)&"><b><font color=blue>"&teststep&"</b></font></td>"
    wr.writeline "<td width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"left"&chr(34)&">"&start_time&"</td>"
wr.writeline "<td width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"left"&chr(34)&"></td>"
wr.writeline "<td width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"center"&chr(34)&"></td>"
wr.writeline "<td width="&chr(34)&"20%"&chr(34)&" align="&chr(34)&"left"&chr(34)&"></td>"
wr.writeblanklines 1
wr.writeline "</tr>"
'msgbox "log has been updated..."
End Function

################################################################################
Public Function html_logger_end(details)
Dim fso,f,wr,a,b
Set fso = CreateObject("Scripting.FileSystemObject")
html_log_file = environment.value("htmllogfile")
If (fso.Fileexists(html_log_file)) Then
else
msgbox "Error in retrieving log file"
End If
Set f = fso.getfile(html_log_file)
set wr = f.OpenAsTextStream(8,-2)
'WScript.Sleep 2000
            wr.writeline "<td width="&chr(34)&"15%"&chr(34)&" align="&chr(34)&"left"&chr(34)&"></td>"
    wr.writeline "<td width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"left"&chr(34)&"></td>"
wr.writeline "<td width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"left"&chr(34)&">"&now&"</td>"
            t1 = environment.value("start_time")
t2 = timer
elapsed_time = t2 - t1
wr.writeline "<td width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"center"&chr(34)&">"&Round(elapsed_time,2)&"</td>"
wr.writeline "<td width="&chr(34)&"20%"&chr(34)&" align="&chr(34)&"left"&chr(34)&"><b><font color=blue>"&details&"</b></font></td>"
            wr.writeblanklines 1
wr.writeline "</tr>"
wr.writeline "<tr>"
wr.writeline "</tr>"
'msgbox "status log file has been created and updated..."
   'wr.close
End Function
#################################################################################
Public function html_logger_message(message)
Dim fso,f,wr,a,b
Set fso = CreateObject("Scripting.FileSystemObject")
html_log_file = environment.value("htmllogfile")
If (fso.Fileexists(html_log_file)) Then
else
msgbox "Error in retrieving log file"
End If
Set f = fso.getfile(html_log_file)
set wr = f.OpenAsTextStream(8,-2)
wr.writeline "<td width="&chr(34)&"15%"&chr(34)&" align="&chr(34)&"left"&chr(34)&">User Message</td>"
wr.writeline "<td width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"left"&chr(34)&"></td>"
wr.writeline "<td width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"left"&chr(34)&"></td>"
wr.writeline "<td width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"center"&chr(34)&"></td>"
wr.writeline "<td width="&chr(34)&"25%"&chr(34)&" align="&chr(34)&"left"&chr(34)&">"&message&"</td>"
wr.writeblanklines 1
wr.writeline "</tr>"
End Function
#################################################################################
Public function html_logger_fail_message(message)
Dim fso,f,wr,a,b
Set fso = CreateObject("Scripting.FileSystemObject")
html_log_file = environment.value("htmllogfile")
If (fso.Fileexists(html_log_file)) Then
else
msgbox "Error in retrieving log file"
End If
Set f = fso.getfile(html_log_file)
set wr = f.OpenAsTextStream(8,-2)
wr.writeline "<td width="&chr(34)&"15%"&chr(34)&" align="&chr(34)&"left"&chr(34)&">User Message</td>"
wr.writeline "<td width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"left"&chr(34)&"></td>"
wr.writeline "<td width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"left"&chr(34)&"></td>"
wr.writeline "<td width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"center"&chr(34)&"></td>"
wr.writeline "<td width="&chr(34)&"25%"&chr(34)&" align="&chr(34)&"left"&chr(34)&"><font color=red>"&message&"</font></td>"
wr.writeblanklines 1
wr.writeline "</tr>"
End Function
#################################################################################
Function SendMail(SendTo, Subject, Body, Attachment)
Set ol=CreateObject("Outlook.Application")
Set Mail=ol.CreateItem(0)
Mail.to=SendTo
Mail.Subject=Subject
Mail.Body=Body
If (Attachment <> "") Then
Mail.Attachments.Add(Attachment)
End If
Mail.Send
ol.Quit
Set Mail = Nothing
Set ol = Nothing
End Function
#################################################################################
Public Function html_logger(filePath)
Dim fso,f,wr
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.Fileexists(filePath&"Test_Result_"&day(date)&"_"&month(date)&"_"&year(date)&".html")) Then
html_logger = filePath&"Test_Result_"&day(date)&"_"&month(date)&"_"&year(date)&".html"
environment.value("htmllogfile") = html_logger
Exit Function
Else
fso.createtextfile (filePath&"Test_Result_"&day(date)&"_"&month(date)&"_"&year(date)&".html")
End If
html_logger = filePath&"Test_Result_"&day(date)&"_"&month(date)&"_"&year(date)&".html"
environment.value("htmllogfile") = html_logger
Set f = fso.getfile(filePath&"Test_Result_"&day(date)&"_"&month(date)&"_"&year(date)&".html")
set wr = f.OpenAsTextStream(8,-2)
wr.writeline "<hr>"
wr.writeline "<A Name="&chr(34)&"Head"&chr(34)&"><h1> Automation Test Report </h1></A>"
'wr.writeline "<hr>"
wr.writeline "<style type=text/css>"
wr.writeline "body {"
wr.writeline " font:normal 68% verdana,arial,helvetica;"
wr.writeline " color:#000000;"
wr.writeline "}"
wr.writeline "table tr td, table tr th {"
wr.writeline "font-size: 68%;"
wr.writeline "}"
wr.writeline "table.details tr th{"
wr.writeline " font-weight: bold;"
wr.writeline " text-align:left;"
wr.writeline " background:#a6caf0;"
wr.writeline " white-space: nowrap;"
wr.writeline "}"
wr.writeline "table.details tr td{"
wr.writeline " background:#eeeee0;"
wr.writeline " white-space: nowrap;"
wr.writeline "}"
wr.writeline "h1 {"
wr.writeline " margin: 0px 0px 5px; font: 165% verdana,arial,helvetica"
wr.writeline "}"
wr.writeline "h2 {"
wr.writeline " margin-top: 1em; margin-bottom: 0.5em; font: bold 125% verdana,arial,helvetica"
wr.writeline "}"
wr.writeline "h3 {"
wr.writeline " margin-bottom: 0.5em; font: bold 115% verdana,arial,helvetica"
wr.writeline "}"
wr.writeline ".Failure {"
wr.writeline " font-weight:bold; color:red;"
wr.writeline "}"
wr.writeline "</style>"
wr.writeline "<table class=details cellspacing=2 border=0 width=100% cellpadding=5>"
wr.writeline "<tr>"
wr.writeline "<th width="&chr(34)&"15%"&chr(34)&" align="&chr(34)&"left"&chr(34)&">Test Step</th>"
wr.writeline "<th width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"left"&chr(34)&">Start Time</th>"
wr.writeline "<th width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"left"&chr(34)&">End Time</th>"
wr.writeline "<th width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"left"&chr(34)&">Elapsed Time (sec)</th>"
wr.writeline "<th width="&chr(34)&"40%"&chr(34)&" align="&chr(34)&"left"&chr(34)&">Details</th>"
wr.writeline "</tr>"
'msgbox "log file has been created..."
wr.writeblanklines 1
wr.close
End Function
#################################################################################
Public Function html_logger_result(filePath, moduleName, noTestCases,pass,fail)
    Dim fso,f,wr
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.Fileexists(filePath&"Test_Result_Summary_"&day(date)&"_"&month(date)&"_"&year(date)&".html")) Then
html_logger_result = filePath&"Test_Result_Summary_"&day(date)&"_"&month(date)&"_"&year(date)&".html"
environment.value("htmllogfile") = html_logger_result
Exit Function
Else
fso.createtextfile (filePath&"Test_Result_Summary_"&day(date)&"_"&month(date)&"_"&year(date)&".html")
End If
html_logger_result = filePath&"Test_Result_Summary_"&day(date)&"_"&month(date)&"_"&year(date)&".html"
environment.value("htmllogfile") = html_logger_result
Set f = fso.getfile(filePath&"Test_Result_Summary_"&day(date)&"_"&month(date)&"_"&year(date)&".html")
set wr = f.OpenAsTextStream(8,-2)
'wr.writeline"<img src = http://192.168.20.59/logo.gif>"
wr.writeline "<A Name="&chr(34)&"Head"&chr(34)&"><h1> <B>Test Automation Summary</B> </h1></A>"
wr.writeline "<br><h4><u>Release</u> : "&" "&Environment.Value("Release")&"</h4>"
wr.writeline "<h4><u> Build</u> : "&" "&Environment.Value("Build")&"</h4>"
wr.writeline "<h4><u> URL</u> : "&" "&"<a href = "&Environment.Value("URL")&">"&Environment.Value("URL")&"</a></h4>"
wr.writeline "<h4><u> Module Name</u> : "&" "&moduleName&"</h4>"
wr.writeline "<h4><u> No. of TestCases</u> : "&" "&noTestCases&"</h4>"
wr.writeline "<h4><u> Pass</u> : "&" "&pass&"</h4>"
wr.writeline "<h4><u> Fail</u> : "&" "&fail&"</h4>"
wr.writeline "<img src=http://chart.apis.google.com/chart?chs=500x200&cht=p&chl=PASS|FAIL&chd=t:"&pass&","&fail&"&chdl="&pass&"|"&fail&"&chdls=000000,34&chtt=Test+Automation+Summary&chco=00FF00|FF0000 width=500 height=200 alt=Test Automation Summary />"
End Function
#################################################################################

Public Function html_logger_combine_result(filePath)
    Dim fso,f,wr, gfile
Dim objTextFile, strText, objFSO, file1,file2

Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.Fileexists(filePath&"Automation_Test_Report_"&Environment.value("moduleName")&"_"&day(date)&"_"&month(date)&"_"&year(date)&".html")) Then
html_logger_combine_result = filePath&"Automation_Test_Report_"&Environment.value("moduleName")&"_"&day(date)&"_"&month(date)&"_"&year(date)&".html"
environment.value("htmllogfile") = html_logger_combine_result
Exit Function
Else
fso.createtextfile (filePath&"Automation_Test_Report_"&Environment.value("moduleName")&"_"&day(date)&"_"&month(date)&"_"&year(date)&".html")
End If
html_logger_combine_result = filePath&"Automation_Test_Report_"&Environment.value("moduleName")&"_"&day(date)&"_"&month(date)&"_"&year(date)&".html"
environment.value("htmllogfile") = html_logger_combine_result
Set f = fso.getfile(filePath&"Automation_Test_Report_"&Environment.value("moduleName")&"_"&day(date)&"_"&month(date)&"_"&year(date)&".html")
set wr = f.OpenAsTextStream(8,-2)
'wr.writeline"<img src = http://192.168.20.59/logo.gif>"
file1 = filePath&"Test_Result_Summary_"&day(date)&"_"&month(date)&"_"&year(date)&".html"
file2 = filePath&"Test_Result_"&day(date)&"_"&month(date)&"_"&year(date)&".html"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set gfile = objFSO.GetFile(file1)
Set objTextFile = gfile.OpenAsTextStream(1,-2) ' .OpenTextFile (file1,ForReading,False)
strText = objTextFile.ReadAll
'gfile.Close
wr.WriteLine strText
Set gfile = objFSO.GetFile(file2)
Set objTextFile = gfile.OpenAsTextStream(1,-2) ' .OpenTextFile (file1,ForReading,False)
'Set objTextFile = objFSO.OpenTextFile(file2,ForReading,False )
strText = objTextFile.ReadAll
objTextFile.Close
'gfile.Close
wr.WriteLine strText
wr.Close
'Delete the Summary File
objFSO.DeleteFile(file1)
'Delete the Test Result File
objFSO.DeleteFile(file2)
End Function
###############################################################################

Public Function html_logger_font(details)
Dim fso,f,wr,a,b
Set fso = CreateObject("Scripting.FileSystemObject")
html_log_file = environment.value("htmllogfile")
If (fso.Fileexists(html_log_file)) Then
else
msgbox "Error in retrieving log file"
End If
Set f = fso.getfile(html_log_file)
set wr = f.OpenAsTextStream(8,-2)
'WScript.Sleep 2000
    wr.writeline "<td width="&chr(34)&"15%"&chr(34)&" align="&chr(34)&"left"&chr(34)&"></td>"
wr.writeline "<td width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"left"&chr(34)&"></td>"
wr.writeline "<td width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"left"&chr(34)&">"&now&"</td>"
t1 = environment.value("start_time")
t2 = timer
elapsed_time = t2 - t1
wr.writeline "<td width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"center"&chr(34)&">"&Round(elapsed_time,2)&"</td>"
wr.writeline "<td width="&chr(34)&"20%"&chr(34)&" align="&chr(34)&"left"&chr(34)&"><b><font color=black>"&details&"</b></font></td>"
wr.writeblanklines 1
wr.writeline "</tr>"
wr.writeline "<tr>"
wr.writeline "</tr>"
'msgbox "status log file has been created and updated..."
    'wr.close
End Function
################################################################################

Public Function html_logger_pass_font(details)
Dim fso,f,wr,a,b
Set fso = CreateObject("Scripting.FileSystemObject")
html_log_file = environment.value("htmllogfile")
If (fso.Fileexists(html_log_file)) Then
else
msgbox "Error in retrieving log file"
End If
Set f = fso.getfile(html_log_file)
set wr = f.OpenAsTextStream(8,-2)
'WScript.Sleep 2000
wr.writeline "<td width="&chr(34)&"15%"&chr(34)&" align="&chr(34)&"left"&chr(34)&"></td>"
wr.writeline "<td width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"left"&chr(34)&"></td>"
wr.writeline "<td width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"left"&chr(34)&">"&now&"</td>"
t1 = environment.value("start_time")
t2 = timer
elapsed_time = t2 - t1
wr.writeline "<td width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"center"&chr(34)&">"&Round(elapsed_time,2)&"</td>"
wr.writeline "<td width="&chr(34)&"20%"&chr(34)&" align="&chr(34)&"left"&chr(34)&"><b><font color=blue>"&details&"</b></font></td>"
wr.writeblanklines 1
wr.writeline "</tr>"
wr.writeline "<tr>"
wr.writeline "</tr>"
'msgbox "status log file has been created and updated..."
'wr.close
End Function
#################################################################################

Public Function html_logger_fail_font(details)
Dim fso,f,wr,a,b
Set fso = CreateObject("Scripting.FileSystemObject")
html_log_file = environment.value("htmllogfile")
If (fso.Fileexists(html_log_file)) Then
else
msgbox "Error in retrieving log file"
End If
Set f = fso.getfile(html_log_file)
set wr = f.OpenAsTextStream(8,-2)
'WScript.Sleep 2000
wr.writeline "<td width="&chr(34)&"15%"&chr(34)&" align="&chr(34)&"left"&chr(34)&"></td>"
wr.writeline "<td width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"left"&chr(34)&"></td>"
wr.writeline "<td width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"left"&chr(34)&">"&now&"</td>"
t1 = environment.value("start_time")
t2 = timer
elapsed_time = t2 - t1
wr.writeline "<td width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"center"&chr(34)&">"&Round(elapsed_time,2)&"</td>"
wr.writeline "<td width="&chr(34)&"20%"&chr(34)&" align="&chr(34)&"left"&chr(34)&"><b><font color=red>"&details&"</b></font></td>"
wr.writeblanklines 1
wr.writeline "</tr>"
wr.writeline "<tr>"
wr.writeline "</tr>"
'msgbox "status log file has been created and updated..."
'wr.close
End Function
################################################################################

Public Function html_logger_Warning_message(details)
Dim fso,f,wr,a,b
Set fso = CreateObject("Scripting.FileSystemObject")
html_log_file = environment.value("htmllogfile")
If (fso.Fileexists(html_log_file)) Then
else
msgbox "Error in retrieving log file"
End If
Set f = fso.getfile(html_log_file)
set wr = f.OpenAsTextStream(8,-2)
'WScript.Sleep 2000
wr.writeline "<td width="&chr(34)&"15%"&chr(34)&" align="&chr(34)&"left"&chr(34)&"></td>"
wr.writeline "<td width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"left"&chr(34)&"></td>"
wr.writeline "<td width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"left"&chr(34)&">"&now&"</td>"
t1 = environment.value("start_time")
t2 = timer
elapsed_time = t2 - t1
wr.writeline "<td width="&chr(34)&"10%"&chr(34)&" align="&chr(34)&"center"&chr(34)&">"&Round(elapsed_time,2)&"</td>"
wr.writeline "<td width="&chr(34)&"20%"&chr(34)&" align="&chr(34)&"left"&chr(34)&"><b><font color=orange>"&details&"</b></font></td>"
wr.writeblanklines 1
wr.writeline "</tr>"
wr.writeline "<tr>"
wr.writeline "</tr>"
'msgbox "status log file has been created and updated..."
'wr.close
End Function
#################################################################################

Comments

Post a Comment

Popular posts from this blog

How To Run JMeter GUI Mode In Ubuntu Servers

Image
In Ubuntu server ,XMing open source software  can use to Run JMeter in GUI mode: Installing and Using Xming Xming is a lightweight X Window System implementation for Microsoft Windows.  It includes an X server, multiple X Window applications, and a launcher for both the X server and for several secure shell programs.  Xming is based on Cygwin/X, but is compiled to run on Windows with no additional compatibility layer. In May 2007, Xming became proprietary software.  This article deals with Xming 6.9.0.31, the last public domain version of Xming.  This version of Xming is known to work under Windows XP, Vista, 7, and 8.  The following steps were tested on a 64-bit Windows 7 installation. Downloading And Installing Xming The following steps cover downloading and installing Xming 6.9.0.31. 1. Download Xming 6.9.0.31 from the official SourceForge page ( http://sourceforge.net/projects/xming/files/Xming/ ). 2. Run Xming-6-9-0-31-setup.exe, and c...
Read more

SELENIUM

Image
SELENIUM  BASIC   Selenium: Webdriver: It is a free and open source web application automation tool, which performs the action on the application by calling native methods of the browser. Installing selenium web driver: or setup the web driver 1)       Required software’s: 2)       JDK(Java development kit) latest version 1.7 or 1.8 3)       Eclipse IDE 4)       Mozilla Firefox browser 5)       Selenium jar file Download the selenium jar file steps: 1)     Open browser and click this link : 2)       Click download version on selenium server section : 2.43.0 And save into respective location 3)     Open Eclipse create a java project Select->properties->Java build path  -> Libraries -> Add external Jar files And select the s...
Read more

Sql Basics With Examples

Image
Sql Basics with example :                                                                      Chapter 1 Database A database is the place of storage of the data in the form of tables Data means information which is very useful. A database is also collection of 1 or more tables. Table – a table is a collection of rows and columns. A cell is an intersection of a row and a column A column is also called as a field / attribute A record is also called as a row / tuple. A table is also called as an entity / relation. Note :- ·          If we install any of the database related software(s) – we can create our own database, we can create our own tables and we can store the data inside it. ·     When we install any database s/w(s) –...
Read more