'#1. To close all opened browsers
Set desc = Description.Create
desc("micClass").Value = "Browser"
Set objBrowser = Desktop.ChildObjects(desc)
for i = 0 to objBrowser.Count-1
objBrowser(i).Close
next
Set desc = Description.Create
desc("micClass").Value = "Browser"
Set objBrowser = Desktop.ChildObjects(desc)
for i = 0 to objBrowser.Count-1
objBrowser(i).Close
next
No comments:
Post a Comment