Últimos Temas de: d3xt34

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.

Código:

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