for example one window is there, the window contains how
many edit box's i want script? i know the script but that is
not exact answer....
The script is like this ..........
set a=description.creation()
a("Native class")="WinEdit"
b=window("Flight Reservation").childobject(a).count
msgbox b
Answers were Sorted based on User's Feedback
Answer / saravanaraja
This Code is working Perfect:
Set desc=Description.Create()
desc("micclass").Value="WebEdit"
Set Edit=Browser("Title:=.*").Page("Title:=.*").ChildObjects
(desc)
msgbox Edit.Count
Is This Answer Correct ? | 2 Yes | 0 No |
Answer / softwaretester4u
use this example for windows alos
Step1: Set Objects = Browser("BrowserName").Page
("PageName").ChildObjects
Step2: Objectcount = Objects.count
Linkcount = 0
Step3: For i = 1 to Objectcount-1
Link = Objects(i).GetROProperty("micclass")
If Link = "Link" Then
Linkcount = Linkcount+1
msgbox Linkcount
End If
Next
msgbox Linkcount ' It show total number links
Set oDesc = Description.Create()
oDesc("micclass").Value = "Link"
Set Lists = Browser("Google").Page("Google").ChildObjects
(oDesc)
NumberOfLists = Lists.Count()
linkcnt = 0
For i = 0 To NumberOfLists - 1
linkcnt = linkcnt+1
Next
msgbox linkcnt
Is This Answer Correct ? | 1 Yes | 0 No |
Answer / rajaputra
''''''''Try for this, It will give you all elements/items
count in the webpage'''''''''''''''''''''
url="http://my.naukri.com/manager/createacc2.php?othersrcp=5421&wExp=N"
If Browser("index:=0").Exist(1) then' If Browser is already
opened
a = Browser("index:=0").GetROProperty("hwnd")
Browser("hwnd:=" & a).Navigate(url)
Browser("hwnd:=" & a).Sync
wait(2)
Else' If Browser is not opened
SystemUtil.Run"IEXPLORE.exe"
a = Browser("index:=0").GetROProperty("hwnd")
Browser("hwnd:=" & a).Navigate(url)
Browser("hwnd:=" & a).Sync
wait(2)
End If
Set Editobj=Description.Create()'For WebEdits
Editobj("html tag").value="INPUT"
Editobj("type").value="text"
Set Butobj = Description.Create()'For Buttons
Butobj("html tag").value = "INPUT"
Butobj("type").value="submit"
Set Listobj=Description.Create()'For Web Lists
Listobj("html tag").value="SELECT"
Set Linkobj=Description.Create()'For Link
Linkobj("html tag").value="A"'
Set Checkboxobj=Description.Create()'For Checkboxes
Checkboxobj("html tag").value="INPUT"
Checkboxobj("type").value="checkbox"
Set Radioobj=Description.Create()'For Radio Buttons
Radioobj("type").value="radio"
Radioobj("html id").value="ctctype_i"
Set Edits = browser("hwnd:="
&a).Page("title:=.*").ChildObjects(Editobj)
Set Buttons = browser("hwnd:="
&a).Page("title:=.*").ChildObjects(Butobj)
Set Lists = browser("hwnd:="
&a).Page("title:=.*").ChildObjects(Listobj)
Set Links = browser("hwnd:="
&a).Page("title:=.*").ChildObjects(Linkobj)
Set Checks = browser("hwnd:="
&a).Page("title:=.*").ChildObjects(Checkboxobj)
Set Radios = browser("hwnd:="
&a).Page("title:=.*").ChildObjects(Radioobj)
msgbox "Total EditBoxes are : "&Edits.count
msgbox "Total Button are : "&Buttons.count
msgbox "Total Lists are : "&Lists.count
msgbox "Total Links are : "&Links.count
msgbox "Total checkBoxes are : "&Checks.count
'msgbox "Total RadioButtons are : "&r
msgbox "Total RadioButtons are : "&Radios.count+1
''''''If you have any doubts reply to this thread'''''''''''
Is This Answer Correct ? | 1 Yes | 0 No |
how can you describe the basic flow of automation with conditional and programmatic logic?
Cn u please clarify my doubt Where are micTab and micReturn used.Thanx in Advance
Hi, my requirement is to make a query in SQL using QTP. And i have to get the results of that query and i have to use those results for future testing. I created a driver but i dont know the code for using this Driver. please help me by providing the solution for y requorement
Explain how you can find the absolute value of the number in qtp?
Is there any option in QTP to add Java add-in after instaling the QTP?
Can a function return a dictionary object?
what is run action?
Explain the types of object repository?
Approach for Installation,comaptibility,system testing
what r advance features u had done in QTP?
what is the extension for QTP files?
16 Answers American Solutions,
Could any one suggest web site links to learning VB Script for QTP purpose??