Visual Basic и диспетчер задач Windows

[GPP]

Здравствуйте! Как в Visual Basic работать c диспетчером задач Windows? А точнее как средствами VB можно завершать программы в диспетчере задач. За ранее огромное спасибо!

[GM]

Поищи в поиске по ключевым словам TerminateProcess, Process32First

[Mleha]

Причем тут TM ищем hwnd окна проги и sendmessage'm отправляем WM_CLOSE(помойму &H10)

[GPP]

Приведите пожалуйста пример кода...

[GM]

http://bbs.vbstreets.ru/viewtopic.php?t=14417&start=27

[Sebas]

Причем тут TM ищем hwnd окна проги и sendmessage'm отправляем WM_CLOSE(помойму &H10)

а если нет окна? опс!

[GPP]

Мне нужен исходник программы которая завершает указанный процесс в диспетчере задач Windows. Вот я не знаю как это можно сделать. Я собираюсь писать программу Клиент-сервер для принудительного завершения программ на удаленном компьютере. Очень надо. Помогите пожалуйста.

[AjaxVS]

А через WMI не легче? Многие мои знакомые юзают мой "Диспетчер", а Виндовзный и не знают, как выглядит +_+

[GPP]

Только через VB6 по средствам кода

[GM]

А через WMI не легче?

Только через VB6 по средствам кода

А разве на VB6 нельзя использовать WMI???

[AndreyIl]

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'Notepad.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next

[GPP]

Огромное спасибо за WMI! А как сделать так чтобы завершался процесс указанный к примеру в Textbox? Я начинающий в Visual Basic.
Я пробовал так:

Dim x As String
x=Text1.Text
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = x")
For Each objProcess in colProcessList
objProcess.Terminate
Next

Но не вышло. Помогите мне пожалуйста. ЗА РАНЕЕ СПАСИБО!

[AndreyIl]

Вот пример для локального компьютера, поэтому переменная strComputer заменена сразу на "." в строке с "\\root"

Private Sub Command1_Click()
Dim WMIService As Object
Dim ProcessList As Object
Dim Process As Object
Set WMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set ProcessList = WMIService.ExecQuery _
("Select * from Win32_Process Where Name = '" & Text1.Text & ".exe'")
For Each Process In ProcessList
Process.Terminate
Next
End Sub

[AjaxVS]

Фишка в том, что для работы с WMI в сети одним кодом не отделаешься, нужны настройки с определением определенных прав... Практически это осуществить трудно, если ты не админ...