UFT - QTP - Function for getting current date in YYYY-MM-DD-HH-MM-SS format

 Link to Mandatory QTP /UFT Interview Questions to read before Interview

Some time you may have the need to format date and time in various formats.. hope this function will help you align your needs.


Function for getting current date in YYYY-MM-DD-HH-MM-SS format


Function GetFormatedCurrentDate()
 GetFormatedCurrentDate = 0, 
 If Len(Month(now)) = 1 Then
  CurrentMonth = 0 & Month(now)
   else
  CurrentMonth = Month(now)
 End If
If Len(Day(now)) = 1 Then
 CurrentDay = 0 & Day(now)
 else
 CurrentDay = Day(now)
 End If
 If Len(Hour(now)) = 1 Then
 CurrentHour = 0 & Hour(now)
 else
 CurrentHour = Hour(now)
 End If
 If Len(minute(now)) = 1 Then
    Currentminute = 0 & minute(now)
    Else
    Currentminute = minute(now)
 End If
 If Len(Second(now)) = 1 Then
    CurrentSecond = 0 & Second(now)
    else
    CurrentSecond = Second(now)
 End If, 
 GetFormatedCurrentDate = Year(now) & - & CurrentMonth & - & CurrentDay & T & CurrentHour & : & Currentminute & : & CurrentSecond", 
 End Function

 Link to Mandatory QTP /UFT Interview Questions to read before Interview

 

UFT - QTP- How to Maximize a Browser or Maximize Internet Explorer

  Link to Mandatory QTP /UFT Interview Questions to read before Interview

 



Here is a simple code that could help

 

Set objPage = Browser("name:=Nameofbrowser").page("title:=titleofbrowser")

Call BrowserMaximize(objpage)

Function BrowserMaximize(byval ObjPage)
    On Error resume next
    If objpage.Exist Then
        width = objPage.Object.parentwindow.screen.width
        height = objPage.Object.parentwindow.screen.height
        objpage.Object.Parentwindow.moveto 0,0
        objpage.Object.Parentwindow.resizeto width,height
        Reporter.ReportEvent micPass,"BrowserMaximize","Browser maximized"
    else
        Reporter.ReportEvent micFail,"BrowserMaximize","Browser/Page object does not exist"
    End If
    Err.clear
End Function

 

Or

Some may be using the Object Repository for the same purpose

Browser().page().Maximize may be also used in that case

 

 

 

  Link to Mandatory QTP /UFT Interview Questions to read before Interview

UFT - QTP - How to check for presence of string on a web page

                                        Link to Mandatory QTP /UFT Interview Questions to read before Interview

