• RSS
  • Facebook
  • Twitter

One Center for all the Testing Need. OneTestingCenter is for all, for all QA, for all Automation. Automation is easy, fun and enriching experience. Happy Learning and Happy Testing!

  • Access to All QA

    At OneTestingCenter, you find lots of books,articles,blogs and detailed guides. Everyone has access to QA. Happy Learning, Happy Testing.

  • Global Trainings

    All the QA/Auotmation trainings are available at OneTestingCenter. QA, Automation, QTP/UFT, Selenium, LoadRunner, QC/ALM, Appium...

  • Automation Learning Fun

    Technology is always evolving. Automation is always challenging. To be frank, Automation is fun, enthusiastic and enrching experience.


    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
    Reactions:

    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