Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Создает и возвращает объект ShellWindows . Этот объект представляет коллекцию всех открытых окон, принадлежащих оболочке .
Синтаксис
retVal = Shell.Windows()
Shell.Windows() As IDispatch
Параметры
Этот метод не имеет параметров.
Возвращаемое значение
Язык JScript
Тип: IDispatch**
Ссылка на объект ShellWindows .
VB
Тип: IDispatch**
Ссылка на объект ShellWindows .
Примеры
В следующем примере используется Windows для получения объекта ShellWindows и отображения количества элементов, содержащихся в нем. Для JScript, VBScript и Visual Basic отображается правильное использование.
Jscript:
<script language="JScript">
function fnShellWindowsJ()
{
var objShell = new ActiveXObject("shell.application");
var objShellWindows;
objShellWindows = objShell.Windows();
if (objShellWindows != null)
{
var Shell = new ActiveXObject("WScript.Shell");
Shell.Popup(objShellWindows.Count);
}
}
</script>
Vbscript:
<script language="VBScript">
function fnShellWindowsVBS()
dim objShell
dim objShellWindows
set objShell = CreateObject("shell.application")
set objShellWindows = objShell.Windows
if (not objShellWindows is nothing) then
WScript.Echo objShellWindows.Count
end if
set objShellWindows = nothing
set objShell = nothing
end function
</script>
Visual Basic:
Private Sub fnShellWindowsVB()
Dim objShell As Shell
Dim objShellWindows As ShellWindows
Set objShell = New Shell
Set objShellWindows = objShell.Windows
If (Not objShellWindows Is Nothing) Then
Debug.Print objShellWindows.Count
End If
Set objShellWindows = Nothing
Set objShell = Nothing
End Sub
Требования
| Требование | Значение |
|---|---|
| Минимальная версия клиента |
Windows 2000 Professional, Windows XP [только классические приложения] |
| Минимальная версия сервера |
Windows 2000 Server [только классические приложения] |
| Заголовок |
|
| IDL |
|
| DLL |
|