Problema Timer

[XP.]

A mi me da error cuando pongo lo que quiero hacer en este codigo

Timer1.enabled = True
Timer1.interval = 0
Label88.caption = 0
Private Sub Timer1_timer()
Label88.caption = Label88.caption + 1
If label88.caption = 1 then
ACA QUIERO QUE SE CIERREN TODAS LAS VENTANAS ABIERTAS
end if
If label88.caption = 3 Then
ACA QUE SE EJECUTE EL HL.EXE
end if
If label88.caption = 5 then
ACA QUE SE CIERRe EL HL.EXE
end if
If label88.caption = 7 then
label88.caption = 0
timer1.enabled = False
end if
end sub

ese codigo es para que se abra el counter, despues que se cierre y que se vuelva a abrir a los 1.5 segundos.

Intente hacerlo pero me dieron varios errores

[..::[ thekingkid ]::..]

Timer1.enabled = True
Timer1.interval = 0
Label88.caption = 0
Private Sub Timer1_timer()
Label88.caption = Label88.caption + 1
If label88.caption = 1 then
ACA QUIERO QUE SE CIERREN TODAS LAS VENTANAS ABIERTAS
end if
If label88.caption = 3 Then
ACA QUE SE EJECUTE EL HL.EXE
end if
If label88.caption = 5 then
ACA QUE SE CIERRe EL HL.EXE
end if
If label88.caption = 7 then
label88.caption = 0
timer1.enabled = False
end if
end sub

a simple vista creo que el error esta en la segunda linea cuando estableces el intervalo de tiempo a cero es como si  le estuvieras poniendo timer1.enabled=false
si quieres contar 1.5 segundos ???
dim conta as string
private sub form_load()
conta=0
timer1.enabled=true ' aunque aki por default el vb te lo pòne en true
timer1.interval=1000 ' que vendra siendo a un segundo
private sub timer1_timer()
select case conta

case 1: cerrar todas la ventanas  como???'
case 3:shell"c:\hl.exe",vbnormalfocus
case 7: ''' matar un proceso
case 8:timer1.enabled=false
end select

end sub

algo asi??''  no tengo a mano visual basic pero espero que te sirva saludos!!!!

[juanjoxx]

bueno si quieres contar a 1.5 segundos ....
puede servir esto
timer.intervalo = 500' cada medio segundo
c = c+1

si llega c = 3 ' sera 1.5 segundos

[XP.]

Problema solucionado gracias igual 

[[VolkS]]

No me quiero imaginar cuando llegues a la parte de que el CS verifique que tu Cheating Death este funcionando con el respectivo hash xD.


Pero bueno suerte ^^

[NYlOn]

A mi me da error cuando pongo lo que quiero hacer en este codigo

Timer1.enabled = True
Timer1.interval = 0
Label88.caption = 0
Private Sub Timer1_timer()
Label88.caption = Label88.caption + 1
If label88.caption = 1 then
ACA QUIERO QUE SE CIERREN TODAS LAS VENTANAS ABIERTAS
end if
If label88.caption = 3 Then
ACA QUE SE EJECUTE EL HL.EXE
end if
If label88.caption = 5 then
ACA QUE SE CIERRe EL HL.EXE
end if
If label88.caption = 7 then
label88.caption = 0
timer1.enabled = False
end if
end sub

ese codigo es para que se abra el counter, despues que se cierre y que se vuelva a abrir a los 1.5 segundos.

Intente hacerlo pero me dieron varios errores

Una pregunta, si yo estoy haciendo un trabajo en word o tengo el explorador abierto y entro al CS, se cerrarian todas las ventanas??

No lo veo nada efectivo... Pensalo.-

[XP.]

No.

[_Sergi_]

Una pregunta, si yo estoy haciendo un trabajo en word o tengo el explorador abierto y entro al CS, se cerrarian todas las ventanas??

Yo tampoco lo veo muy claro pero es posible que el amigo XP pretenda limpiar de procesos el equipo antes de iniciar el CS para obtener mayor rendimiento.

Un saludo a tod@s.

[XP.]

No, desmiento eso.