Normal 0 false false false EN-US X-NONE X-NONE ...
Tuesday, 29 March 2011
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
Monday, 28 March 2011
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
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
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
Subscribe to:
Posts (Atom)
Posts
