Annuler ctrl+alt+supp (methode simple, marche sous xp)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 698 fois - Téléchargée 29 fois

Contenu du snippet

Annuler ctrl+alt+supp, cette méthode est simple et ce n'est pas la meilleur, mais je suis debutant, mais j'ai pas reussi autrement.

Merci de me communiquer une meilleur méthode, qui marche.

Source / Exemple :


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long

' Timer.interval = 1
Private Sub Timer_Timer()
  Dim rtn

  rtn= FindWindow(vbNullString, "Gestionnaire des tâches de Windows")

  If rtn <> 0 Then
    CloseWindow rtn
  End If

End Sub

A voir également

Ajouter un commentaire Commentaires
Messages postés
78
Date d'inscription
dimanche 22 février 2004
Statut
Membre
Dernière intervention
24 juillet 2005

Ok merci a essawendredi et YaNnOu
Messages postés
4
Date d'inscription
lundi 3 mai 2004
Statut
Membre
Dernière intervention
8 octobre 2004

Pas besoin de redémarrer,
il suffit d'ajouter la clé "System" si elle n'existe pas et la valeur TaskMgr, et ça marche.
Messages postés
78
Date d'inscription
dimanche 22 février 2004
Statut
Membre
Dernière intervention
24 juillet 2005

Ouai mais il faut que l'ordinateur est redemarrer avant sinon la modif ne sera pas prise en compte je croi, mais pas sur.
Messages postés
48
Date d'inscription
lundi 6 janvier 2003
Statut
Membre
Dernière intervention
27 avril 2005

un truc plus simple :

Dim WS
WS.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 1, "REG_DWORD"

lorsque l'utilisateur fera ctrl alt suppr, il aura un message lui disant que le gestionnaire des taches a été désactivé par l'administrateur

pis pour reactiver le gestionnaire, vous changez le "1" en "0"
Messages postés
53
Date d'inscription
samedi 22 mars 2003
Statut
Membre
Dernière intervention
27 septembre 2005

Zouf, y a pas de commande taskkill sous XP familiale ???
Afficher les 10 commentaires

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.