04-07-2010, 07:57 PM
Hi,
Here is a code snippet:
Here is a code snippet:
Code:
Browser("Software.COM").Page("Software.COM").Frame("Navigation").Link("Participants").Click
Browser("Software.COM").Page("Software.COM").Frame("Navigation").WebElement("View/Edit Participant").Click
Browser("Software.COM").Page("Software.COM").Frame("SearchClientTop").Image("btn_search").Click
Browser("Software.COM").Page("Software.COM").Frame("SearchClientTop").WebEdit("txtClient").Set "QTP, Laura"
Browser("Software.COM").Page("Software.COM").Frame("SearchClientTop").Image("btn_search").Click
Browser("Software.COM").Page("Software.COM").Frame("SearchClientBottom").Link("QTP, Laura").Click
Browser("Software.COM").Page("Software.COM").Frame("Body").WebEdit("txtAddress1").Set "1234 Elm St"
Browser("Software.COM").Page("Software.COM").Frame("Body").WebEdit("txtEmail").Set "LauraQ@aol.com"
Browser("Software.COM").Page("Software.COM").Frame("Body").WebEdit("txtSSN").Set "112233445"
Browser("Software.COM").Page("Software.COM").Frame("Body").WebList("txtDOBm").Select "Feb"
Browser("Software.COM").Page("Software.COM").Frame("Body").WebList("txtDOBd").Select "27"
Browser("Software.COM").Page("Software.COM").Frame("Body").WebList("txtDOBy").Select "1953"
Browser("Software.COM").Page("Software.COM").Frame("Body").WebList("lstGender").Select "Female"
Browser("Software.COM").Page("Software.COM").Frame("Body").WebList("lstEthnicity").Select "Caucasian"
Browser("Software.COM").Page("Software.COM").Frame("Body").WebList("lstMaritalStatus").Select "Married"
Browser("Software.COM").Page("Software.COM").Frame("Body").WebEdit("txtHomePhone").Set "12345678"
Browser("Software.COM").Dialog("VBScript: Error").WinButton("OK").Click
Browser("Software.COM").Page("Software.COM").Frame("Body").WebEdit("txtHomePhone").Set "4101234567"
Browser("Software.COM").Page("Software.COM").Frame("Body").WebEdit("txtCellPhone").Set "5101123456"
Browser("Software.COM").Page("Software.COM").Frame("Body").Image("Click to Submit Form").Click
Browser("Software.COM").Sync
Browser("Software.COM").Dialog("VBScript: Success").WinButton("OK").Click