| Вопрос: Процессы | Добавлено: 19.07.05 11:36 |
Автор вопроса:  gvozd | Web-сайт: www.gvozdsoft.com
|
| Как завершить работу чужой программы, завершить процесс? |
| Ответы | Всего ответов: 19 |
|
Номер ответа: 1 Автор ответа:  LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #1 | Добавлено: 19.07.05 11:57 |
|
Declare Function TerminateProcess Lib "kernel32" Alias "TerminateProcess" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long |
||
|
Номер ответа: 2 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 19.07.05 21:46 |
|
' <МОДУЛЬ ДЛЯ ОБРАБОТКИ ЗАПУЩЕННЫХ ПРОЦЕССОВ В СИСТЕМЕ> |
' | ' = = = = = = = M A D E B Y H A C K E R = = = = = = | ' icq: 826747, mail: no_detect@mail.ru | '===========================================================| Public proc As PROCESSENTRY32, Snap As Long Public Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (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 Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Const TH32CS_SNAPPROCESS = &H2, TH32CS_SNAPheaplist = &H1, TH32CS_SNAPthread = &H4, TH32CS_SNAPmodule = &H8, TH32CS_SNAPall = TH32CS_SNAPPROCESS + TH32CS_SNAPheaplist + TH32CS_SNAPthread + TH32CS_SNAPmodule, MAX_PATH As Integer = 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 Dim mass() As Long Dim NP() As String Public Sub KillProc(ArryProsess$()) 'Убивает все процессы которые даны в массиве ReDim mass(0) ReDim NP(0) On Error Resume Next Snap = CreateToolhelpSnapshot(TH32CS_SNAPall, 0) proc.dwSize = Len(proc) TheLoop = ProcessFirst(Snap, proc) Index = 0 While TheLoop <> 0 NP$(Index) = Replace(proc.szexeFile, Right(proc.szexeFile, 1), "" 
mass(Index) = proc.th32ProcessID Index = Index + 1 ReDim Preserve NP(Index) ReDim Preserve mass(Index) TheLoop = ProcessNext(Snap, proc) Wend CloseHandle Snap For i% = 0 To UBound(ArryProsess$) Kick$ = ArryProsess$(i 
For q% = 0 To Index If LCase(Left(Spliting(NP$(q , "\", Len(Kick$))) = LCase(Kick$) Then
openproc = OpenProcess(1, 0, mass(q )
term = TerminateProcess(openproc, -9) End If Next q% Next i% End Sub Dim arr$(0)
arr$(0) = "proc.exe" KillProc arr$ |
||
|
Номер ответа: 3 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #3 | Добавлено: 20.07.05 11:51 |
| Ну, ежели программа имеет главное окно, то лучше, конечно, SendMessage и WM_QUIT. | ||
|
Номер ответа: 4 Автор ответа: gvozdРазработчик Offline Client Вопросов: 164 Ответов: 1317 
|
Web-сайт: Профиль | | #4 | Добавлено: 20.07.05 15:32 |
| А вот Касперский, например, не дает вырубиться, это можно как-то обойти? | ||
|
Номер ответа: 5 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #5 | Добавлено: 20.07.05 16:24 |
| shell "net stop KAVMonitor" | ||
|
Номер ответа: 6 Автор ответа: gvozdРазработчик Offline Client Вопросов: 164 Ответов: 1317
|
Web-сайт: Профиль | | #6 | Добавлено: 20.07.05 17:26 |
| И что? | ||
|
Номер ответа: 7 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #7 | Добавлено: 20.07.05 17:41 |
| все он дает... он просто перехватывает API... но это народ как-то обходил, ибо я видел статейку как убить AVP... | ||
|
Номер ответа: 8 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #8 | Добавлено: 20.07.05 17:46 |
| помойму достаточно остановить службу | ||
|
Номер ответа: 9 Автор ответа: gvozdРазработчик Offline Client Вопросов: 164 Ответов: 1317
|
Web-сайт: Профиль | | #9 | Добавлено: 21.07.05 09:42 |
| Sne, а где эту статью найти? | ||
|
Номер ответа: 10 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #10 | Добавлено: 21.07.05 12:20 |
 в интернете
если бы я помнил где... наверняка ссылки бы дал... А вообще вот припоминать начинаюб... wasm.ru там три статьи: http://wasm.ru/article.php?article=apihook_1 http://wasm.ru/article.php?article=apihook_2 http://wasm.ru/article.php?article=apihook_3 в какой-то из них читал, точно грю
|
||
|
Номер ответа: 11 Автор ответа:  someoneВопросов: 215 Ответов: 1596 |
Web-сайт: Профиль | | #11 | Добавлено: 21.07.05 12:25 |
| да ты все же поройся в Примерах... там такого добра полно. | ||
|
Номер ответа: 12 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #12 | Добавлено: 21.07.05 16:18 |
| Sorry, shell "net stop KAVMonitor" не для последнего касперского, а четвёртый легко останавливался! | ||
|
Номер ответа: 13 Автор ответа: gvozdРазработчик Offline Client Вопросов: 164 Ответов: 1317
|
Web-сайт: Профиль | | #13 | Добавлено: 22.07.05 09:39 |
|
sne, особенно радует фраза "Так что любителям VB скорее всего придется обломиться."
А кто мне скажет, почему процессы вырубаются только под админом, а под юзером нет? |
||
|
Номер ответа: 14 Автор ответа: Pashenko ICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #14 | Добавлено: 22.07.05 12:18 |
|
А кто мне скажет, почему процессы вырубаются только под админом, а под юзером нет?
По-моему, ты сам ответил на свой вопрос. А вообще, видимо, надо смотреть, что за процесс. Прога, которую я тебе кидал, под Power User работает, проверено. |
||
|
Номер ответа: 15 Автор ответа: gvozdРазработчик Offline Client Вопросов: 164 Ответов: 1317
|
Web-сайт: Профиль | | #15 | Добавлено: 22.07.05 15:16 |
| Pashenko, просто один чел говорит, что у него не вырубаются процессы, пришлось создать себе учетку, но у меня все работает, странно как-то... | ||