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
Private Sub Timer1_Timer()
static minus as integer
minus=minus+1
if minus>=3 then
end
endif
End Sub
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
Citary estamos de acuerdo q tiene limite de 65000
Ah parece k lo entiendeste por fin... Despues de mucho te lo explicar....