Process stoppen

[Spy1]

Heeft er iemand een code voor om een process te laten stoppen? Bedankt.

 

[Harry Snor]

Hoi !

Kan gewoon met taakmanager: onder XP: Ctrl + Alt + Del

Kijk onder processen en zoek de juiste.

Kies voor verwijderen.

Greetz,

Harry.

 

[Spy1]

Dat snap ik Snorrie. Maar ik post het in de programmeren sectie, dus zou ik dan niet bedoelen dat ik dat wil toevoegen in mijn programma die ik aan het maken ben, ik zei daarom ook 'code' om geen antwoorden te krijgen zoals als jij hebt gegeven.

Extra uitleg: Ik wil een code om het process "samp-server" te stoppen zonder dat de gebruiker wat hoeft te doen.

 

[Pizara]

        'Process starten

        Dim proc As New ProcessStartInfo()
        proc.FileName = "test.exe"
        Process.Start(proc)

        'Process killen , hier wordt een for-each gebruikt om ALLE openstaande processen met de naam TEST.EXE te stoppen.

        Dim plist As Process() = Process.GetProcesses()
        For Each p As Process In plist
            Try
                If p.MainModule.ModuleName.ToUpper() = "TEST.EXE" Then p.Kill()
            Catch
            End Try
        Next p

 

[Spy1]

Doet het niet?

 

[Pizara]

Dat ligt toch echt aan jou. Heb je TEST.EXE wel vervangen voor een bestaand programma???

 

[Spy1]

Natuurlijk heb ik dat gedaan. Ik heb deze code:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim plist As Process() = Process.GetProcesses()
        For Each p As Process In plist
            Try
                If p.MainModule.ModuleName.ToUpper() = "samp-server.exe" Then p.Kill()
            Catch
            End Try
        Next p
    End Sub
End Class

 

[Pizara]

heet ie wel zo in je process list?

dit moet werken , open maar eens een calculator en vervang de naam eens voor CALC.EXE

 

[ArComAr]

Op deze manier kan het nog korter:

Dim pProcess() As Process = System.Diagnostics.Process.GetProcessesByName("notepad")

For Each p As Process In pProcess
p.Kill()
Next

En het probleempje bij u is dat je je letters naar een uppercase zet, maar je vergelijkt met een lower case naam:
code van spy:

If p.MainModule.ModuleName.ToUpper() = "samp-server.exe" Then p.Kill()

code van pizara:

If p.MainModule.ModuleName.ToUpper() = "TEST.EXE" Then p.Kill()

Bij het gebruik van pizara zijn code krijg ik wel soms een access denied exception.