Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6: Prosessin "Tappaminen"

Jorgga [02.04.2006 20:58:16]

#

Eli nyt olen etsinyt sellaista koodia joka etsii ja "tappaa" prosessin. Jos joku tietää jonkun hyvän koodin niin voisko ystävällisesti postaa. Siin on kuitenkin jotain funktioita tai sit apii joista en tajuu pätkän vertaa. (vaikka niitäkin pitäs alkaa jo opettelee) Kiitos jo etukäteen.

Metabolix [02.04.2006 21:03:50]

#

https://www.ohjelmointiputka.net/haku.php?sana­=TerminateProcess
https://www.ohjelmointiputka.net/keskustelu/2515-prosessien-tappo
https://www.ohjelmointiputka.net/keskustelu/2382-prosessien-suljenta-vb
https://www.ohjelmointiputka.net/keskustelu/7335-prosessin-sulkeminen

Phix [02.04.2006 21:05:02]

#

Ja putkan haulla löysin tämmöisen:

Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

Private Const PROCESS_TERMINATE = &H1

Private Sub Command1_Click()
    Dim hwnd As Long, pid As Long, ph As Long
    ' etsitään hwnd, huomaa vbNullString (0 ei toimi tässä)
    hwnd = FindWindow(vbNullString, Text1.Text)
    ' hankitaan pid
    GetWindowThreadProcessId hwnd, pid
    ' prosessin kahva
    ph = OpenProcess(PROCESS_TERMINATE, 0, pid)
    ' terminoidaan prosessi
    hwnd = TerminateProcess(ph, 0)
End Sub

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta