QTP - Descriptive Programming

'####################################################

'# Descriptive Programming Objects

'####################################################

Public Sub DPWebEdit (strWebEdit,strInValue)

                If strInValue <> "" Then

                Set obj_WebEdit = Description.Create 

                obj_WebEdit ("Class Name").value = "WebEdit"

                obj_WebEdit ("name").value= strWebEdit                          

                               

                Browser(strBrowser).page(strPage).Sync

                Browser(strBrowser).Page(strPage).WebEdit(obj_WebEdit).Set strInValue

                End If

End Sub

'########################################################

Public Sub DPWebEditSetSecure (strWebEdit,strInValue)

                If strInValue <> "" Then

                Set obj_WebEdit = Description.Create 

                obj_WebEdit ("Class Name").value = "WebEdit"

                obj_WebEdit ("name").value= strWebEdit                          

                               

                Browser(strBrowser).page(strPage).Sync

                Browser(strBrowser).Page(strPage).WebEdit(obj_WebEdit).SetSecure strInValue

                End If

End Sub

'########################################################

Public Sub DPWebList (strWebList,strInValue)

                If strInValue <> "" Then

                Set obj_WebList = Description.Create 

                obj_WebList ("Class Name").value = "WebList"

                obj_WebList ("name").value= strWebList

                               

                Reporter.Filter = 3 'Turn Reporting of

                Call TestListValues (obj_WebList,strInValue) 'Check for valid item in list

                Reporter.Filter = 0 'Turn Reporting on   

                               

                Browser(strBrowser).page(strPage).Sync

                Browser(strBrowser).Page(strPage).WebList(obj_WebList).Select strInValue

                End If

End Sub

'########################################################

Public Sub DPRadioGroup (strWebRadioGroup,strInValue)

Set obj_WebRadioGroup = Description.Create 

obj_WebRadioGroup ("Class Name").value = "WebRadioGroup"

obj_WebRadioGroup ("name").value= strWebRadioGroup        

Browser(strBrowser).page(strPage).Sync

Browser(strBrowser).Page(strPage).WebRadioGroup(obj_WebRadioGroup).Select strInValue

End Sub

'####################################################

Public Sub DPWebImage (strImage)

Set obj_Image = Description.Create 

obj_Image ("Class Name").value = "Image"

obj_Image ("name").value= strImage   

                               

Browser(strBrowser).page(strPage).Sync

Browser(strBrowser).Page(strPage).Image(obj_Image).Click '6,7

               

End Sub

'####################################################

Public Sub DPWebCheckBox (strWebCheckBox,strInValue)

Set obj_WebRadioGroup = Description.Create 

obj_WebCheckBox ("Class Name").value = "WebCheckBox"

obj_WebCheckBox ("name").value= strWebRadioGroup             

Browser(strBrowser).page(strPage).Sync

Browser(strBrowser).Page(strPage).WebCheckBox(obj_WebCheckBox).Select strInValue

End Sub

'####################################################

Public Sub DPWebLink (strWebLink)

               

Set obj_WebLink = Description.Create

obj_WebLink ("Class Name").value = "Link"

obj_WebLink ("name").value= strWebLink         

               

Count = 1

Do until  Browser(strBrowser).Page(strPage).Link(obj_WebLink).Exist

if Browser(strBrowser).Page(strPage).Link(obj_WebLink).Exist Then

Exit Do

End If

                               

Count = Count + 1

                               

If Count = 20 Then

                Exit Do

end if                   

Loop

               

Browser(strBrowser).Page(strPage).Link(obj_WebLink).Click

               

End Sub

'####################################################

Public Sub DPWebButton (strWebButton)

Set obj_WebButton = Description.Create 

obj_WebButton ("Class Name").value = "WebButton"

obj_WebButton ("name").value= strWebButton             

                               

Browser(strBrowser).page(strPage).Sync

Browser(strBrowser).Page(strPage).WebButton(obj_WebButton).Click

               

End Sub

'####################################################

QTP - Automation Startup

QTP - ARRAY LIBRARY FUNCTIONS

QTP & ARRAY LIBRARY FUNCTIONS

'*******************************************************

'*********** ARRAY RELATED LIBRARY FUNCTIONS ***********'

'*******************************************************

Print "========================================="

