Visual Interdev - VBScript: Cerrar Ventana

 
Vista:

VBScript: Cerrar Ventana

Publicado por Brewster (1 intervención) el 07/12/2005 17:47:54
Buenas tades.-

Tengo el siguiente código.-

<script language="VBScript">
Set IE = CreateObject("InternetExplorer.Application")
IE.FullScreen=true
IE.Left=10
IE.Top=150
IE.Width=450
IE.Height=320
IE.Menubar=false
IE.Resizable=false
IE.Statusbar=false
IE.Toolbar=True
IE.AddressBar=False
IE.Navigate("_Parent")
IE.Navigate2("c:\")
IE.Visible=true
if IE.focus then
end if


Set IEDer = CreateObject("InternetExplorer.Application")
IEDer.FullScreen=true
IEDer.Left=460
IEDer.Top=150
IEDer.Width=325
IEDer.Height=320
IEDer.Menubar=false
IEDer.Resizable=false
IEDer.Statusbar=false
IEDer.Toolbar=True
IEDer.AddressBar=False
IEDer.Navigate2("ftp://ateneasoft.com:altplsg@ftp.ateneasoft.com")
IEDer.Visible=true

</script>

Se me abren perfectamente las dos ventanas, ahora bien, quiero conseguir que cuando se pierda el foco las ventanas se cierren automáticamente.

Desde ya muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder