Пример убийства процесса

Подкиньте пример убийства процесса, никак не могу найти самостоятельно - все в основном опираются на поиск окошка по заголовку и затем отправки ему сообщения о закрытии. В моем же случае приложение не имеет окна и по ALT+TAB невидимо, зато если открыть Task Manager, то присутсвует... Поэтому надо именно закрытие процесса, а не окна.

0

С кодом пока помочь не могу. Но задача оказалась интересной. Пошел от обратного: спрятал свое приложение от ALT+CTRL+DEL функцией RegisterServiceProcess (см. API). А когда еще раз перечитал пример к этой функции, то появилась одна мысля... Попробуй сделать так: сними атрибут 'сервис' со своей программы через RegisterServiceProcess, а потом убей программу по проверенному пути, т.е. через посылку ему сообщения и т.д. В качестве аргумента эта функция требует PID, брал я его у Process Viewer'а

0

Нужен бы работающий пример... Приложение не мое, после работы VB c MS Word 2000, Word почему-то не убивает свой процесс 'WINWORD.EXE', вот его бы я и хотел убить.

0

И даже Set objWord=Nothing не помогает?

0

Нет, не помогает. Я открываю Word для печати документа и тут же закрываю:

msWord.ActiveDocument.Close True 'False тоже пробовал
Set msWord = Nothing

открывается Word так:

Dim msWord As Word.Application

If WordCount > 0 Then
Set msWord = GetObject(Class:='Word.Application.9')
Else
Set msWord = CreateObject('Word.Application.9')
End If

где WordCount - кол-во обрабатываемых документов. Если это не первый документ, то берется GetObject

0

Да-да-да.
И у меня такая же картина с Excel.
Создаю CreateObject, делаю что надо, сохраняю, затем очищаю Nothing и объект, и книгу, и лист.
В списке Ctrl_alt_del остается Excel.
Он исчезает сам только после закрытия моей программы, вызывющей Excel.

Решение проблемы:
1. objWord.Quit '!!!!!!!
2. Удалить все ссылки на объекты Word
3. Убрать все ссылки в проекте на библиотеку Word(хотя, если ты используешь CreateObject, то их быть не должно)

0

Блин, они бы еще Exit назвали! Спасибо, это было то, что нужно!

0

Не помогает object.quit
Тем более, что мне надо его оставить видимым, пользователь закрывает после просмотра сам.

Дополнительная информация:
Пока Excel еще не закрыт, в окне Ctrl-Alt-Del процесс называется 'Microsoft Excel файл.xls'.
После закрытия Excelа этот процесс исчезает, но появляется другой. И называется он уже 'Excel'.
Все бы ничего, только при такой ситуации при попытке запуска любого другого файла xls (не из моей программы) открывается только оболочка Excel (окно,меню), а рабочее поле собственно с документом пусто. Вернее, прозрачно. Вызванного бокумента там не отображается.

Надо
УDim xlBook As Object
Set ExcelWorkbook = GetObject('Z:Muugiosakond.xls')
ExcelWorkbook.Application.Visible = True '
видимость Excel
ExcelWorkbook.Application.Windows('Muugi osakond.xls').Visible = True
'Видимость Конкретной книги
ExcelWorkbook.Application.Quit'
Вроде работает

0

Может это подойдет?

Насколько я понял, пользователь САМ закрывает Excel, если это так то попробуй в коде VB создать объектную пременную с WithEvents:

Dim WithEvents xlBook As Excel.Workbook

Потом в коде события закрытия книги очищай свои переменные и прочее:

Private Sub xlBook_BeforeClose(Cancel As Boolean)
' Hide the Microsoft Excel window so the message
' will be visible.
xlBook.Application.Visible = False
' Display the message.
MsgBox 'This workbook must remain open.'
' Unhide the Microsoft Excel window.
xlBook.Application.Visible=True
' Set the event procedure's Cancel argument
' to True, cancelling the event.
Cancel = True
End Sub

Почитай MSDN по VB, там много примеров и эти примеры взяты из MSDN

0

'**************************************
' Name: Kill every process
' Description:Kill every window or process that
'you want if you know the handle
'Inputs:handle of the window that you want to kill
'**************************************
Declare Function GetWindowThreadProcessId Lib 'user32' (ByVal Hwnd As Long, lpdwProcessId As Long) As Long

Declare Function TerminateProcess Lib 'kernel32' (ByVal ApphProcess As Long, ByVal uExitCode As Long) As Long

Declare Function OpenProcess Lib 'kernel32' (ByVal dwDesiredAccess As Long, ByVal blnheritHandle As Long, ByVal dwAppProcessId As Long) As Long

Declare Function CloseHandle Lib 'kernel32' (ByVal hObject As Long) As Long
Const PROCESS_ALL_ACCESS = 0

Function KillWindow(Hwnd)
Dim PROCESSID As Long
Dim exitcode As Long
Dim MyProcess As Long
Call GetWindowThreadProcessId(Hwnd, PROCESSID) ' Get the processid from the window
MyProcess = OpenProcess(PROCESS_ALL_ACCESS, False, PROCESSID) ' open the process by processid
AppKill = TerminateProcess(MyProcess, exitcode) ' Terminate the process by process
Call CloseHandle(MyProcess) ' close the process
End Function

MiCros, я же указал, что окна нет, поэтому KillWindow не подойдет

0

It may be necessary to forcibly terminate an unresponsive application programmatically. This code performs the same function as the Task Manager 'End Process' command.

Declare Function OpenProcess Lib 'kernel32' (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Declare Function CloseHandle Lib 'kernel32' (ByVal hObject As Long) As Long
Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Declare Function TerminateProcess Lib 'kernel32' (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Sub ProcessTerminate(pl_ProcessID As Long)
Dim ll_ProcessHandle As Long
Dim ll_ExitCode As Long
Dim ll_RetVal As Long

On Error GoTo ProcessTerminate_Error
ll_ProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, 0, pl_ProcessID)
If ll_ProcessHandle Then
ll_RetVal = TerminateProcess(ll_ProcessHandle, ll_ExitCode)
Call CloseHandle(ll_ProcessHandle)
End If
ProcessTerminate_Error:
Exit Sub
End Sub
Please note that a process should only be terminated as a very last resort. Windows will attempt to clean up whatever resources it can but it is far better to allow a process to terminate cleanly whenever possible. Use this technique with extreme caution.

0

Блин, люди добрые пожите чем можите!!!
Ничего из перечисленного выше не работает
У меня аналогичная проблема: из Access вызываю Excel, делаю там все что надо, убиваю все объектные переменные из excel выхожу (obj.quit). А процесс остается!!! И убивается после закрытия Access.
Что делать?

Dim WB As Excel.Workbooks
Dim WS As Excel.Worksheet
Set WB = Excel.Workbooks
WB.Open fileExcel, 0, 1
Set WS = WB(1).Sheets(1)
'..........
WB.Close
У меня все нормально))
Не забудь установить референс на Microsoft Excell XX Object Lib....

0