Function WebElement_CheckStringExistance(byval objPageName, byval InpPropertyname, byval InpPropertyvalue,byval outPropertyName, byval Index, byval strValueToverify)
  WebElement_CheckStringExistance = 0
  Set ObjPage= objPageName
   If Index ="" Then
    If ObjPage.WebElement(InpPropertyname & ":="& InpPropertyvalue).exist(10) then
    ObjPage.WebElement(InpPropertyname &":="& Inppropertyvalue).highlight ' comment later
    strvalue=ObjPage.WebElement(InpPropertyName &":="& Inppropertyvalue).GetROProperty(outPropertyName)
    Reporter.ReportEvent 4, "WebElement_CheckStringExistance", "Checking for string value "& strValueToverify
    Reporter.ReportEvent micPass,"WebElement_CheckStringExistance","Webelement  with Property " & InpPropertyName & "Property Value " & InpPropertyvalue & "Found"
    If instr(1,strvalue, strValueToverify) > 0Then
     Reporter.ReportEvent micPass,"WebElement_CheckStringExistance","String with value " & strValueToverify &"Found in webelement"
     WebElement_CheckStringExistance =0
    else
     Reporter.ReportEvent micfail,"WebElement_CheckStringExistance","String with value " & strValueToverify &"not found in webelement"
     WebElement_CheckStringExistance =1
    End If
   Else
    Reporter.ReportEvent 4, "WebElement_CheckStringExistance", "Checking for string value "& strValueToverify
    Reporter.ReportEvent micfail,"WebElement_CheckStringExistance","Webelement  with Property " & InpPropertyName & "Property Value " & InpPropertyvalue & "Found"
    WebElement_CheckStringExistance = 1
  End if
 else
  If ObjPage.WebElement(InpPropertyname & ":="& InpPropertyvalue , "Index:=" & Index).exist(10) then
    ObjPage.WebElement(InpPropertyname &":="& Inppropertyvalue,  "Index:=" & Index).highlight ' comment later
    strvalue=ObjPage.WebElement(InpPropertyName &":="& Inppropertyvalue,  "Index:=" & Index).GetROProperty(outPropertyName)
    Reporter.ReportEvent 4, "WebElement_CheckStringExistance", "Checking for string value "& InpPropertyvalue
    Reporter.ReportEvent micPass,"WebElement_CheckStringExistance","Webelement  with Property " & InpPropertyName & "Property Value " & InpPropertyvalue & "Found"
    If instr(1,strvalue, strValueToverify) > 0Then
     Reporter.ReportEvent micPass,"WebElement_CheckStringExistance","String with value " & strValueToverify &"Found in webelement"
     WebElement_CheckStringExistance =0
    else
     Reporter.ReportEvent micfail,"WebElement_CheckStringExistance","String with value " & strValueToverify &"not found in webelement"
     WebElement_CheckStringExistance =1
    End If
   Else
    Reporter.ReportEvent 4, "WebElement_CheckStringExistance", "Checking for string value "& strValueToverify
    Reporter.ReportEvent micfail,"WebElement_CheckStringExistance","Webelement  with Property " & InpPropertyName & "Property Value " & InpPropertyvalue & "Found"
    WebElement_CheckStringExistance = 1
  End if
 End if
End Function

                                        Link to Mandatory QTP /UFT Interview Questions to read before Interview

 

UFT - QTP - How to check presence of a Edit box or webedit on web page

                                        Link to Mandatory QTP /UFT Interview Questions to read before Interview

Function VerifyWebEdit_Existance(byval objPageName,  byval PropertyName, byval propertyvalue, byval Index)
   Set ObjPage= objPageName
   If Index ="" Then
    If ObjPage.WebEdit(PropertyName&":="&propertyvalue).exist(10) then
        ObjPage.WebEdit(PropertyName&":="&propertyvalue).highlight ' comment later
        Reporter.ReportEvent 4, "VerifyWebEdit_Existance", "Checking for Edit box "& propertyvalue
        Reporter.ReportEvent micPass,"VerifyWebEdit_Existance","Edit box with Property " & PropertyName & "Property Value " & propertyvalue & "Found"
        VerifyWebEdit_Existance =0
   Else
    Reporter.ReportEvent 4, "VerifyWebEdit_Existance", "Checking for Edit Box"& propertyvalue
    Reporter.ReportEvent micFail,"VerifyWebEdit_Existance","Edit Box with Property " & PropertyName & "Property Value " & propertyvalue & "was not Found or available"
    VerifyWebEdit_Existance = 1
  End if
 else
  If ObjPage.WebEdit(PropertyName&":="&propertyvalue, "Index:="&Index).exist(10) then
    Reporter.ReportEvent 4, "VerifyWebEdit_Existance", "Checking for Edit Box"& propertyvalue
    Reporter.ReportEvent micPass,"VerifyWebEdit_Existance","Edit Box with Property" & PropertyName & "Property Value" & propertyvalue & "Found"
    VerifyWebEdit_Existance =0
   Else
    Reporter.ReportEvent 4, "VerifyWebEdit_Existance", "Checking for Edit Box"& propertyvalue
    Reporter.ReportEvent micFail,"VerifyWebEdit_Existance","Edit box with Property" & PropertyName & "Property Value" & propertyvalue & "was not Found or available"
    VerifyWebEdit_Existance = 1
  End if
 End If
End Function

                                        Link to Mandatory QTP /UFT Interview Questions to read before Interview

UFT - QTP How to Click on Link on Web page

                                        Link to Mandatory QTP /UFT Interview Questions to read before Interview

