КОРРЕКТНО завершить чужой процесс

[Space]

Есть uProcess.th32ProcessID и hProcess. Что можно сделать - послать сообщение(?), использовать спец. API(?) или всё же придётся перебирать окна верхнего уровня, получать от их hWnd ProcessID, сравнивать с нашим uProcess.th32ProcessID и слать окну WM_QUIT?
Хм, а если процесс не имеет окна?

[ANDLL]

Есть функция SendThreadPostMessage и нет понятия "корректно заврешить процесс"

[Space]

нет понятия "корректно заврешить процесс"

а какое понятие тогда используется для TerminateProcess?

[ANDLL]

Просто завершение процесса

[Space]

какое сообщение посылается процессу без окна, для норм. его завершения?

[Antonariy]

Куда посылать сообщения, если окна нет?

[Денис]

Предлагаю грязный хак (для разнообразия, сильно не бейте)

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

Private Sub cmdKillProcess(ProcessName As String, ForceExit As Boolean)
     
   Dim ckpFlag As String
   Const ckpCommand As String = "taskkill"
   
   If ForceExit Then
      ckpFlag = "/F" & Chr$(32) & "/IM"
   Else
      ckpFlag = "/IM"
   End If
   
   Shell ckpCommand & Chr$(32) & ckpFlag & Chr$(32) & ProcessName, vbHide
   
End Sub

При желании можно преобразовать в процедуру, получать консольный вывод и возвращать его, для дебага.

cmdKillProcess ИмяПроцесса.exe, False — завершает КОРРЕКТНО
cmdKillProcess ИмяПроцесса.exe, True — завершает принудительно

[Space]

Куда посылать сообщения, если окна нет?

в процедуру обработки сообщений

[Space]

Предлагаю грязный хак (для разнообразия, сильно не бейте)

для цього е TerminateProcess.

[Денис]

Предлагаю грязный хак (для разнообразия, сильно не бейте)

для цього е TerminateProcess.

Предлагаю почитать вот эту статейку (и комменты к ней хороши) может, что пригодится?

[Antonariy]

Куда посылать сообщения, если окна нет?

в процедуру обработки сообщений

Нда, надмозг в действии.

Вопрос от Капитана Очевидность: если окна нет, по какому хэндлу ты будешь отправлять сообщения?
Философский вопрос: какой смысл в процедуре, если нет окна?
Вопрос от тети Сары: Таки окна нет или оно спрятано?

[Space]

отвечаю на все вопросы. О чём те говорит сей код?

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

.WHILE TRUE
   invoke GetMessage, ADDR msg_,NULL,0,0
.BREAK .IF (!eax)
   invoke TranslateMessage, ADDR msg_
;   invoke DispatchMessage, ADDR msg_
.ENDW

program_end:
invoke ExitProcess,0

мабудь, сообщение WM_QUIT будет посылаться по хендлу процесса. Или треда? Сейчас потестим.

[Antonariy]

О чём те говорит сей код?

Обработка Распределение потоком очереди событий.

[Space]

вот. Окна там никакого нет.

[Antonariy]

вот. Окна там никакого нет.

И откуда это кому известно? Вот я написал однажды такой код:

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

    Do
        st = GetMessage(mMsg, 0, 0, 0)
        TranslateMessage mMsg
        DispatchMessage mMsg
        If st = 0 Then Exit Do
    Loop

Казалось бы, где окно? А оно есть.

Поток, как видно из твоего нехитрого примера, не обрабатывает оконные сообщения, он их распределяет по оконным процедурам, это они занимаются обработкой. Ну запостил ты в поток сообщение, и что? Если у него и есть какие-то условия для самоубиения, то они глубоко личные, лишь автору известные и никак не связанные с сообщениями о закрытии окон, которых нет.

Рискну предположить, что пример вырван из контекста, в котором окна таки создавались, иначе зачем делать цикл с Get/Translate/Dispatch? Нет окон — система вообще не будет отправлять потоку сообщения о действиях пользователя.

[Space]

да уж нет. Прога на асме без окон, должна как-то нормально завершиться, потому там и цикл такой крутится. Вообщем, я кажется, нашёл решение - PostThreadMessage или PostQuitMessage - пока не знаю, что выбрать.

[Antonariy]

