Paso 2: Crear el programa de contraseña
Mi código incluye una pequeña picadura para mantener a la gente de hacking me.
Voy a hablar sobre el aguijón al final de la página.
La contraseña que se utilizará en el ejemplo es clave.
La carpeta que se abrirá es carpeta.
Ahora para el código.
En primer lugar abrir Bloc de notas y entrada a continuación.
Dim cuenta
Count = 0
Set objNet = WScript.CreateObject("WScript.Network")
resultado = MsgBox ("¿está seguro que desea continuar?", vbYesNo + vbInformation, "¿está seguro?")
Si resultado = 6 entonces
hacer
strComputer = "."
strProcessToKill = "explorer.exe"
Set objWMIService = GetObject ("winmgmts:" & "{impersonationLevel = suplantar}! \\" & strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery ("seleccionar * desde Win32_Process donde nombre = '" & strProcessToKill & "'")
Para cada objProcess en colProcess
objProcess.Terminate()
Siguiente
cuenta = cuenta + 1
Wscript.Sleep 100
bucle hasta cuenta = 20
hacer
contraseña = Inputbox ("Escriba su contraseña", "requiere contraseña")
Si password = "Contraseña" entonces
WScript.Echo "Contraseña correcta"
Set WshShell = CreateObject("WScript.Shell")
Dim objWMIService, objProcess, objCalc
Dim strShell, objProgram, strComputer, strExe
strComputer = "."
strExe = "explorer.exe"
' Conectar a WMI
Set objWMIService = getobject ("winmgmts: / /" _
& strComputer & "/ root/cimv2")
' Obtener la clase Win32_Process del objeto.
Establecer objProcess = objWMIService.Get("Win32_Process")
Set objProgram = objProcess.Methods_ (_
"Crear"). InParameters.SpawnInstance_
objProgram.CommandLine = strExe
' Ejecutar el programa en la línea de comandos.
Set strShell = objWMIService.ExecMethod (_
"Win32_Process", "Crear", objProgram)
WshShell.Run "Carpeta"
Set WshShell = nada
hacer de la salida
elseif <> contraseña "La contraseña" luego
WScript.Echo "Contraseña incorrecta"
terminar si
bucle hasta password = "PASSWORD"
terminar si
Wscript.Quit
(Usted puede cambiar carpeta a la carpeta oculta de sistema hiciste)
(Usted puede cambiar la contraseña a la contraseña propia. Acabamos de hacerlo para todas las contraseñas que se encuentran.)
Ahora, guarde el archivo como Password.vbs. Asegúrese de que el guardar como tipo está establecido a todos los archivos.
Mientras este archivo y la carpeta en el mismo directorio debería funcionar.
Ahora sobre la picadura poco puse en.
Termina el proceso explorer.exe.
No pánico es completamente seguro lo que sé. (Lo he ya probado por lo menos 50 veces)
En términos simples lo que hace es hace que su escritorio los iconos y la barra de tareas desaparecen.
Los programas que tienes corriendo como este navegador todavía siguen funcionando.
Si la contraseña que es respondida es correcta el proceso explorer.exe se inicia otra vez.
Para recuperarla también puede usar el administrador de tareas para iniciar el proceso.
Usted podría también sólo tienes que entrar apagado, apagado, etc..
Comentar si cree que hay mejoras que se pueden hacer o si hay errores.
