Soyez le premier à donner votre avis sur cette source.
Vue 12 609 fois - Téléchargée 691 fois
'Tout repose sur une clé registre, voyez vous même le code : Option Explicit '//MODULE contenant une fonciton permettant de remplacer taskmgr par n'importe quelle 'application lors de l'appui sur ctrl+alt+suppr '******************************* '***Par Violent_ken 1/09/2006*** '******************************* 'APIs nécessaires 'API utilisée pour fermer une clé ouverte Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long 'efface une valeur de clé Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long 'créé une clé registre Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long 'affecte une valeur Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long 'clé root Hkey Local Machine Private Const HKEY_LOCAL_MACHINE = &H80000002 'type de clé REG_SZ Private Const REG_SZ = 1 Public Sub ReplaceTaskmgr(ByVal bReplaceOrNot As Boolean, Optional ByVal sFile As String) 'Fonction qui remplace (ou non) le gestionnaire des taches (quand l'on appuie sur ctrl+alt+suppr) 'C'est une simple création de valeur de clé : 'Dans la clé : 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\taskmgr.exe 'il faut ajouter une REG_SZ 'de nom=Debugger 'et de valeur=chemin vers l'exécutable 'La suppression de cette clé remet taskmgr.exe Dim lRet As Long, sPath As String, sName As String 'path de la clé sPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\taskmgr.exe" 'nom de la clé sName = "Debugger" If bReplaceOrNot Then '//on ajoute la clé 'créé la clé RegCreateKey HKEY_LOCAL_MACHINE, sPath, lRet 'sauvegarde la string désirée dans la clé RegSetValueEx lRet, sName, 0, REG_SZ, ByVal sFile, Len(sFile) 'ferme la clé RegCloseKey lRet Else '//enlève la clé 'créé la clé RegCreateKey HKEY_LOCAL_MACHINE, sPath, lRet 'efface la valeur de la clé RegDeleteValue lRet, sName 'ferme la clé RegCloseKey lRet End If End Sub
20 nov. 2007 à 22:28
13 juil. 2007 à 01:22
ça au moins, c'est pas un OS pour simplets ...
19 mars 2007 à 08:58
en fait sous W2000ProSP4, lorsque je fait Ctrl+Alt+Supp, une fenêtre avec 6 boutons apparaît :
-verrouiller l'ordinateur
-fermeture de session
-Arreter le systeme
-changer de mot de passe
-gestionnaire des tâches
-Annuler
donc, le gestionnaire des tâches n'est pas appelé lorsque je fait Ctrl+Alt+Supp.
Quelqu'un peut me dire quel est le processus qui est appelé, et qui faffiche cette fenêtre à 6 boutons ?
merci
4 sept. 2006 à 11:30
1 sept. 2006 à 16:42
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.