Так это твоя программа и ты свой поток убиваешь аки Иван Грозный — сына? Тогда зачем там Translate и Dispatch? Окон же нет.

Вообщем, я кажется, нашёл решение - PostThreadMessage или PostQuitMessage - пока не знаю, что выбрать.

Розовенькую или голубенькую?
PostQuitMessage = PostThreadMessage + WM_QUIT

[Space]

тут что-то Тёмыч холивар раздул, я бегло прочитал, теперь в смятении, каков вывод из всего этого исследования?
viewtopic.php?f=9&t=13512&hilit=PostQuitMessage

[ANDLL]

Короче.
Еще раз - никакого корректного зваршение нет.
Есть или просто завершение или отправка како нибудь сообщения треду, реагируя на которое он должен завершиться, а может и не завершиться.
То что очередь сообщений есть только если есть окна - бред сивой кобылы

[Space]

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

То что очередь сообщений есть только если есть окна - бред сивой кобылы

А я этого и не говорил.
Кстати, почему в инете есть объявления ф-и CreateToolhelp32Snapshot Lib "toolhelp.dll" и CreateToolhelp32Snapshot Lib "kernel32" (и других ф-й по теме). Похоже, работают по любому.
И ещё - у меня не получается получить потоки указанного процесса, какие флаги надо указать? У меня так (выводит все потоки всех процессов):

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

Public Function GetThreads(ProcessID As Long, arrTreads() As THREADENTRY32) As Boolean
'Функция возвращает потоки
'Выход - массив потоков, GetThreads=False - ошибка

Dim hSnapShot As Long
Dim lRet As Long
Dim cTreads As Long
Dim hProc As Long
    ReDim arrTreads(0)
    hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, 0)
    If hSnapShot = -1 Then Exit Function
    cTreads = 0
    arrTreads(cTreads).dwSize = LenB(arrTreads(cTreads))
    arrTreads(cTreads).th32OwnerProcessID = ProcessID
    lRet = Thread32First(hSnapShot, arrTreads(cTreads))
    If lRet = 0 Then
     CloseToolhelp32Snapshot hSnapShot
     Exit Function
    End If
    Do While lRet
      ReDim Preserve arrTreads(cTreads)
      arrTreads(cTreads).dwSize = LenB(arrTreads(cTreads))
      arrTreads(cTreads).th32OwnerProcessID = ProcessID
      lRet = Thread32Next(hSnapShot, arrTreads(cTreads))
      cTreads = cTreads + 1
    Loop
    CloseToolhelp32Snapshot hSnapShot
    GetThreads = True
End Function


[Хакер]

И ещё - у меня не получается получить потоки указанного процесса, какие флаги надо указать? У меня так (выводит все потоки всех процессов)

Флаг SPACEBEHAV_ALWAYS_READ_MSDN_DOCUMENTATION:

TH32CS_SNAPTHREAD 0x00000004

Includes all threads in the system in the snapshot. To enumerate the threads, see Thread32First.

To identify the threads that belong to a specific process, compare its process identifier to the th32OwnerProcessID member of the THREADENTRY32 structure when enumerating the threads.

[ANDLL]

Был вопрос вида "Куда посылать сообщения, если окна нет?", не от тебя

[Space]

э, Хакер, я не дочитал. Я думал за этот вариант, но не думал, что они не сделают такой фишки внутри функции. Значит, перебор всех потоков - это не тормоз.
Да, флага SPACEBEHAV_ALWAYS_READ_MSDN_DOCUMENTATION я не нашёл Разве что флаг HACKER_TRANSLATE_ME_MSDN_DOCUMENTATION

[Space]

а что насчёт разных библиотек? На кой такой дубляж?

[Хакер]

В msdn написано: импорт из kernel32.dll. Остальное не должно тебя волновать. Мало ли зачем, для совместимости, например, продублировали.

[Space]

там написано
Link Library: Toolhelp.lib.

[Хакер]

Это никак не относится к VB-шникам.

[Space]

А есть разница между посылом всем окнам процесса WM_QUIT и всем потокам процесса WM_QUIT?

[alibek]

А есть разница между посылом всем окнам процесса WM_QUIT и всем потокам процесса WM_QUIT?

Разумеется есть. Второе является бредом.

[Space]

однако, работает. Особенно, если у проги нет окон, а только цикл обработки сообщений. Да и если есть окна.