Supportnet / Forum / Skripte(PHP,ASP,Perl...)
Task beenden
Frage
Hallo,
ich lese mit folgendem Code die Task-ID eines Programmes aus. Nun habe ich noch einen Timer und nach einer gewissen Zeit möchte ich das Programm über die Task-ID wieder beenden. Bisher habe ich leider keinen passenden Code gefunden. Kann mir denn jemand weiterhelfen?
Danke im Voraus
Andreas
hier der Code:
Private Sub ButtonPid_Click()
Dim Ergebnis
Ergebnis = Shell("CALC.EXE", 1) 'liefert die PID des
Call Timer1_Timer ' ruft die 10 Sek. Pause
End Sub
Private Sub Timer1_Timer()
Dim Pausenlänge, Start
Pausenlänge = 10 ' Dauer festlegen.
Start = Timer ' Anfangszeit setzen.
Do While Timer < Start + Pausenlänge
DoEvents ' Steuerung an andere Prozesse abgeben.
Loop
End Sub