Stap 2: Het aanmaken van het wachtwoord programma
Mijn code bevat een kleine steek om mensen uit de buurt van hacken van me te houden.
Aan het einde van de pagina zal ik spreken over de Angel.
Het wachtwoord dat ik in het voorbeeld gebruiken zal is met een wachtwoord.
De map die ik zal worden opening is map.
Nu voor de code.
Eerst open Kladblok en voer de volgende.
Dim graaf
Graaf = 0
Set objNet = WScript.CreateObject("WScript.Network")
resultaat = MsgBox ("Weet u zeker dat u wilt doorgaan?", vbYesNo + vbInformation, "bent u zeker?")
als resultaat = 6 then
doen
strComputer = "."
strProcessToKill = "explorer.exe"
Set objWMIService = GetObject ("winmgmts:" & "{impersonationLevel = impersonate}! \\" & strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery ("Selecteer * uit Win32_Process Where Name = '" & strProcessToKill & "'")
Voor elke objProcess in colProcess
objProcess.Terminate()
Volgende
count = count + 1
WScript.Sleep 100
lus tot graaf = 20
doen
wachtwoord = Inputbox ("Voer uw wachtwoord in", "wachtwoord vereist")
als wachtwoord = "Wachtwoord" then
WScript.Echo "Juiste wachtwoord"
Set WshShell = CreateObject("WScript.Shell")
Dim objWMIService, objProcess, objCalc
Dim strShell, objProgram, strComputer, strExe
strComputer = "."
strExe = "explorer.exe"
' Verbinding maken met WMI
Set objWMIService = getobject ("winmgmts: / /" _
& strComputer & "/ root/cimv2")
' De klasse Win32_Process van object te verkrijgen.
Set objProcess = objWMIService.Get("Win32_Process")
Set objProgram = objProcess.Methods_ (_
"Maken"). InParameters.SpawnInstance_
objProgram.CommandLine = strExe
' Het programma nu op de opdrachtregel uitvoeren.
Set strShell = objWMIService.ExecMethod (_
"Win32_Process", "Create", objProgram)
WshShell.Run "FOLDER"
Set WshShell = niets
afrit ken
elseif wachtwoord <> "Wachtwoord" vervolgens
WScript.Echo 'Onjuist wachtwoord'
eind als
lus tot wachtwoord = "Wachtwoord"
eind als
WScript.Quit
(U kunt map wijzigen naar de verborgen systeemmap aangebrachte)
(U kunt wachtwoord het eigen wachtwoord. Doe het voor alle WACHTWOORDEN van die u vindt.)
Sla nu het bestand op als Password.vbs. Zorg ervoor dat het opslaan als Type is ingesteld op alle bestanden.
Zolang deze bestanden en de mappen in dezelfde map zijn die het zou moeten werken.
Nu over de kleine steek ik in.
Het eindigt het explorer.exe-proces.
Geen paniek het is volledig veilig voor zover ik weet. (Ik heb al geprobeerd minstens 50 maal)
In eenvoudige termen is wat het doet maakt die uw bureaubladpictogrammen en taakbalk verdwijnen.
De programma's die u draaien hebt zoals deze browser zou nog blijven draaien.
Als het wachtwoord dat wordt beantwoord klopt wordt het explorer.exe-proces opnieuw gestart.
Om het terug kon u ook gebruikt u Taakbeheer om het proces te starten.
U kan ook gewoon afmelden, afsluiten, enz.
Commentaar als u denkt dat er geen verbeteringen dat gemaakt kunnen worden of als er fouten zijn.