Prozesse kontrollieren und beenden

  • VB6

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Pascal.

    Prozesse kontrollieren und beenden

    Hallo,

    ich habe das Problem, dass bei Ausfuehrung meines VB6 Programmes ein Prozess gestartet werden soll und am Ende wieder beendet. Eventuell koennte es jedoch auch sein, dass dieser Prozess schon laeuft. Ich habe allerdings keine Ahnung, wie ich dies codetechnisch hinbekommen soll. Koennt Ihr mir helfen?

    Gruss
    Felix

    ...ein Prozess gestartet werden soll...

    Shell-Befehl oder ShellExecute (siehe FAQ-Bereich)
    am Ende wieder beendet

    Da gibts mehrere Möglichkeiten, hier mal eine: Fremde Anwendung nach vorgegebener Zeitspanne beenden
    Eventuell koennte es jedoch auch sein, dass dieser Prozess schon laeuft.

    Suchfunktion benutzen! -> vb-paradise.de/thread.php?threadid=2119
    Gruß, Agent Smith 8-)

    activeFlags = (lazy OR weary)

    Lemgo-Verschwörung | Mathematics | VB-Paradise in blau

    Also hab das jetzt mal mit den Tipps probiert. Das geht auch einigermaßen,nur das mit dem Terminiern am Ende klappt net bzw. verstehe ich nicht.

    also in dem Beispiel steht

    Brainfuck-Quellcode

    1. 'Dieser Source stammt von [URL]http://www.activevb.de[/URL]
    2. 'und kann frei verwendet werden. Für eventuelle Schäden
    3. 'wird nicht gehaftet.
    5. 'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
    6. 'Ansonsten viel Spaß und Erfolg mit diesem Source!
    8. '------------- Anfang Projektdatei Project1.vbp -------------
    9. '--------- Anfang Formular "Form1" alias Form1.frm ---------
    10. ' Steuerelement: Textfeld "Text1"
    11. ' Steuerelement: Schaltfläche "Command1"
    12. ' Steuerelement: Beschriftungsfeld "Label1"
    14. Option Explicit
    16. Private Declare Function WaitForSingleObject Lib "kernel32" _
    17. (ByVal hHandle As Long, ByVal dwMilliseconds As Long) _
    18. As Long
    20. Private Declare Function CloseHandle Lib "kernel32" _
    21. (ByVal hObject As Long) As Long
    23. Private Declare Function OpenProcess Lib "kernel32" (ByVal _
    24. dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
    25. ByVal dwProcessId As Long) As Long
    27. Private Declare Function TerminateProcess Lib "kernel32" (ByVal _
    28. hProcess As Long, ByVal uExitCode As Long) As Long
    30. Const INFINITE = -1&
    31. Const SYNCHRONIZE = &H100000
    33. Private Sub Form_Load()
    34. Text1.Text = 1000
    35. End Sub
    37. Private Sub Command1_Click()
    38. Dim Task&, Handle&, Result&
    40. Task = Shell("notepad.exe", vbNormalFocus)
    41. Handle = OpenProcess(SYNCHRONIZE, False, Task)
    43. Result = WaitForSingleObject(Handle, CLng(Text1.Text))
    44. AppActivate Me.Caption
    46. If Result Then
    47. Result = TerminateProcess(Handle, 0)
    48. Result = CloseHandle(Handle)
    49. MsgBox "Durch das Programm geschlossen"
    50. Else
    51. MsgBox "Durch den Anwender geschlossen"
    52. End If
    53. End Sub


    Wie muß ich jetzt meinen Process hier einbinden, das er nur geschloßen wird. hier wird er ja als Task eingebunden und dann geöffnet und ins Handle geschrieben.

    Hoffe das ist klar geworden

    MfG Felix

Facebook
Telefonspende