vb6.0 как узнать жив ли процесс с таким то PID

[student-uni]

есть ли в Visual Basic 6.0 способ чтобы проверить жив ли процесс с известным PID ?

В VB.NET ето GetProcesses
Получаем все процессы
и в цикле смотрим своиства ID и ProcessName каждого
А в вб 6.0 ?

Спасибо

[GSerg]

А в VB6 это Private Declare Function EnumProcesses Lib "psapi.dll" (ByRef lpidProcess As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long
Либо CreateToolhelp32Snapshot для совместимости с 9x.

[tyomitch]

А почему бы не OpenProcess(SYNCHRONIZE)?
И перебора не надо.

[ANDLL]

Вероятно, можно настроить ACL так, что процесс вообще нельзя открыть с помощью OpenProcess?

[tyomitch]

И в чём разница между таким процессом и мёртвым?

[ANDLL]

Окна, работа с файлами? Короче все признаки жизни, бьющей ключом, разве не так?

[tyomitch]

Хорошо, давай без лишних сущностей: пусть неоткрываемый процесс будет без окон и без дверей.
В чём будет разница тогда? Только что файл *.exe заблокирован? Окей, две проверки: всё лучше, чем перебор.

[ANDLL]

В чём будет разница тогда? Только что файл *.exe заблокирован?

ну он может не только exe-файл блокировать. Ведь есть же куча прог, которые работают в невидимо режиме. Скажем, логгер.
Кстати, а TM такую программу тоже не сможет закрыть, получается?

[tyomitch]

Кстати, а TM такую программу тоже не сможет закрыть, получается?

Я думаю, он её такую даже не увидит
Ведь имя образа он считывает из АП процесса, а если доступ к нему перекрыт -- что ж он, пустую строку нарисует?

[Amed]

Почему бы не нарисовать хотя бы что-то вроде 'Unnamed process'?

[Twister]

2 tyomitch

Хорошо, давай без лишних сущностей: пусть неоткрываемый процесс будет без окон и без дверей.
В чём будет разница тогда? Только что файл *.exe заблокирован? Окей, две проверки: всё лучше, чем перебор.

А если привилегий не хватает чтоб процесс открыть или, что похлеще, процесс перехватывает ZwOpenProcess?...
Придется привилегии добавлять. А с перехватом ZwOpenProcess вообще хлопот не оберешься.
ИМХО, лучше SnapShot. Не большая потеря в скорости, но надежнее...

[tyomitch]

Давайте лучше спросим у student-uni, беспредельничает его процесс или нет. Если нет, то нафига всё это воротить?

[Twister]

2 tyomitch
Тоже верно...
Но я вот тут подумал, а если ему нужен общий случай?
student-uni
Итак, мы ждем...

[GSerg]

Я думаю, что всё-таки OpenProcess рулит...

Если процесс есть, будет либо success, либо lastdllerror будет 5
Если процесса нет, будет lastdllerror = 87...

Код: Выделить всё

Private Function ProcessExists(ByVal pID As Long) As Boolean
  Dim h As Long
 
  h = OpenProcess(SYNCHRONIZE, 0, pID)
 
  If h = 0 Then
    ProcessExists = Err.LastDllError = 5
  Else
    CloseHandle h
    ProcessExists = True
  End If
End Function