Block wins with a password

[ludocus 8]

Hi everybody..

It's been a long time since I posted here

This is very simple but effective..

When you try to open a window that's blocked, the window will hide and you will be prompted to enter a password..

If it's correct the window shows again, else it closes..

Check it out:

expandcollapse popup

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.0.0
 Author:         Ludocus

 Script Function:
    Block windows with a password

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
Opt("WinTitleMatchMode", 1) ; = 1=start, 2=subStr, 3=exact, 4=advanced, -1 to -4=Nocase
$nopasstime = 60000         ; = 1 minute (1000*60=60000)
$num = 5                    ; = number of titles
$setpass = 'somepassword'   ; = password for blocked window
global $titles[$num+1] = ['Notepad', 'Calculator', 'Minesweeper', 'Windows Live Messenger', 'My documents']
While 1
    sleep(200)
    $titlez = WinList()
    For $i = 1 to $titlez[0][0]
        For $p = 0 to ($num-1)
            if $titlez[$i][0] = $titles[$p] then
                if _Password($titlez[$i][0]) Then 
                    Sleep($nopasstime)
                Else
                    WinClose($titlez[$i][0])
                EndIf
                exitloop
            EndIf
        Next
    Next
WEnd

Func _Password($title)
    WinSetState($title, '', @SW_HIDE)
    $pass = InputBox('Forbidden!', 'Please enter your password', '', '*', 100, 100, -1, -1, 30)
    if $pass = $setpass then
        WinSetState($title, '', @SW_SHOW)
        return 1
    EndIf
    return 0
EndFunc

[gseller 1]

Cool, it works on some things. Not on notepad or mydocuments. I am using vista x64.. Love it! Thanks for sharing

[nguyenbason 0]

Nice Idea but what if your script is terminated from Task Manager?

[James 374]

Global $titles[$num + 1] = ['Untitled - Notepad', 'Calculator', 'Minesweeper', 'Windows Live Messenger', 'Documents']

Changed that for Windows 7/Vista. Notepad will work on any OS. This would be better if it worked through processes and not window titles.

[ludocus 8]

you could use:

If ProcessExists('taskman.exe') Then ProcessClose('taskman.exe')

or you could edit the registry:

RegWrite ('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System', "DisableTaskMgr", "REG_DWORD", 1 )

(to enable taskmanager use: RegWrite ('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System', "DisableTaskMgr", "REG_DWORD", 0 )

[Yashied 203]

I would add the following.

if ($titlez[$i][0] = $titles[$p]) and (BitAnd(WinGetState($titlez[$i][1]), 2)) then

[Zisly 1]

you could use:

If ProcessExists('taskman.exe') Then ProcessClose('taskman.exe')

or you could edit the registry:

RegWrite ('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System', "DisableTaskMgr", "REG_DWORD", 1 )

(to enable taskmanager use: RegWrite ('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System', "DisableTaskMgr", "REG_DWORD", 0 )

Don't post things that could end up in the wrong lazy hands.

[slayerz 0]

Nice script but still need major improvement to be more secure.

I did bypassed the security easily.

Run the script, open My Documents.

The script hide it and prompt for password.

Without entering the password, try to open My Documents again, and the script will not hide it and not bothering for password again.

[corgano 22]

This would be better if it worked through processes and not window titles.

Yes, a much better idea. you could have it get the process of the window when setting the password and get the window of the process when the program is running, or something like that

[James 374]

Run the script, open My Documents.

The script hide it and prompt for password.

Without entering the password, try to open My Documents again, and the script will not hide it and not bothering for password again.

That's because of this:

If $titlez[$i][0] = $titles[$p] Then
    If _Password($titlez[$i][0]) Then
        Sleep($nopasstime)
    Else
        WinClose($titlez[$i][0])
    EndIf
    ExitLoop
EndIf

It's sleeping till the password is entered.

Yes, a much better idea. you could have it get the process of the window when setting the password and get the window of the process when the program is running, or something like that

Well that would bugger up any multi-lingual support.