QTP Script for opening gmail and enter details

[vaigundamoorthy]

Hi
I am trying to create Descriptive program for open gmai and enter username password.

Could you tell me how can i wirte the descriptive program for login a gmail page.

[mitu83s]

Ans:

Code:

systemutil.Run "iexplore.exe", "www.gmail.com"
browser("micclass:=browser").page("micclass:=page").WebEdit("name:=Email").Set "abcdd"
browser("micclass:=browser").page("micclass:=page").WebEdit("name:=Passwd").Set "bnghhj"
browser("micclass:=browser").page("micclass:=page").WebButton("name:=Sign in").Click

Note: Make sure that fast close all active browser bcoz i hav given browser("micclass:=browser").so if more than one browser is opened then it can not identify..If u want u can change the property value of browser and can giv browser("name:=Gmail: Email from Google").page("name:=Gmail: Email from Google")..By using dis no need to close other browser.

[upadhyay40]

Code:

Dim EditToSearch,EditValueToSet, NumberOfEdits,webButtonToSearch,LinkValueToSet, NumberOfWebButton, EditToSearch4pass,EditValueToSet4pass, NumberOfEdits4pass

'initOutExcel()
'This is the value of the 'name' property for the WebEdit object we want to find.
EditToSearch = "Email"
EditValueToSet = "yourlogin"


'Create a description object to help retrieve all WebEdit objects in a specific page.
Set loginDesc = Description.Create()
    loginDesc("micclass").Value = "WebEdit"
    loginDesc("name").Value = "Email"

'Retrieve all WebEdit objects in this page
Set EditCollection = Browser("Browser").Page("Gmail: Email from Google").ChildObjects(loginDesc)

NumberOfEdits = EditCollection.Count

'Search for a specific Linkobject and set its value
For i = 0 To NumberOfEdits - 1
    If EditCollection(i).GetROProperty("name") = EditToSearch Then
       EditCollection(i).Set EditValueToSet
       ' WriteResults "Enter UserID Succesfully","Gmail User Login","User Enter value"
     End If
Next


'Password Entry

'This is the value of the 'name' property for the WebEdit object we want to find.
EditToSearch4pass = "Passwd"
EditValueToSet4pass = "yourpass"


'Create a description object to help retrieve all WebEdit objects in a specific page.
Set passDesc = Description.Create()
    passDesc("micclass").Value = "WebEdit"
    passDesc("name").Value = "Passwd"

'Retrieve all WebEdit objects in this page
Set EditCollection = Browser("Browser").Page("Gmail: Email from Google").ChildObjects(passDesc)

NumberOfEdits4pass = EditCollection.Count

'Search for a specific Linkobject and set its value
For i = 0 To NumberOfEdits - 1
    If EditCollection(i).GetROProperty("name") = EditToSearch4pass Then
       EditCollection(i).Set EditValueToSet4pass
        'WriteResults "Enter password Succesfully","Gmail password","User Enter value 'password'"
     End If
Next

'This is the value of the 'name' property for the Link object we want to find.
webButtonToSearch = "Sign in"

'Create a description object to help retrieve all Link objects in a specific page.
Set webButtonDesc = Description.Create()
    webButtonDesc("micclass").Value = "WebButton"
    webButtonDesc("name").Value = "Sign in"

'Retrieve all Link objects in this page
Set webButtonCollection =Browser("Browser").Page("Gmail: Email from Google").ChildObjects(webButtonDesc)

NumberOfWebButton =webButtonCollection.Count

'Search for a specific Link object and set its value
For i = 0 To NumberOfWebButton - 1
    If webButtonCollection(i).GetROProperty("name") = webButtonToSearch Then
      webButtonCollection(i).Click'Set EditValueToSet
    End If
'Browser("Browser").Page("Gmail: Email from Google").WebButton(webButtonToSearch).Click
' WriteResults "Login Succesfully","Corporate User Login","User Login With Sysadmin"
Next

If Browser("Browser").Dialog("Security Alert").Exist Then
    Browser("Browser").Dialog("Security Alert").WinButton("Yes").Click
End If

[Saket]

Requesting Everyone to please wrap your code in proper tags, while posting
refer Help