Método Shell.Windows
Crea y devuelve un objeto ShellWindows . Este objeto representa una colección de todas las ventanas abiertas que pertenecen al Shell.
Sintaxis
retVal = Shell.Windows()
Shell.Windows() As IDispatch
Parámetros
Este método no tiene parámetros.
Valor devuelto
JScript
Tipo: IDispatch**
Referencia de objeto al objeto ShellWindows .
VB
Tipo: IDispatch**
Referencia de objeto al objeto ShellWindows .
Ejemplos
En el ejemplo siguiente se usa Windows para recuperar el objeto ShellWindows y mostrar un recuento del número de elementos que contiene. Se muestra un uso adecuado para JScript, VBScript y 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
Requisitos
Requisito | Value |
---|---|
Cliente mínimo compatible |
Windows 2000 Professional, Windows XP [solo aplicaciones de escritorio] |
Servidor mínimo compatible |
Windows 2000 Server [solo aplicaciones de escritorio] |
Encabezado |
|
IDL |
|
Archivo DLL |
|