Lösenord låsa en mapp (2 / 3 steg)
Steg 2: Skapa lösenord programmet
Min kod innehåller ett litet sting för att hålla folk borta från hacka mig.
Jag kommer att tala om sting i slutet av sidan.
Lösenordet kommer jag att använda i exemplet är lösenord.
Det som jag kommer att öppna är mapp.
Nu för koden.
Först öppna Notepad och skriv in följande.
Dim antal
Count = 0
Ange objNet = WScript.CreateObject("WScript.Network")
resultat = MsgBox ("Är du säker på att du vill fortsätta?", vbYesNo + vbInformation, "är du säker?")
om resultatet = 6 då
göra
strComputer = "."
strProcessToKill = "explorer.exe"
Sätta objWMIService = GetObject ("winmgmts:" & "{impersonationLevel = personifiera}! \\" & strComputer & "\root\cimv2")
Ange colProcess = objWMIService.ExecQuerySELECT ("Välj * från Win32_Process där namn = '" & strProcessToKill & "" ")
För varje objProcess i colProcess
objProcess.Terminate()
Nästa
antal = antal + 1
WScript.Sleep 100
loop tills count = 20
göra
lösenord = Inputbox ("Ange lösenord", "lösenord krävs")
om lösenord = "Lösenord" då
WScript.Echo "Rätt lösenord"
Sätta WshShell = CreateObject("WScript.Shell")
Dim objWMIService, objProcess, objCalc
Dim strShell, objProgram, strComputer, strExe
strComputer = "."
strExe = "explorer.exe"
' Anslut till WMI
sätta objWMIService = getobject ("winmgmts: / /" _
& strComputer & "/ root/cimv2")
"Få den Win32_Process klassen av objekt.
Ange objProcess = objWMIService.Get("Win32_Process")
Ange objProgram = objProcess.Methods_ (_
"Skapa"). InParameters.SpawnInstance_
objProgram.CommandLine = strExe
"Kör programmet nu på kommandoraden.
Ange strShell = objWMIService.ExecMethod (_
"Win32_Process", "Skapa", objProgram)
WshShell.Runshutdown.exe "Mapp"
Sätta WshShell = ingenting
Exit
ElseIf lösenord <> "Lösenord" sedan
WScript.Echo "Fel lösenord"
slut om
loop tills lösenord = "Lösenord"
slut om
WScript.quit
(Du kan ändra mapp till dolda mappen System du gjort)
(Du kan ändra lösenordet till den ditt eget lösenord. Bara gör det för alla LÖSENORDS som du hitta.)
Nu spara filen som Password.vbs. Se till att spara som typ är inställd på alla filer.
Så länge denna fil och mapp finns i samma katalog bör det fungera.
Nu om lite sting satte jag i.
Det slutar processen explorer.exe.
Inte panik det är helt säkert såvitt jag vet. (Jag har redan provat det minst 50 gånger)
I enkla ordalag är vad den gör gör dina skrivbordsikoner och Aktivitetsfältet försvinner.
De program som du har körs som denna webbläsare fortfarande skulle fortsätta att köras.
Om lösenordet som besvaras är korrekt explorer.exe-processen startas igen.
För att få tillbaka kan du också använda Aktivitetshanteraren för att starta processen.
Du kan också bara logga ut, avstängning, etc.
Kommentera om du tror att det finns några förbättringar som kan göras eller om det finns fel.