Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 801 fois - Téléchargée 30 fois
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
18 mai 2004 à 18:12
17 mai 2004 à 18:43
il suffit d'ajouter la clé "System" si elle n'existe pas et la valeur TaskMgr, et ça marche.
17 mai 2004 à 09:02
17 mai 2004 à 07:12
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"
16 mai 2004 à 14:56
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.