Foro de elhacker.net

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?

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
(http://img83.imageshack.us/img83/1655/ejemplo2su7.png)
Para Que no Copies el código xD Considéralo Un truco anti-lammer
Para alguien mas, no estoy insinuando nada  :P
ME DICES SI TE SIRVIO... :P

APARTE ES MAS CORTO Y CONVENIENTE ASI,

POR QUE IMAGINATE SI ES UNA DATABASE

xD
se te madre si matas su proceso

el timer le pones intervalo=60000 y fuera

lol
solo necesitas

Private Sub Timer1_Timer()

END

END SUB

jajajajjajaa

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

timer1_timer()
end
endsub
 

y estamos de acuerdo  q tiene limite de 65000
de intervalo

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