Esta es una muy simple VBScript (. Vbs) lo k el codigo hace es k al hacer clic en el script (que puede ser fácilmente ocultada como un atajo de la aplicación que desea proteger con contraseña), se abrirá una ventanilla que pedira una contraseña. Si la contraseña es correcta la aplicación se abrirá, si no lo es se repetira un mensaje de autenticacion hasta que la contraseña es correcta.
Dim X
X = MsgBox ("You requested to open Firefox, Password Identification required, Continue?",4+16,"Notice")
password = "Password"
Do
returnvalue = InputBox ("Input Password","Identification","**********")
Select Case returnvalue
Case password
answer = true
MsgBox "Correct."
Dim shl
set shl = CreateObject("WScript.Shell")
WScript.sleep 100
shl.Run """C:Documents and Settingshs studentMy DocumentsMy MusicMozartMozillafirefox"""
Exit Do
Case Else
answer = false
MsgBox "Incorrect."
End Select
Loop
Mostrar Mensajes
