Запретить запуск диспетчера задач

[tyomitch]

Это не вопрос, это комментарий к заметке Чена: A single-instance program is its own denial of service

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

Option Explicit
Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, lpClassName As Any, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DefDlgProc Lib "user32" Alias "DefDlgProcA" (ByVal hDlg As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const GWL_WNDPROC = (-4)

Sub Main()
SetWindowLong CreateWindowEx(0, ByVal 32770, "Диспетчер задач Windows", 0, 0, 0, 0, 0, 0, 0, 0, ByVal 0&), GWL_WNDPROC, AddressOf MyDlgProc
End Sub

Private Function MyDlgProc(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If wMsg = &H40B Then
    MyDlgProc = wMsg
Else
    MyDlgProc = DefDlgProc(hWnd, wMsg, wParam, lParam)
End If
End Function


Запустите и проверьте

[Konst_One]

не прокатывает, у меня ангельский винтукей

[tyomitch]

Тогда заголовок поменяй
Я могу и из настоящего taskmgr строку #10003 грузить, просто мне лень

[Konst_One]

[tyomitch]

Кстати, этот подход намного эффективнее убийства taskmgr по таймеру: если даже его переименуют, и строку в ресурсах изменят, чтобы заголовок был другой -- моя прога будет продолжать работать

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

[keks-n]

Это при условии, что стандартный виндовый таскман ничем не заменили.

[GM]

Только что писал загрузку строк, так что поуниверсалю код:

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

Option Explicit
Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, lpClassName As Any, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DefDlgProc Lib "user32" Alias "DefDlgProcA" (ByVal hDlg As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const GWL_WNDPROC = (-4)
Private Declare Function FreeLibrary Lib "kernel32.dll" (ByVal hLibModule As Long) As Long
Private Declare Function LoadLibraryEx Lib "kernel32.dll" Alias "LoadLibraryExA" (ByVal lpLibFileName As String, ByVal hFile As Long, ByVal dwFlags As Long) As Long
Private Declare Function LoadString Lib "user32.dll" Alias "LoadStringA" (ByVal hInstance As Long, ByVal wID As Long, ByVal lpBuffer As String, ByVal nBufferMax As Long) As Long
Private Declare Function GetSystemDirectory Lib "kernel32.dll" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal uSize As Long) As Long

Sub Main()
Dim hmodule As Long, b As String, ret As Long
b = Space$(255): ret = GetSystemDirectory(b, Len(b)): b = Left$(b, ret)
hmodule = LoadLibraryEx(b & "\taskmgr.exe", 0, 2)
If hmodule <> 0 Then
    b = Space$(255)
    ret = LoadString(hmodule, 10003, b, Len(b))
    b = Left$(b, ret)
    FreeLibrary hmodule
Else
    b = "Диспетчер задач Windows"
End If
   
SetWindowLong CreateWindowEx(0, ByVal 32770, b, 0, 0, 0, 0, 0, 0, 0, 0, ByVal 0&), GWL_WNDPROC, AddressOf MyDlgProc
End Sub

Private Function MyDlgProc(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If wMsg = &H40B Then
    MyDlgProc = wMsg
Else
    MyDlgProc = DefDlgProc(hWnd, wMsg, wParam, lParam)
End If
End Function


[tyomitch]

Поукорочу поуниверсаленный код:

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

Option Explicit
Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, lpClassName As Any, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DefDlgProc Lib "user32" Alias "DefDlgProcA" (ByVal hDlg As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const GWL_WNDPROC = (-4)
Private Declare Function FreeLibrary Lib "kernel32.dll" (ByVal hLibModule As Long) As Long
Private Declare Function LoadLibraryEx Lib "kernel32.dll" Alias "LoadLibraryExA" (ByVal lpLibFileName As String, ByVal hFile As Long, ByVal dwFlags As Long) As Long
Private Declare Function LoadString Lib "user32.dll" Alias "LoadStringA" (ByVal hInstance As Long, ByVal wID As Long, ByVal lpBuffer As String, ByVal nBufferMax As Long) As Long

Sub Main()
Dim hModule As Long, b As String
hModule = LoadLibraryEx("taskmgr.exe", 0, 2)
If hModule Then
    b = Space$(255)
    b = Left$(b, LoadString(hModule, 10003, b, Len(b)))
    FreeLibrary hModule
Else
    b = "Windows Task Manager"
End If
   
SetWindowLong CreateWindowEx(0, ByVal 32770, b, 0, 0, 0, 0, 0, 0, 0, 0, ByVal 0&), GWL_WNDPROC, AddressOf MyDlgProc
End Sub

Private Function MyDlgProc(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If wMsg = &H40B Then
    MyDlgProc = wMsg
Else
    MyDlgProc = DefDlgProc(hWnd, wMsg, wParam, lParam)
End If
End Function


[GM]

Кстати, почему то сразу не заметил:

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

If wMsg = &H40B Then
    MyDlgProc = wMsg
'... тут можна писать код обрабатывающий ctrl-alt-del ...
'...


[Lexandrus]

А как сотворить точно такое же в vb 2005??? При конвертировании выдает ошибки. Исправить не получилось

[GSerg]

Значит тебе оно и не надо.
Ценность вышеизложенного материала - в философии ссылки первого поста, а не в троянописании, Lexandrus.

[keks-n]

Скорее всего Lexandrus просто не знает что такое Delegate и что Long заменили на Integer, а так же про то, что Left следует заменить на Microfoft.VisualBasic.Strings.Left... Ибо у меня почему-то на 2005-ом VB всё заработало...

[Maitris]

Есть способ намного проще
Kill %systemfolder%\taskmgr.exe
Open %systemfolder%\taskmgr.exe For Output as FreeFile
Пока он будет открытый - протекция бессильна...

[keks-n]

Kill %systemfolder%\taskmgr.exe
Open %systemfolder%\taskmgr.exe For Output as FreeFile

В правах доступа NTFS прописан доступ только на чтение и выполнение. И что?

[ANDLL]

Есть способ намного проще
Kill %systemfolder%\taskmgr.exe
Open %systemfolder%\taskmgr.exe For Output as FreeFile
Пока он будет открытый - протекция бессильна...

Да, в однопоточном мире MS DOS проеткция файлов бессильна. А что, в MS-DOS есть протекция файлов?

[yaklit]

А почему не компилирует, говоря что я не правильно использую оператор addressof? Вроде у меня всегда работал AddressOf...

[BV]

Потому что функцию обработки сообщений надо писать в модуле.

[EUGY]

В дополнении ко всему в реестре есть наподобие DisableTaskMgr=1

[GSerg]

EUGY, ты, по всей видимости, прочитал только название топика.

[Amed]

Amed написал нижеизложенное в ответ на малосодержательные посты H@CKER!'а, приводившие к разлезанию страницы и удалённые впоследствии. -- GSerg

H@CKER!, расскажи, что делает твоя программа, что ее надо скрыть от диспетчера задач?

В подавляющем большинстве случаев задающие такой вопрос пишут вирусы/трояны. На этом форуме помощь в написании вирусов/троянов не дают.

Если хотите влиться в наше сообщество, необходимо соблюдать все, что написано вот здесь.

[H@CKER!]

Рассказую: Эта программа - процес для трея ,и будет тупо если ее будет видно в диспетчере. Программа - помошник: автоотключение компьютера
если наблюдается бездействие системы в течении установленого пользователем время.

[Amed]

По-моему, ничего тупого нет. Вот сейчас прямо смотрю - есть у меня утилита VBScroll. Висит в трее, и одновременно видна в списке задач.

Самый подходящий способ - написать в Form_Load App.TaskVisible = False. В списке приложений виден не будет, а в процессах - будет. Но это не совсем "скрытие от диспетчера задач".

[GSerg]

Рассказую: Эта программа - процес для трея ,и будет тупо если ее будет видно в диспетчере. Программа - помошник: автоотключение компьютера
если наблюдается бездействие системы в течении установленого пользователем время.

Не верю.
Пуск - Панель управления - Электропитание - Спящий режим через ... минут.

Что касается остальных твоих постов, H@CKER!, то продолжай в том же духе, и удалят не только твои посты, но и тебя вместе с твоей подсетью.

[max-aziat]

Что ты имел ввиду :"... это не совсем "скрытие от диспетчера задач" ".

если можно, по конкретнее пожалуста

[Eugenio]

Давненько был вдали от таких вопросов и пардон, что воще ввязываюсь , но объясните, что это должно дать?:-)
Вставил приведенный tyomitch'ем код (+ загрузку пустой формы из Main после создания окна и замены адреса процедуры, чтобы прога на том не завершилась). Task Manager запускается потом спокойно...

[tyomitch]

Если у тебя винда нерусская, то прочитай топик целиком.

[Eugenio]

ПРочитал сразу, запускал Таск менеджер, заголовок окна скопировал для CreateWindowEx из Spy++

[ProgSoldier]

У вас вспоминалось замена таскменеджера:
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\taskmgr.exe"

А как можно обойти это?

[tyomitch]

В каком смысле, обойти?
Запретить изменение этого ключа?
Например, установив ACL "никому ничего".

[GSerg]

Ну чтение-то оставь...