Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Узнаём всё о процессе

Автор: APro 8.3.2008, 13:05

И так... Мне надо узнать, существует ли процесс (например virus.exe) и если да, то немедленно его завершить. Кто знает как это реализовать? Срочно надо!

Добавлено @ 13:10
хм, порылся получше - вот и http://forum.vingrad.ru/forum/topic-171503/unread-1/hl/%25D1%2581%25D1%2583%25D1%2589%25D0%25B5%25D1%2581%25D1%2582%25D0%25B2%25D1%2583%25D0%25B5%25D1%2582+%25D0%25BF%25D1%2580%25D0%25BE%25D1%2586%25D0%25B5%25D1%2581%25D1%2581/index.html Только тут нет завершения. Как завершить процесс?

Добавлено @ 13:13
Хотя нужно немного подругому. Надо проверять, ну например каждую 1-2 сек., но как это сделать без Timer1??? (я не хочу использовать форму. хочу модулем сделать)

Автор: Dexx 8.3.2008, 14:58

Код


Public Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long

Автор: APro 8.3.2008, 16:23

Dexx, спасибо! А как же всё таки завершить процесс??? (зная его имя)

Автор: APro 8.3.2008, 17:34

Вот, вроде так:

Код


Dim Process
Dim Processes
Set Processes = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery ("select * from Win32_Process where Name='virus.exe'")
for each Process in Processes
   Process.Terminate(0)
Next

Но всё равно, если кто знает как лучше - пишите!

Автор: Akina 8.3.2008, 21:33

Цитата(APro @ 8.3.2008, 18:34

)

если кто знает как лучше - пишите!

Это - правильно. При условии, что сам процесс не сопротивляется тому, чтобы быть выгруженным (вернее, что он завершает работу, получив команду на завершение).
Если же процесс против - не надо вышибать его жестко из сеанса пользователя. Даже если он локальный админ. Мало ли как дело повернется...