QTP 10 Supports Windows 7 and IE8

QTP 10 Support Windows 7 ad IE8

First and for most….

Have Administrative rights as you install QTP 10 on Windows 7.

Second…

Install QTP 10 on the machine

Note:  Don’t expect QTP10 to support directly soon after the installation.

And further more… now install the corresponding patches to support

Go to the HP’s site.

Download Patches for Support of Windows 7 and IE8

·         qtpweb_0037 -     To Support IE8

·         qtp_644     -     To Support of Windows 7

And there are few other settings that we need to do:

·         IE Browser > Tools > Advanced section in IE > Select the "Enable 3rd party extensions" option

·         Log in to Windows 7 / Windows Vista as an Administrator.

·         From the Control Panel > User Accounts > Change Security Settings

·         Clear the Use User Account Control (UAC) to help protect your computer check box and click OK.

How to get the patches:

·         Here is the HP site @ http://support.openview.hp.com/patches

·         You need to register first to get into the HP site.

·         Try searching QTP patch by the patch name /patch number that we have.

·         Navigate around and download corresponding patches.

·         Install them. Start working.

Note: QTP 10 Patches information for support of Windows 7 and IE8

Download Patches for Support of Windows 7 and IE8

·         qtpweb_0037 -     To Support IE8

·         qtp_644     -     To Support of Windows 7

Read More...

QTP @ Dictionary Object >> Using Dictionary Values As Variables

QTP @ Dictionary Object >> Using Dictionary Values As Variables

0        '#############################################################

0        ' Dictionary Object >> Using Dictionary Values  As Variables '#############################################################

0        Print "########################################################"

0        Print " Dictionary Object >> Using Dictionary Values  As Variables

0        Print "#######################################################"

0        Set oDict=CreateObject("Scripting.Dictionary")

0        With oDict

0                        .Add "UserName", "GAReddy"

0                        .Add "Password", "GAReddy"

0        End With

0        SystemUtil.Run "iexplore.exe", "http://newtours.demoaut.com", "", "", 3

0         

0        With Browser("title:=Welcome: Mercury Tours").Page("micclass:=Page")

0                        If .Exist(5) Then

0                                        .WebEdit("name:=userName").Set oDict("UserName")

0                                        .WebEdit("name:=password").Set oDict("Password")

0                                        .Image("name:=login").Click

0                        End If

0        End With

0         

0        Set oDict = Nothing

Read More...

QTP @ Dictionary Object >> Keys

QTP @ Dictionary Object >> Keys

0        '##############################################

0        ' Dictionary Object >> Keys

0        '##############################################

0        Print "##############################################"

0        Print " Dictionary Object >> Keys"

0        Print "##############################################"

0        'Keys

0        Call DictKeysDemo()

0        Print DictKeysDemo()

0        MsgBox DictKeysDemo()

0        Function DictKeysDemo()

0         '  Dim a, oDict, i   ' Create some variables.

0           Set oDict = CreateObject("Scripting.Dictionary")

0                        oDict.Add "Subject", "QuickTestQTP"   ' Add some keys and items.

0                        oDict.Add "Teacher", "GAReddy"

0                        oDict.Add "Learner1", "SomeBody"

0                        oDict.Add "Learner2", "SomeBodyElse"

0           a = oDict.Keys   ' Get the keys.

0           For i = 0 To oDict.Count -1 ' Iterate the array.

0              s = s & a(i) & vbNewLine ' Return results.

0           Next

0           DictKeysDemo = s

0        End Function

Read More...

QTP @ Dictionary Object >> Items

QTP @ Dictionary Object >> Items

0        '##############################################

0        ' Dictionary Object >> Items

0        '##############################################

0        Print "##############################################"

0        Print " Dictionary Object >> Items"

0        Print "##############################################"

0        'Items

0        Call DictItemsDemo()

0        Print DictItemsDemo

0        MsgBox DictItemsDemo()

0        Function DictItemsDemo()

0           Dim a, oDict, i, s   ' Create some variables.

0           Set oDict = CreateObject("Scripting.Dictionary")

0                        oDict.Add "Subject", "QuickTestQTP"   ' Add some keys and items.

0                        oDict.Add "Teacher", "GAReddy"

0                        oDict.Add "Learner1", "SomeBody"

0                        oDict.Add "Learner2", "SomeBodyElse"

0            a = oDict.Items   ' Get the items.

0           For i = 0 To oDict.Count -1 ' Iterate the array.

0              s = s & a(i) & vbNewLine ' Create return string.

0           Next

0           DictItemsDemo = s

0        End Function

Read More...