Print "========================================="

Dim ArrayToSort(4)

ArrayToSort(0)="1234"

ArrayToSort(1) ="4567"

ArrayToSort(2)="3"

ArrayToSort(3)="1"

ArrayToSort(4)="55"

Print "========================================="

Print "Before Sorting out --> Array Values are     : "

Print "========================================="

For k=0 to UBound(ArrayToSort)

Print  ArrayToSort(k)

Next

Print "========================================="

Print " Sort Order Function Called to sort Array Values    : "

Print " Sort Order Mode is            : dsc (DSCENDING order)"

Print "========================================="

Call SortODArray(ArrayToSort,"dsc")

Print "========================================="

Print "After Sorting out --> Array Values are        : "

Print "========================================="

For k=0 to UBound(ArrayToSort)

Print  ArrayToSort(k)

Next

'********************************************************

' Author    : G A Reddy

' Function  : SortODArray

'               To sort One Dimensional Array in ascending OR dscending order

' PARAMETERS : ArrayToSort (Array to be passed)

'                      SortMode asc (ASCENDING) OR des(FOR DESCENDING)

'********************************************************

Function SortODArray(ArrayToSort,SortMode)

  On Error Resume Next         ' Error Handling

  

    Dim iResult, i,j

    Dim iUbound

    Dim sTemp

                Dim  SortedArray()

  

    SortMode = UCase(SortMode)

    iUbound = UBound(ArrayToSort)

    Redim SortedArray(iUbound)

    For i = 0 To iUbound - 1

        For j = 0 To (iUbound - i-1)

          If Instr(SortMode, "ASC") > 0 then

            If CompareArrayValues(ArrayToSort(j + 1), ArrayToSort(j)) < 0 Then

                    sTemp = ArrayToSort(j)

                    ArrayToSort(j) = ArrayToSort(j + 1)

                    ArrayToSort(j + 1) = sTemp

                End If

            Else

            If CompareArrayValues(ArrayToSort(j + 1), ArrayToSort(j)) > 0 Then

                    sTemp = ArrayToSort(j)

                    ArrayToSort(j) = ArrayToSort(j + 1)

                    ArrayToSort(j + 1) = sTemp

                End If

            End If

        Next

    Next

 

                SortODArray = ArrayToSort   ' ArrayToSort - Values are sorted now "

                 If Err.Number > 0 then

                                 msgbox CStr(err.number) & " " &  Err.Description

     End If

End Function

'******************************************************

'******************************************************

' Author      :  G A Reddy

' Function   :  CompareArrayValues

' Note : Array can have DATA TYPES - DATE, NUMERIC OR TEXT/STRING

'          So we find out data type in array and compare values to sortout

' Return Values :   Returns "-1" if val1 < val2, returns "1" if val1 > val2

'                         RETURN "0" if val1 = val2

'********************************************************

Function CompareArrayValues(Val1, Val2)

   On Error Resume Next

  

    Dim FVal,SVal, RVal

    ' FVal= First Value ; SVal=Second Value ; RVal = Return Value

               

    if (isNumeric(Trim(Val1)) AND isNumeric(Trim(Val2))) then

        FVal = CDbl(Trim(Val1))

        SVal = CDbl(Trim(Val2))

    else

        if (isDate(Trim(Val1)) AND isDate(Trim(Val2))) then

            FVal = CDate(Trim(Val1))

            SVal = CDate(Trim(Val2))

        else

            FVal =  Trim(CSTR(Val1))

            SVal = Trim(CSTR(Val2))

        end if

    end if

   

    RVal=0

        If FVal < SVal then

            RVal = -1

        else

            if FVal > SVal then

                RVal = 1

            end if

        end if

CompareArrayValues = RVal

                  If Err.Number > 0 then

                                Msgbox CStr(err.number) & " " &  Err.Description

      End If

End Function

'******************************************************

'******************************************************

' Examples:

RGS @ Rightway Global Solution Testing Training

Rightway Global Solutions.


 Training
 Consulting
 Placements
 Support


Rightway Global Solutions:
Address: @ Hitech City
Phone#: 7799430006 ; 8978923555 or 7799170430
URL: http://rightway-global.com/


