ShellWindows

Объект ShellWindows

Объект ShellWindows представляет коллекцию открытых окон оболочки (Shell).
Сюда входят как открытые окна проводника (Application Microsoft Internet Explorer), так и открытые окна Internet Explorer (Application Windows Internet Explorer).
К первому случаю относятся не только открытые окна проводника в файловой системе, но и специальные возможности (Панель управления, Мой компьютер...).
Во втором случае в список попадут закладки открытых окон браузера Internet Explorer.

Объект ShellWindows. Создание объекта.


Set objShellApp = CreateObject("Shell.Application") Set objShellWindows = objShellApp.Windows()


Объект ShellWindows. Свойства.



Свойство


Описание

Count Количество элементов коллекции.


Объект ShellWindows. Свойство Count.

Возвращает количество элементов коллекции.
Только чтение.


Метод


Описание

item Получение объекта InternetExplorer. Возвращает объект InternetExplorer.
_NewEnum Создает и возвращает новый объект ShellWindows.


Объект ShellWindows. Метод _NewEnum.

Создает и возвращает новый объект ShellWindows, который является копией текущего ShellWindows.
Параметров нет.

retVal = ShellWindows._NewEnum()


Объект ShellWindows. Метод item.

Получает InternetExplorer объект, представляющий окно оболочки. Синтаксис:
item(<Index>)
<Index> - индекс элемента. Значение должно быть как и следовало ожидать не меньше нуля и меньше Count
Необязательный. При отсутствии параметра его значение по умолчанию ноль.
Объект InternetExplorer имеет ряд полезных свойств. Вот некоторые из них:


Свойство


Описание

LocationName Получает путь или название ресурса, который в данный момент обрабатывается.
LocationURL Получает URL ресурса, который в данный момент обрабатывается.
Application Объект, запущенный в данном окне.
Path Путь к объекту, запущенному в данном окне. Может отсутствовать в более новых версиях.




Set objShellApp = CreateObject("Shell.Application") Set objShellWin = objShellApp.Windows WScript.Echo "Окон Explorer'а всего - ", objShellWin.Count For i=0 To objShellWin.Count-1 Set objShellItem= objShellWin.Item(i) WScript.Echo "LocationName : ", objShellItem.LocationName, vbCrLf, _ "Path : ", objShellItem.Path, vbCrLf, _ "LocationURL: ", objShellItem.LocationURL, vbCrLf, _ "Application: ", objShellItem.Application Next


Для тех, кто предпочитает JScript

var objShell = new ActiveXObject("Shell.Application"); var objShellWindows; objShellWindows = objShell.Windows(); if (objShellWindows != null) { var objIE; for( var i=0; i<objShellWindows.Count; i++) { objIE = objShellWindows.Item(i); if (objIE != null) WScript.Echo ("Path:\t\t"+objIE.path+"\n LocationName:\t"+ objIE.LocationName+"\n LocationURL:\t"+objIE.LocationURL); } }






Для вопросов, обсуждений, замечаний, предложений и т. п. можете использовать раздел форума этого сайта (требуется регистрация).






  TopList Rambler Top100 own counter Valid XHTML 1.0 Strict Valid CSS Rambler Top100

Фитотерапия Молитвы Водолечение Юмор Форум Кладовка link О авторе

Фитотерапия Молитвы Водолечение Юмор Форум Кладовка Ссылки О авторе Отправить сообщение Карта сайта Поиск по сайту Главная страница

Copyright © 1999 - 2017  Бронислав Краснер