1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Bloquer le gestionnaire des taches !! (registre)

Bloquer le gestionnaire des taches !! (registre)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 17 522 fois - Téléchargée 29 fois

Commenter

Contenu du snippet

Ce code bloque le gestionnaire des taches quelques soit l'ordinateur utilisé (XP, NT ,2000, 98SE, 98, 95) ou meme le language de l'ordi(Anglais , Francais , Chinois .....)
Je l'ai trouvé par hasard sur un magazine alors que depuis longtemps je bidouillai pour bloquer le gestionnaire des taches,
en surveillant les fenetres, leur noms, puis le handle, avant de les fermer
En clair une bonne centaine de ligne de code simplifié a six ligne !!(mise a part la fonction pour le registre)

Source / Exemple : 


'A mettre dans un module !!

'Pour Bloquer le TSKMGR
Public Sub BloqTsk()
RegEcrire 0, "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "0"
End Sub

Public Sub OpenTsk()
RegEcrire 0, "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "-1"
End Sub

'----------------------------------------------------------------------------------------------------------------------
'La suite du Code n'est pas de moi, mais de SPR, trouvé sur VB Codes Sources...
'----------------------------------------------------------------------------------------------------------------------
Public Sub RegLire(CheminComplet As String, Destination As String)

'permet de lire une valeur dans la base de registre
Set WshShell = CreateObject("Wscript.Shell")

Destination = WshShell.RegRead(CheminComplet)

'Remarque :HKEY_CURRENT_USER peut être remplacé par HKCU
'On peut mettre n'importe quelle branche comme ça

End Sub

Public Sub RegEcrire(StyleDeClé As Integer, CheminComplet As String, Valeur As String)
'Permet d'écrire dans la base de registre tout type de valeur (valeur chaîne, dword, binaire) ou de créer une nouvelle branche ....

'Style de Clé :
'0 -> Valeur Chaîne
'1 -> DWord
'2 -> Binaire

Set WshShell = CreateObject("Wscript.Shell")

If StyleDeClé = 0 Then WshShell.RegWrite CheminComplet, Valeur
If StyleDeClé = 1 Then WshShell.RegWrite CheminComplet, Valeur, "REG_DWORD"
If StyleDeClé = 2 Then WshShell.RegWrite CheminComplet, Valeur, "REG_BINARY"

End Sub

Public Sub RegSupprimer(CheminComplet As String)

'Permet d'effacer dans la base de registre tout type de valeur (valeur chaîne, dword, binaire)

Set WshShell = CreateObject("Wscript.Shell")

WshShell.RegDelete CheminComplet

End Sub

'----------------------------------------------------------------------------------------------------------------------

Conclusion :


Un code bien pratique surtout quand on voit le nombre de bidouillage (parfois bon) sur ce site pour arriver à ce résultat !!

A voir également

Ajouter un commentaire Commentaires
Signaler
Messages postés
5
Date d'inscription
vendredi 16 janvier 2004
Statut
Membre
Dernière intervention
2 juin 2014
Simple et efficace
Signaler
Messages postés
6
Date d'inscription
samedi 14 juin 2008
Statut
Membre
Dernière intervention
17 octobre 2008
merci
Signaler
Messages postés
395
Date d'inscription
jeudi 26 août 2004
Statut
Membre
Dernière intervention
19 juin 2009
 1
Tu est sur Xp ou sur 2000 ????

De plus quelque soit la version c'est éfficace, mais attention ca dépand de l'utilisateur :

Si tu exécute le blocage chez un utilisateur, les autre on toujours acces au gesionnaire de tache.
Signaler
Messages postés
6
Date d'inscription
samedi 14 juin 2008
Statut
Membre
Dernière intervention
17 octobre 2008
excusè moi , mais il n'a pas marchè sur mon ordinateur je utilise win xp (2000) , Pouvez-vous m'aider
Signaler
Messages postés
8
Date d'inscription
vendredi 3 novembre 2000
Statut
Membre
Dernière intervention
27 mai 2008
J'aime bien cette source !!!

Merci beaucoup
Afficher les 17 commentaires
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_nico1610)