Technology at work for you
Manual Testing
Testing Process
Feasibility Study / Requirements Analysis/ CRS / BRS / FRS / SRS
Testing Life Cycle
Test Plan Creation & Test Cases Designing / Designing Techniques
Testing Types / Implementations
Smoke / Functional / Integration / System / Regression tests
Bug Reporting / Issue documentation
Bugzilla / QC / TD / Team Tracker work flow
Severity / Priority levels - Analysis
Status Reports / Metrics / Review Reports
QTP
Automation training with presentations, demos, videos
Focus and develop real time scenarios for automation tests
RIA Frameworks/Toolkits / QTP Web Extensibility
Test Plan / Test Cases / Test Scripts
VB Script/ Fundamentals / Advanced
Descriptive Programing
Working with data tables and files / Excel / Word
Database testing / DSN / DSN Less tests
Actions / Functions/ Libraries / Keywords
Frameworks
LoadRunner
Basic and Advanced trainings
VUGen Scripts
Application architectures
Basic and Advanced Scenario creations
Load and Performance tests
Goal and manual oriented scenarios
Real time demos
Result oriented scripts
Analyze and Reporting results
Quality Center
Requirements creation
Requirements traceability
Test Plan creation
Test Cases designing
Test Lab
o Manual Test executions
o Automated scripts executions
Defect Lab logging / Defect tracing
QC integrations
Metrics and Reports
Testing training and support solutions


 Manual and Automation Testing
 Basic and Advanced trainings
 Demos and Particles
 Real time scenarios
 Advanced Testing tools
o QTP 11
o LoadRunner 11
o Quality Center 11
 Automation presentations
 Depth topics
 Automation Frameworks
o Action Driven
o Data Driven
o Functional Library
o Keyword Driven
o Hybrid
 Training support and assistance
 Much more.


simplifying IT


Rightway Global Solutions
Rightway Global Solutions:
Address: @ Hitech City
Phone#: 7799430006 ; 8978923555 or 7799170430
URL: http://rightway-global.com/


o Training
o Consulting
o Placements
o Support


Just be yourself.
Be happy, you are at the right place.
Be energetic, you are learning the real time IT.
Be cool, you are at the best.
Be learning, you are going to implement IT.
Be assured, you would be happy.


Advanced trainings by Real time experts
Feel free to approach….

Rightway Global Solutions

Rightway Global Solutions:

Address: @ Hitech City

Phone#: 7799430006 ; 8978923555 or 7799170430

URL: http://rightway-global.com/

Verify Object Is Enabled or Disabled

Verify Object Is Enabled or Disabled

' Verify Object Is Enabled
'*********************************************************************
' Verify Object Is Enabled 
'*********************************************************************

' Pass a object to the function VerifyEnabled to ve verified
'Parameters:
' obj - Object which is to be verified for enabled property

Public Function VerifyEnabled (obj)
   Dim enable_property
   'Get the enabled property from the test object
   enable_property = obj.GetROProperty("enabled")
   If enable_property <> 0 Then ' The value is True (anything but 0)
     Reporter.ReportEvent micPass, "VerifyEnabled Succeeded", "The test object is enabled"
     VerifyEnabled = True
   Else
     Reporter.ReportEvent micFail, "VerifyEnabled Failed", "The test object is NOT enabled"
     VerifyEnabled = False
   End If
End Function

' Verify Object Is Disabled
'*********************************************************************
' Verify Object Is Disabled
'*********************************************************************

'' Pass a object to the function VerifyDisabled to be verified
'Parameters:
' obj - Object which is to be verified for enabled property

Public Function VerifyDisabled (obj)
   Dim enable_property
   'Get the enabled property from the test object
   enable_property = obj.GetROProperty("disabled")
   If enable_property = 0 Then ' The value is False (0) - Enabled
     Reporter.ReportEvent micPass, "VerifyDisabled Succeeded", "The test object is disabled"
     VerifyDisabled = True
   Else
     Reporter.ReportEvent micFail, "VerifyDisabled Failed", "The test object is enabled"
     VerifyDisabled = False
   End If
End Function

' Actual code begins here.
' To check if the Button is enabled or not.
' If enabled then call another function (ClickOnButton to click on Button )

Set Obj=Browser("").Page("").WebButton("")
If VerifyEnabled(Obj)=True Then
    Call ClickOnButton(Obj)