Function ClickOnLink(byval objPageName,  byval PropertyName, byval propertyvalue, byval Index)
 Set ObjPage= objPageName
   If Index ="" Then
    If ObjPage.Link(PropertyName&":="&propertyvalue).exist(10) then
    ObjPage.Link(PropertyName&":="&propertyvalue).highlight ' comment later
    ObjPage.Link(PropertyName&":="&propertyvalue).click
    Reporter.ReportEvent 4, "ClickOnLink", "Checking for Link"& propertyvalue
    Reporter.ReportEvent micPass,"ClickOnLink","Link with Property " & PropertyName & "Property Value " & propertyvalue & "Found"
    Reporter.ReportEvent micPass,"ClickOnLink","Link with Property " & PropertyName & "Property Value " & propertyvalue & "Clicked"
    ClickOnLink =0
   Else
    Reporter.ReportEvent 4, "ClickOnLink", "Checking for Link"& propertyvalue
    Reporter.ReportEvent micFail,"ClickOnLink","Link with Property " & PropertyName & "Property Value " & propertyvalue & "was not Found or available"
    ClickOnLink = 1
  End if
 else
  If ObjPage.Link(PropertyName&":="&propertyvalue, "Index:="&Index).exist(10) then
    ObjPage.Link(PropertyName&":="&propertyvalue, "Index:="&Index).click
    Reporter.ReportEvent 4, "ClickOnLink", "Checking for lmage "& propertyvalue
    Reporter.ReportEvent micPass,"ClickOnLink","Link with Property " & PropertyName & "Property Value" & propertyvalue & "Found"
    Reporter.ReportEvent micPass,"ClickOnLink","Link with Property " & PropertyName & "Property Value " & propertyvalue & "Clicked"
    ClickOnLink =0
   Else
    Reporter.ReportEvent 4, "ClickOnLink", "Checking for Link"& propertyvalue
    Reporter.ReportEvent micFail,"ClickOnLink","Link with Property  " & PropertyName & "Property Value" & propertyvalue & "was not Found or available"
    ClickOnLink = 1
  End if
 End If
End function

                                        Link to Mandatory QTP /UFT Interview Questions to read before Interview

UFT - QTP - How to click on Image on web page

                                        Link to Mandatory QTP /UFT Interview Questions to read before Interview

Function ClickOnImage(byval objPageName,  byval PropertyName, byval propertyvalue, byval Index)
 Set ObjPage= objPageName
   If Index ="" Then
    If ObjPage.Image(PropertyName&":="&propertyvalue).exist(10) then
    ObjPage.Image(PropertyName&":="&propertyvalue).highlight ' comment later
    ObjPage.Image(PropertyName&":="&propertyvalue).click
    Reporter.ReportEvent 4, "ClickOnImage", "Checking for lmage"& propertyvalue
    Reporter.ReportEvent micPass,"ClickOnImage","Image with Property " & PropertyName & "Property Value " & propertyvalue & "Found"
    Reporter.ReportEvent micPass,"ClickOnImage","Image with Property " & PropertyName & "Property Value " & propertyvalue & "Clicked"
    ClickOnImage =0
   Else
    Reporter.ReportEvent 4, "ClickOnImage", "Checking for Image"& propertyvalue
    Reporter.ReportEvent micFail,"ClickOnImage","Image with Property " & PropertyName & "Property Value " & propertyvalue & "was not Found or available"
    ClickOnImage = 1
  End if
 else
  If ObjPage.Image(PropertyName&":="&propertyvalue, "Index:="&Index).exist(10) then
   ObjPage.Image(PropertyName&":="&propertyvalue, "Index:="&Index).click
    Reporter.ReportEvent 4, "ClickOnImage", "Checking for lmage "& propertyvalue
    Reporter.ReportEvent micPass,"ClickOnImage","Image with Property " & PropertyName & "Property Value" & propertyvalue & "Found"
    Reporter.ReportEvent micPass,"ClickOnImage","Image with Property " & PropertyName & "Property Value " & propertyvalue & "Clicked"
    ClickOnImage =0
   Else
    Reporter.ReportEvent 4, "ClickOnImage", "Checking for lmage"& propertyvalue
    Reporter.ReportEvent micFail,"ClickOnImage","Image with Property  " & PropertyName & "Property Value" & propertyvalue & "was not Found or available"
    ClickOnImage = 1
  End if
End If
End function

                                        Link to Mandatory QTP /UFT Interview Questions to read before Interview