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