End If

   

To Clear the browser caches : To Clear Temp files and folders : To Clear APP caches files

'*************************************************************************

'  Creation and Modification Log:

 '   Date                   By                    Notes                                                        

 '   ----------           -------                 ---------

'    #Date#              G A Reddy              Created

'*************************************************************************

'*************************************************************************

'*************************************************************************

' Purpose of the script:

'*************************************************************************

'           To Clear the browser caches

'           To Clear Temp files and folders

'           To Clear APP caches files

'           To Clear Java and other cache files.

'*************************************************************************

'Set WshShell = CreateObject("WScript.Shell")

'Set WshSysEnv = WshShell.Environment("Process")

'strHomeDrive = WshSysEnv("HOMEDRIVE")

'strHomePath =  strHomeDrive + WshSysEnv("HOMEPATH")

Set WshShell = CreateObject("WScript.Shell")

strHomePath =  WshShell.ExpandEnvironmentStrings("%USERPROFILE%")

'strInternetPropPath = strHomePath

'strJavaCachePath = strHomePath + "\Application Data\Sun\Java\Deployment\cache"

'strBrowseFileCacheLocation = strHomePath + "\Application Data\APP"

'strBrowseCachePath = strBrowseFileCacheLocation+ "\BrowseCache"

'strFileCachePath = strBrowseFileCacheLocation + "\FileCache"

'strTemporaryInternetFilePath = strHomePath + "\Local Settings\Temporary Internet Files"

strInternetPropPath = strHomePath

'strJavaCachePath = strHomePath + "\Application Data\Sun\Java"

strBrowseFileCacheLocation = strHomePath + "\Application Data\APP"

strBrowseCachePath = strBrowseFileCacheLocation+ "\BrowseCache"

strFileCachePath = strBrowseFileCacheLocation + "\FileCache"

strTemporaryInternetFilePath = strHomePath + "\Local Settings\Temp"

strTemporaryInternetFilePath1 = strHomePath + "\Local Settings\Temporary Internet Files"

'msgbox strHomePath

'msgbox strTemporaryInternetFilePath

Call ClearCaches

Function ClearCaches

' Clear IE temporary file and cookies

RemoveFolderAndFiles strTemporaryInternetFilePath, False, True

'msgbox strTemporaryInternetFilePath

RemoveFolderAndFiles strTemporaryInternetFilePath1, False, True

' Delete Java cache

' Because of issues with the version on the jre (could be mutliple versions)

'and the different states of the control panel, it was decided to remove cache folders/files without using Java Control Panel.

' Engineering felt that it should not be a problem.

'RemoveFolderAndFiles strJavaCachePath, True, True

'msgbox strJavaCachePath

'Delete the Browse and File Cache files

RemoveFolderAndFiles strBrowseFileCacheLocation, True,True

'msgbox strBrowseFileCacheLocation

End Function

'************************************************************************

' Sub Name: RemoveFolderAndFiles

' Purpose: Removes Files and Folders

' Assumptions: None

' Inputs:  strFolder -  Folder to remove file/subfolders

' bLeaveFolder - Remove sub folders and all files but not main folder

' bForceDelete - Force delete

' Return Values:  Nothing

'************************************************************************

Public Sub RemoveFolderAndFiles(strFolder,  bLeaveFolder,  bForceDelete)

Dim Folder

Dim Folders

Dim Files

Dim File

Dim fso

On error Resume Next

                Set fso = CreateObject("Scripting.FileSystemObject")

    if (fso.folderExists(strFolder) = True and bLeaveFolder = False) then

        call fso.DeleteFolder(strFolder, bForceDelete)

    end if

    If (fso.folderExists(strFolder) = True and bLeaveFolder = True) then

                                Set Folder = fso.GetFolder(strFolder)

                                Set Files = Folder.Files

                                For each File in Files

                                                File.Delete

                                Next

                                Set Folders = Folder.SubFolders

                                For each Folder in Folders

                                   call fso.DeleteFolder(strFolder + "\" + Folder.Name, bForceDelete)

                                Next

    end if

On error goto 0

                Set Folder = Nothing

                Set Folders = Nothing

                Set Files = Nothing

                Set File = Nothing

                Set fso = Nothing

End Sub

'************************************************************************

'************************************************************************