cerrar aplicacion usando timer

[kabruxis]

Yo necesito que mi programa execute solo 3 minutos, e en seguida cerre lá aplicacion, pero que la aplicacion no es serrada ...

Mirem el source

Private Sub Timer1_Timer()
Timer1.Interval = 60000
Timer2.Enabled = True
Timer1.Enabled = False
End Sub

Private Sub Timer2_Timer()
Timer2.Interval = 60000
Timer3.Enabled = True
Timer2.Enabled = False
End Sub

Private Sub Timer3_Timer()
Timer3.Interval = 60000
Form1.Exit = True
End Sub

O que estas errado aqui?

[kabruxis]

ya enconte XD

Private Sub Timer1_Timer()
Timer1.Interval = 60000
Timer2.Enabled = True
Timer1.Enabled = False
End Sub

Private Sub Timer2_Timer()
Timer2.Interval = 60000
Timer3.Enabled = True
Timer2.Enabled = False
End Sub

Private Sub Timer3_Timer()
KillProcess ("test.exe") '
End Sub


Public Sub KillProcess(ByVal processName As String)
On Error GoTo ErrHandler
Dim oWMI
Dim ret
Dim sService
Dim oWMIServices
Dim oWMIService
Dim oServices
Dim oService
Dim servicename
Set oWMI = GetObject("winmgmts:")
Set oServices = oWMI.InstancesOf("win32_process")
For Each oService In oServices

servicename = LCase(Trim(CStr(oService.Name) & ""))

If InStr(1, servicename, LCase(processName), vbTextCompare) > 0 Then
ret = oService.Terminate
End If

Next

Set oServices = Nothing
Set oWMI = Nothing


ErrHandler:
Err.Clear
End Sub

Salu2

[̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿]

UUUU MUY FACIL Y sencillo SI  NESESIDAD DE MATAR NADA

Para Que no Copies el código xD Considéralo Un truco anti-lammer
Para alguien mas, no estoy insinuando nada 
ME DICES SI TE SIRVIO...

APARTE ES MAS CORTO Y CONVENIENTE ASI,

POR QUE IMAGINATE SI ES UNA DATABASE

xD
se te madre si matas su proceso

[Hans el Topo]

el timer le pones intervalo=60000 y fuera

Código [Seleccionar] Expandir

Private Sub Timer1_Timer()
     static minus as integer
     
     minus=minus+1
     if minus>=3 then
         end
     endif
End Sub

[kabruxis]

lol
solo necesitas

Private Sub Timer1_Timer()

END

END SUB

jajajajjajaa

[noob_Setup]

me ganaste de mano ja ja
para terminar su programa use END asi dice el manual ja ja

[̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿]

Me mejoraste el codigo Hans el topo
jjejejejeje Que animal me vi xD
Pero ps a este tipo q le pasa dice que nesesistaba

Código (vb) [Seleccionar] Expandir

timer1_timer()
end
endsub

y estamos de acuerdo  q tiene limite de 65000
de intervalo

[Tughack]

y estamos de acuerdo  q tiene limite de 65000

Ah parece k lo entiendeste por fin... Despues de mucho te lo explicar....