Quick Learn Automation

HP QTP 11 now offers the following enhancements in its existing features: New Object Spy Functionality Compare, Merge, and Export Object Repositories with Checkpoints and Output Values Add Images to Your Run Results New Dual Monitor Support New Web Test Object Operations New WpfTable Test Object Hide the Keyword View Enable Running QTP Tests on Minimized RDP Session Windows See Version Control Status of Tests, Components, and Function Libraries at a Glance Business Process Testing Enhancements Web Add-in Extensibility Enhancements Get Critical Updates Using the New HP Update Tool Extended Trial Period for QuickTest Seat License Updated QuickTest Asset Upgrade Tool for HP ALM and Quality Center Source: HP QuickTest Professional Help

QTP Versions: 11.0 - Released in 2010 10.0 - Released in 2009 9.5 - Released in 2008 9.2 - Released in 2007 9.1 - Released in 2007 9.0 - Released in 2006 8.2 - Released in 2005 8.0 - Released in 2004 7.0 - Never released. 6.5 - Released in 2003 6.0 - Released in 2002 5.5 - First release. Released in 2001

'###################################################### '#  FunctionName : GetPageInnerHtml '# Purpose: To get  the innerhtml of a WebPage '# Created By :  Jay '######################################################     Sub GetPageInnerHtml()     On Error Resume Next     Set oPage = Browser("name:=XXXX").Page("title:=XXXX")        Print oPage.object.body.innerhtml        If Err.number <> 0 Then Reporter.ReportEvent micfail,methodname,Err.number & " - " & Err.description End Sub E.g: Call GetPageInnerHtml()

'###################################################### '#  FunctionName : GetAllitemsbyTageName '# Purpose: To get  all the objects by Tag Name '# Created By :  Jay '# Parameters : '# Notes: '# Last  Updated: '# Revision History: '######################################################      Function GetAllitemsbyTageName(sTagName)     On Error Resume Next     Set oPage = Browser("name:=XXXX").Page("title:=XXXX")     Set oAllChild=oPage.Object.getElementsByTagName(sTagName)     iChildCnt = oAllChild.length     Print "Count - > " & iChildCnt     If iChildCnt >=1 Then               For i = 0 to iChildCnt -1                            Print "================================ " & i & "     ======================================="                 Print "Outer Html - > " & oAllChild(i).outerhtml                 Print "innerhtml- > " & oAllChild(i).innerhtml