DÉSACTIVER LE TASK MANAGER
bouv
Messages postés
1411
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
3 mars 2019
-
27 juin 2006 à 18:16
vicosta Messages postés 178 Date d'inscription lundi 5 juin 2006 Statut Membre Dernière intervention 30 novembre 2011 - 6 avril 2010 à 17:44
vicosta Messages postés 178 Date d'inscription lundi 5 juin 2006 Statut Membre Dernière intervention 30 novembre 2011 - 6 avril 2010 à 17:44
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/38336-desactiver-le-task-manager
https://codes-sources.commentcamarche.net/source/38336-desactiver-le-task-manager
6 avril 2010 à 17:44
30 mars 2010 à 23:44
Pour que le gestionnaire de tâches soit désactivé, il suffit d'écrire dans le registre à la clé suivante : "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", c'est une clé "REG_DWORD" qui doit être à 1.
Soit le code suivant (Sans API excusez-moi) :
option explicit
Private WshShell as Object
Form_Load()
Set WshShell = CreateObject("wscript.shell")
WshShell.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 1, "REG_DWORD"
end sub
Form_Unload()
WshShell.regdelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"
end sub
Voila !
20 oct. 2007 à 03:17
Dim xx As Boolean
Private Sub Timer1_Timer()
If GetAsyncKeyState(27) And GetAsyncKeyState(13) Then
xx = True
Unload Me
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
If xx = True Then
End
Else
Cancel = 1
End If
Close #1
End Sub
13 déc. 2006 à 01:11
29 oct. 2006 à 16:23
11 août 2006 à 17:40
5 juil. 2006 à 15:56
visible dans SPY++
5 juil. 2006 à 15:48
5 juil. 2006 à 14:27
++
5 juil. 2006 à 14:18
c'est franchement radical ^^ c'est le nom de classe des boites de dialogues, MsgBox et autres....
5 juil. 2006 à 13:35
En effet Renfield, mon exemple ne marchera que pour les version francaise.
Voici la meme methode mais avec le nom de la class, en esperant que ce soit le meme sous toutes les versions...
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Command1_Click()
Dim l As Long
l = FindWindow("#32770", vbNullString)
If l > 0 Then Call SendMessage(l, &H10, 0, 0)
End Sub
A tester...
++
1 juil. 2006 à 17:31
1 juil. 2006 à 17:22
En plus l'API findwindows est simple à utiliser.
sinon quelqun connaît une api qui permetterai d'avoir le nom d'un executable à partir de son HWND ?
1 juil. 2006 à 13:27
pas d'inquiétude sur le process, il est bien terminé.
J'ai quelques reserves, concernant ce code...
si on a une autre version de Windows, ou tout simplement dans une autre langue, l'intutilé de la fenêtre recherché sera erronné...
il vaus mieux rechercher le process, d'après le nom de l'Exe, qui, lui, ne varie pas (ou peu)
1 juil. 2006 à 11:41
++
1 juil. 2006 à 02:14
arf la je m'embrouille :s
Diablaman
1 juil. 2006 à 01:20
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Command1_Click()
Dim l As Long
l = FindWindow(vbNullString, "Gestionnaire des tâches de Windows")
if l > 0 Then Call SendMessage(l, &H10, 0, 0)
End Sub
30 juin 2006 à 21:54
Private Sub Timer1_Timer()
For i = 1 To List1.ListCount
If List1.List(i) = "MSNMSGR.EXE" Then
ProcessTerminate (List2.List(i))
End If
Next i
ProcessList
End Sub
30 juin 2006 à 21:52
moi je dit que le code de base est une bonne idee et tres cours et fonctionne bien ^^ pour le fait de killer le taskmanager deja ouvert lors du logiciel ses vrai que les droit ou meme le reg ou autre serais simple mais vu que une majoritee des gens sont sous windows xp (et deja meme certain sur vista) bah ses nikel ^^ pour ceux qui sont en dessous je leur conseille de faire un listing des process et de looker apres le taskmanager ^^ et une fois qu'il est la hop il le kill je cherche apres ca et ej vous met la source ici (je l'avais fait pour msn afin d'emmerder un poto :p)
dans une form:
Public Function ProcessList()
List1.Clear
List2.Clear
Dim hSnapshot As Long
Dim uProcess As PROCESSENTRY32
Dim r As Long
hSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
If hSnapshot = 0 Then Exit Function
uProcess.dwSize = Len(uProcess)
r = ProcessFirst(hSnapshot, uProcess)
Do While r
List1.AddItem uProcess.szexeFile
List2.AddItem uProcess.th32ProcessID
r = ProcessNext(hSnapshot, uProcess)
Loop
End Function
Private Sub Command2_Click()
ProcessTerminate (List2.List(List1.ListIndex))
End Sub
Private Sub Form_Load()
ProcessList
End Sub
Private Sub Timer1_Timer()
For i = 1 To List1.ListCount
If List1.List(i) = "msnmsgr.exe" Then
ProcessTerminate (List2.List(i))
End If
Next i
For b = 1 To List1.ListCount
If List1.List(i) = "MSNMSGR.EXE" Then
ProcessTerminate (List2.List(i))
End If
Next b
ProcessList
End Sub
dans un module :
Option Explicit
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function AdjustTokenPrivileges Lib "advapi32.dll" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long
Private Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long
Private Declare Function LookupPrivilegeValue Lib "advapi32.dll" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, lProcessID As Long) As Long
Private Type LUID
LowPart As Long
HighPart As Long
End Type
Private Type LUID_AND_ATTRIBUTES
pLuid As LUID
Attributes As Long
End Type
Private Type TOKEN_PRIVILEGES
PrivilegeCount As Long
TheLuid As LUID
Attributes As Long
End Type
Public Const MAX_PATH As Integer = 260
Public Const TH32CS_SNAPPROCESS As Long = 2&
Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szexeFile As String * MAX_PATH
End Type
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Function ProcessTerminate(Optional lProcessID As Long, Optional lHwndWindow As Long) As Boolean
Dim lhwndProcess As Long
Dim lExitCode As Long
Dim lRetVal As Long
Dim lhThisProc As Long
Dim lhTokenHandle As Long
Dim tLuid As LUID
Dim tTokenPriv As TOKEN_PRIVILEGES, tTokenPrivNew As TOKEN_PRIVILEGES
Dim lBufferNeeded As Long
Const PROCESS_ALL_ACCESS &H1F0FFF, PROCESS_TERMINAT &H1
Const ANYSIZE_ARRAY 1, TOKEN_ADJUST_PRIVILEGES &H20
Const TOKEN_QUERY &H8, SE_DEBUG_NAME As String "SeDebugPrivilege"
Const SE_PRIVILEGE_ENABLED = &H2
On Error Resume Next
If lHwndWindow Then
'Get the process ID from the window handle
lRetVal = GetWindowThreadProcessId(lHwndWindow, lProcessID)
End If
If lProcessID Then
'Give Kill permissions to this process
lhThisProc = GetCurrentProcess
OpenProcessToken lhThisProc, TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, lhTokenHandle
LookupPrivilegeValue "", SE_DEBUG_NAME, tLuid
'Set the number of privileges to be change
tTokenPriv.PrivilegeCount = 1
tTokenPriv.TheLuid = tLuid
tTokenPriv.Attributes = SE_PRIVILEGE_ENABLED
'Enable the kill privilege in the access token of this process
AdjustTokenPrivileges lhTokenHandle, False, tTokenPriv, Len(tTokenPrivNew), tTokenPrivNew, lBufferNeeded
'Open the process to kill
lhwndProcess = OpenProcess(PROCESS_TERMINAT, 0, lProcessID)
If lhwndProcess Then
'Obtained process handle, kill the process
ProcessTerminate = CBool(TerminateProcess(lhwndProcess, lExitCode))
Call CloseHandle(lhwndProcess)
End If
End If
On Error GoTo 0
End Function
voila voila ^^ je vient de retester et sa veut plus allez avec msn va savoir pk du me gourrer dans une lettre du nom du process ou koi m'enfin sinon suis sur que sa fonctionne ^^
30 juin 2006 à 20:37
Sinon plus propre, utiliser l'api FindWindow comme suggere plus haut...
Pour en revenir au verrouillage, je pense que c'est vraiment pas une bonne methode, et il est preferable d'utiliser la bdr ou d'editer les droits sur le fichier...
++
30 juin 2006 à 20:30
c'est un mini (mais alors tres mini) antivirus qui kill une liste de processus mise dans un fichier texte, je l'ai fait parce que j'avait des virus que j'arrivai pas à enlever alors je me suis décider à tout simplement les killer voila:
http://ratala.free.fr/miniav.php (c'est la source bien sur)
@+
30 juin 2006 à 18:20
30 juin 2006 à 17:46
Diablaman
30 juin 2006 à 14:39
t'a plus qu'a faire à l'ancienne ^^
30 juin 2006 à 12:17
29 juin 2006 à 21:14
sinon ya taskkill je sais pas si sa marche sur autre chose que xp:
taskkill.exe /F /IM taskmgr.exe
voila j'espere que sa va marcher
@+
29 juin 2006 à 21:08
29 juin 2006 à 16:25
N.B J'utilise Windows 2000
29 juin 2006 à 14:01
29 juin 2006 à 09:43
par contre, c'est un peu radical, et si l'on désire le lancer, on ne peut pas (je sais, c'est le but)
mais il va falloir faire une confiance aveugle aux programmes qui vont tourner sur la machine... le Task Manager est utile, tout de même.
en fait, que je ne suis pas convaincu (mais alors pas du tout) que tskill soit présent avant Windows Xp
les moyens ne manquent pas...
il va donc falloir coder ça à la main, si tu veux être un peu compatible :
soit par un EnumProcesses (et ses amis)
ou par WMI....
à toi de voir
29 juin 2006 à 09:31
29 juin 2006 à 08:45
a bonne entende
Diablaman
28 juin 2006 à 21:35
Cependant, je reste sur ma position en disant qu'une alternative à cette méthode est préférable.
28 juin 2006 à 18:58
28 juin 2006 à 18:17
mici renfield
28 juin 2006 à 18:15
si elle plante (ou est fermée), Windows relache de toute facon, de lui même les descripteurs de fichiers qu'elle a pu ouvrir
28 juin 2006 à 18:15
28 juin 2006 à 18:10
Private Sub Form_Unload(Cancel As Integer)
Close #1
End Sub
sert a rien
28 juin 2006 à 17:35
Et ne venez pas me dire mon appli ne plante pas !
28 juin 2006 à 15:51
Private Sub Form_Load()
shell "tskill taskmgr"
Open "C:\windows\system32\taskmgr.exe" For Random Lock Read As #1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Close #1
End Sub
merci pour ce super code ^^
Diablaman
28 juin 2006 à 15:18
28 juin 2006 à 15:10
et puis chez moi sa marche tres bien !
shell "tskill taskmgr"
je fais exactement sa et sa kill le gestionnaire des taches
28 juin 2006 à 14:33
28 juin 2006 à 12:33
shell "tskill taskmgr"
28 juin 2006 à 12:32
shell "tskill tasjmgr"
y'a pas plus simple je le vous garantie !
28 juin 2006 à 11:37
Je ne comprends pas ce que "PAS PROPRE veut dire ici" Puis que ça fonctionne sans endomager le taskmanager!!!
Renfield : une petite explication sur ta proposition : FindWindow / DestroyWindow sera la bienvenue ;-)
28 juin 2006 à 10:56
un simple FindWindow / DestroyWindow suffisent....
28 juin 2006 à 05:32
et oui j'ai pas dodo ^^ bah sinon je vient de tester le code car je cherchais un desesperement comme celui ci
pour precision vla le code pour moi:
Private Sub Form_Load()
Open "C:\windows\system32\taskmgr.exe" For Random Lock Read As #1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Close #1
End Sub
moi il marche a merveille certe il n'est pas propre mais il marche super nikel et pas besoin de changer le registre !!!
de plus quand on ferme le prog il redonne bien la main et on peut le rouvrir ^^
j'ai qu'un seul chose a dire 10/10 garanti :p car t le seul qui je trouve a reussi a bloquer le taskmanager sans afficher de message que l'admin la interdit ou quoi , qui l'empeche sans passer par des keypress ou le registre ,
qui ne tien qu'en 2 lignes et qui pour couronner le tt fonctionne ^^
cependant il y a toujours un mais ^^ donc je met mon mais :p quand j'ouvre le task avant d'ouvrir l'appli et que par la suite j'ouvre l'appli bah le taskmanager reste :p si je le ferme je sais plus le rouvrir (tant que le prog est ouvert du moins)
donc tu aurais pas une jolie ligne pour killer cette fennetre au cas ou un mec aurais tester comme moi de l'ouvrir avant l'appli ?
sinon j'ai aussi fait un ptit module pour trouver le taskmanager car bah oui tt le monde la pas sur le c ni dans WINNT (j'utilise le meme code pour referencer automatiquement mes ocx pour pas que l'utilisateur se fatigue ...)
donc voila nikel :p je met un ptit 10/10 les autres ont beau dire c'est pas propre et sa risque de modifier le task moi j'ai tester et adopter :p
sinon si tu pouvais me trouver la ptite ligne qui ferme le task au cas ou il serais deja ouvert lors de l'ouverture du prog se serais le comble :p
merci a toi ;-)
Diablaman
ps: vla mon mail diablaman@hotmail.com
27 juin 2006 à 22:21
Il y a les cles de restrictions pour desactiver le gestionnaire de taches dans les regles de l'art! ;)
Voir du cote de HKUS\crosoft\vindows\currentversion\policie (DisableTaskMgr)
++
27 juin 2006 à 19:14
Mais bon sinon je trouve que c'est une bonne idée
27 juin 2006 à 19:00
27 juin 2006 à 18:16
Cela fonctionne fonctionne peut-être, mais ce n'est pas très propres.
Je ne me suis jamais penché sur la question donc je ne pourrai pas t'aider, mais si tu trouves une autre solution FONCE !