VBNet - Форум - Убить процесс в ХР

Вопрос: Убить процесс в ХР Добавлено: 05.02.04 23:01

Автор вопроса: Domod

Как убить определенный процесс в ХР?
Пробывал через TermenateProcess, В 98 - Все ОК, а в ХР нефига
???

Ответить

Ответы Всего ответов: 3

Номер ответа: 1
Автор ответа:

Chill

ICQ: 554200

Вопросов: 101
Ответов: 343

Профиль | | #1

Добавлено: 06.02.04 23:07

Напиши код...

Ответить

Номер ответа: 2
Автор ответа:

Domod

Вопросов: 2
Ответов: 3

Профиль | | #2

Добавлено: 07.02.04 16:00

'MoDuLe:

Public Const TH32CS_SNAPPROCESS As Long = 2&
Public Const MAX_PATH As Long = 260

Public Type PROCESSENTRY32
    dwSize As Long
    cntUsage As Long
    th32ProcessID As Long
    th32DefaultHeapID As Long
    th32ModuleID As Long
    cntThreads As Long
    th32ParentProcessID As Long
    pcPriClassBase As Long
    dwFlags As Long
    szExeFile As String * MAX_PATH
End Type


Public Declare Function CreateToolhelp32Snapshot Lib "kernel32" _
   (ByVal lFlags As Long, ByVal lProcessID As Long) As Long

Public Declare Function ProcessFirst Lib "kernel32" _
    Alias "Process32First" _
   (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long

Public Declare Function ProcessNext Lib "kernel32" _
    Alias "Process32Next" _
   (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long

Public Declare Sub CloseHandle Lib "kernel32" _
   (ByVal hPass As Long)

'Forma:

Private Sub Command1_Click()    Dim hSnapShot As Long    Dim uProcess As PROCESSENTRY32    Dim success As Long    hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0&    If hSnapShot = -1 Then Exit Sub    uProcess.dwSize = Len(uProcess)    success = ProcessFirst(hSnapShot, uProcess)    If success = 1 then            Do             List1.AddItem uProcess.szExeFile

		List2.addItem uprocess.th32ProcessID        Loop While ProcessNext(hSnapShot, uProcess)                End If    Call CloseHandle(hSnapShot)End Sub

private sub Command2_click()

TerminateProcess OpenProcess(0, True, cLng(List2.Text)), 0

End sub

Ответить

Номер ответа: 3
Автор ответа:

NeForm@t

ICQ: 252999255

Вопросов: 36
Ответов: 247

Web-сайт: g--k.newmail.ru
Профиль | | #3

Добавлено: 07.02.04 22:45

Попробуй так:

TerminateProcess OpenProcess(&HF0000 Or &H100000 Or &HFFF, False,pid), 1

Ответить

Страница: 1 |