Featured

0 QTP Naming Conventions


Checkbox = chk   
Dialog Box = dbDisplay = displ                                                         
Icon = icLabel = lbl
Links = linkList Box = lb                                                            
List View = lvLogo = logo     
Menu = mMenu Item = mi                                                       
Message Box = mbPopup List = poplst  
Push Button = pbRadio Button = rb                                                   
Scroll Bar = sbStatic Text = stxt                                                     
Status Bar = stbrTab = tab                                                                
Table = tblText Box = txt                                                        
Tool Bar = tbTree View = tv                                                      
Header = hdrPanel = pan                                                              
Status Window = stwinSplitter = sp                                                            
Container = ctnNavigation bar = nb                                                
Grid = grdCombo box = cbx                                                    
Window = win         

Test Scripts

 The test scripts name
  • Must consist of alphabets, numbers and ‘_’.
  • Must start with an upper case letter.
  • If more than one word is used, the starting of every word must be in Upper case.      (Eg: Test_Script)
  • Name of the script must be in the format – Application/Test group, Feature/Action Number (XYZ_01).

VBS Files

  • A  VBScript file name must consist of alphabets.
  • Name should preferably be in the format Project_Module_Function

Functions

  • Must consist of alphabets.
  • Must start with ‘func’.
  • Name must stand for the functionality of the function.
  • If more than one word is used, the starting of every word should be in capitals.
  • Numerical are not allowed in the names
          Eg:  Public function funcOpenWindow (in window_name) 

 Constants and Variables

  • Name of a constant must be in upper case letters with underscores in it.  Eg: public const OR_PATH_DIR= c:\\mytests\\Action1; 
  • Name of a variable must be of lowercase letters and can contain underscores and digits. Eg: public my_variable_name=”This is my variable”;
·        Declare all the variables using DIM.

Object Repository

  • Object repository file name must consist of alphabets and should be like project_Module_Function.tsr.
  • If the name of an object or window is ambiguous, then it must be renamed in the format ObjectType_Label. Eg: Button_Done, Window_EngagementSummry, Checkbox_Overage, Radio_Awarded etc.
  • If more than one word is used, the starting of every word should be in capitals.

Recovery Manager

  • Name of a Recovery Manager file must be of alphabets and if necessary digits.
  • The files must be of the format Project_Module_Function_in.qrs.
Read more

4 Running QTP Script through vbs file

Public Sub ExecuteTest(TestPath)

Dim qtApp 'As QuickTest.Application ' Declare the Application object variable
Dim qtTest 'As QuickTest.Test ' Declare a Test object variable
Dim qtResultsOpt 'As QuickTest.RunResultsOptions ' Declare a Run Results Options object variable

Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
qtApp.Launch ' Start QuickTest
qtApp.Visible = True ' Make the QuickTest application visible

' Set QuickTest run options
qtApp.Options.Run.ImageCaptureForTestResults = "OnError"
qtApp.Options.Run.RunMode = "Fast"
qtApp.Options.Run.ViewResults = True

'This will Open a script
qtApp.Open TestPath , True ' Open the test in read-only mode


' set run settings for the test
Set qtTest = qtApp.Test
qtTest.Settings.Run.IterationMode = "rngIterations" ' Run only iterations 2 to 4
qtTest.Settings.Run.StartIteration = 1
qtTest.Settings.Run.EndIteration = 1
qtTest.Settings.Run.OnError = "NextStep" ' Instruct QuickTest to perform next step when error occurs

'For Viewing Results
Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") ' Create the Run Results Options object
qtResultsOpt.ResultsLocation = "C:\Telecom Automation Scripts\Res1" ' Set the results location
qtTest.Run qtResultsOpt ' Run the test
qtApp.Options.Run.ViewResults = True

'Close QTP
'qtTest.Close ' Close the test

'Set the options to nothing
Set qtResultsOpt = Nothing ' Release the Run Results Options object
Set qtTest = Nothing ' Release the Test object
Set qtApp = Nothing ' Release the Application object

End Sub
Read more

0 Right click simulation in DP

Simulating a right click to open a link in a new window does not require descriptive programming.

Here is the code:
url = Browser("IT Resource Center forums_2").Page("IT Resource Center forums").Link("Henry Floyd").GetROProperty("url")

SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE",url,"","open"


Method :2 

    object.FireEvent "oncontextmenu"
Read more

5 QTP 10 patch for Windows 7 and IE8


Just few months back (7th/Dec), HP announced the support for Windows 7 and WindowsServer 2008 R2 for QTP10.

Download  QTP 10 patch 00644 for Windows 7
Download  QTP 10 patch 00037 for Windows 7 - Support for Internet Explorer 8

Also find more patches...



Both patches to support IE8.0 (qtpweb_00037.exe) Windows 7.0(qtp_00644.exe) need to be installed for QTP10.0

You might need to check your UAC settings on windows 7.0 for recognizing Web objects.
Try the below settings:
1)IE: Select the “Enable 3rd party extensions” option under Tools –> Advanced section in IE
2)Open Control Panel, choose User Accounts and Family Safety >> System and Security Settings>>Change User Account Control settings>>Set the control to ‘Never notify’ and restart the computer.
You should now be able to use QTP10.0 on Windows 7 with IE8.
Read more

0 HP QuickTest Pro Patches

Read more

0 Screen capture when checkpoints fail

'=======This code minimizes the QTP
sTitleMask = "QuickTest Professional - .*"
 Window("regexpwndtitle:=" & sTitleMask).Minimize

'=======Checkpoint code
chk_txt_Acc=Browser("Xyz::Xyz").Page("Xyz::Xyz").Check(CheckPoint("Xyz::Xyz"))



If chk_txt_Acc=false Then
    Browser("Xyz::Xyz").Page("Xyz::Xyz").CaptureBitmap "c:\z_scrn_cap_Accounts.bmp",True
    Msgbox "Screen Captured!"
End If
Read more

0 How to Close QTP after execution


Private Function CloseQTP        
    Set objWMIService = GetObject(“winmgmts:\\.\root\CIMV2″)     
       Set colProcess = objWMIService.ExecQuery (“Select * from Win32_Process Where Name = ‘QTPro.exe’”)     
       For Each objProcess in colProcess                      
  objProcess.Terminate()           
 Next          
  Set objWMIService = Nothing         
   Set colProcess = NothingEnd FunctionCall CloseQTP
  Source: Mercury Forum’s KB articles
Read more
  • Recent Posts

     
    © QTPCode | Design by Blog template in collaboration with Concert Tickets, and Menopause symptoms
    Powered by Blogger