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 to test Web application using QTP software
How to merge the two object repositories
Diff b/n image n bitmap checkpoints?
Where we use data driver in qtp?
when do we write a script in qtp?(plz give me more then 2 reasons)
is it possible to map an image as standard Object or u've to treat as virtual? how to map an Dynamic image into standard object?
Why use Regular Expressions?
What does SPLIT and JOIN commands do in Vbscript?
6 Answers Ordain Solutions, UBC,
how u track bugs using Test director in manual testing.
Hi, Can any one explain what is mean by Driver Script? is it AOM?
How to record application running on the Virtual machine?
what r the main benefits of automation?