Étape 2: Créer le programme de mot de passe
Mon code inclut une piqûre peu pour garder les gens loin de moi le piratage.
Je vais parler de l’aiguillon à la fin de la page.
Le mot de passe que j’utiliserai l’exemple est le mot de passe.
Le dossier que j’ai ouvrira est.
Maintenant pour le code.
Tout d’abord ouvrir le bloc-notes et entrez ce qui suit.
Dim count
Count = 0
Set objNet = WScript.CreateObject("WScript.Network")
résultat = MsgBox (« Êtes-vous sûr de vouloir continuer? », vbYesNo + vbInformation, "êtes-vous sûr?")
Si résultat = 6 then
faire
strComputer = "."
strProcessToKill = « explorer.exe »
Set objWMIService = GetObject ("winmgmts:" & "{impersonationLevel = impersonate}! \\" & strComputer & « \root\cimv2 »)
Set colProcess = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = '" & strProcessToKill & "'")
Pour chaque objProcess en colProcess
objProcess.Terminate()
Prochaine
Count = count + 1
WScript.Sleep 100
boucle jusqu'à count = 20
faire
mot de passe = Inputbox (« Entrez votre mot de passe », "mot de passe requis")
Si mot de passe = « Mot de passe » puis
WScript.Echo « Mot de passe Correct »
Set WshShell = CreateObject("WScript.Shell")
Dim objWMIService, objProcess, objCalc
Dim strShell, objProgram, strExe, strComputer
strComputer = "."
strExe = « explorer.exe »
« Se connecter à WMI
Set objWMIService = getobject ("winmgmts: / /" _
& strComputer & « / root/cimv2 »)
' Obtenir la classe Win32_Process d’objet.
Set objProcess = objWMIService.Get("Win32_Process")
Set objProgram = objProcess.Methods_ (_
« Créer »). InParameters.SpawnInstance_
objProgram.CommandLine = strExe
"Exécuter le programme maintenant sur la ligne de commande.
Set strShell = objWMIService.ExecMethod (_
« Win32_Process », « Créer », objProgram)
WshShell.Run « Dossier »
Set WshShell = Nothing
Exit
else if <> de mot de passe "PASSWORD" puis
WScript.Echo « Mot de passe Incorrect »
fin si
en boucle jusqu’au mot de passe = « PASSWORD »
fin si
WScript.Quit
(Vous pouvez changer de dossier pour le dossier système caché vous faites)
(Vous pouvez modifier le mot de passe pour le votre propre mot de passe. Faites-le pour tous les mots de passe vous trouverez.)
Maintenant, enregistrez le fichier sous Password.vbs. Assurez-vous que l’enregistrement comme Type est défini sur tous les fichiers.
Tant que ce fichier et le dossier sont dans le même répertoire, cela devrait fonctionner.
Maintenant sur la petite piqûre, j’ai mis dans.
Elle termine le processus explorer.exe.
Ne panique, il est complètement sûr autant que je sache. (J’ai déjà essayé au moins 50 fois)
En termes simples ce qu’il fait est fait, que vos icônes de bureau et la barre des tâches disparaissent.
Les programmes que vous avez en cours d’exécution tels que ce navigateur serait encore continuent à s’exécuter.
Si le mot de passe qui est répondu le processus explorer.exe est relancée.
Pour le récupérer, vous pouvez également utiliser le gestionnaire des tâches pour démarrer le processus.
Vous pouvez aussi simplement déconnecter, Shutdown, etc..
Commentaire Si vous pensez qu’il y a des améliorations qui peuvent être apportées ou si il y a des erreurs.
