GET COUNT AND NAMES OF ALL OPEN BROWSERS

Share this post
FaceBook  Twitter  Mixx.mn     


To Retrieve all browsers open with their name, use following code:
Steps:
1) Create a Browser object

2) Get all browser opened

3) Display opened browser Title

Code:
'1) Create a Browser object'
Set oDesc = Description.Create()
oDesc("micclass").value="Browser"

'2) Get all browser opened'
Set bObj = DeskTop.ChildObjects(oDesc)

Cnt = bObj.Count

MsgBox "There are total: "&Cnt&"browsers opened"

 For i = 0 To (Cnt -1)
'3) Display opened browser Title '
MsgBox "Browser : "&i&" has title: "& bObj(i).GetROProperty("title")

Next

 Set bObj = Nothing

Set oDesc = Nothing