lock.vbs

Set wshShell = CreateObject("WScript.Shell")

Do
    input = InputBox("Your text can be here. Passwords: '12345' and '\'", "WinLock", "", 500, 500)

    If input = "12345" Or input = "\" Then
        wshShell.Popup "Unlocked succesfully!", 2, "Succes", 64 + 4096
        ' Your code can be here
        Exit Do
    Else
        ' Your code can be here
    End If
Loop