VAULTER - PC LOCKOUT

Valuater · February 8, 2006

UpDated

Ver 1.0.5 August 26, 2006

************************

RULES

1 FOR PERSONAL USE ONLY

2 THE PASSWORD IS 362436

3 PRESS (F9) TO ENTER THE PASSWORD

NOT RESPONSIBLE FOR YOUR USE - LOCKOUT

*************************

THERE IS NO HARMFUL SCRIPTING IN *VAULTER*

DESIGNED IN WINDOWS XP

ENJOY!!!

#include <GuiConstants.au3>
#include <File.au3>
#include <misc.au3>
#notrayicon
$VER = "1.0.5"
Opt("WinTitleMatchMode",4)
Dim $KEY = "362436"
Dim $ENTRY, $ATTEMPT = 0, $PHOTO = 10, $COMBO
ENTRY()
If $COMBO <> $KEY then Exit
HotKeySet("!{TAB}", "BREAKIN")
HotKeySet("{ESC}", "BREAKIN")
HotKeySet("{F9}", "ENTRY")
$SAFE = GUICreate('')
GUISetState( $WS_EX_TRANSPARENT, $SAFE)
$VAULT = GUICreate(" *VAULTER*", @DesktopWidth, @DesktopHeight, -1, -1, -1, -1, $SAFE)
ToolTip("Protected by,   *VAULTER*   v" & $VER, 5, 5)
WinSetOnTop(" *VAULTER*", "", 1)
WinSetTrans(" *VAULTER*", "", 1)
GUISetState()
$LOCK = DllOpen("user32.dll")
MsgBox(262160, " *VAULTER*", "LOCKED", 3)
WinSetOnTop(" *VAULTER*", "", 1)
While 1
        For $TRY = 1 To 91
                If _IsPressed ($TRY, $LOCK) Or _IsPressed("0D", $LOCK) Then
                        BREAKIN()
                EndIf
        Next
        WinMinimizeAll()
        _MouseTrap (95,18,140,22)
        WinSetOnTop(" *VAULTER*", "", 1)
        Sleep(1)
WEnd
Func ENTRY()
;WinSetState("Program Manager", "", @SW_SHOW)
        $COMBO = InputBox(" *VAULTER*", "Please Type in Your Password", "", "*", 150, 100, 50, 50, 10)
        If $COMBO = "" then Return
        If Not $ENTRY Then
                If $COMBO = $KEY Then
                        _FileWriteLog(@ScriptDir & "VAULT.Dat", "LOCKED")
                        SECURE()
                        $ENTRY = 1
                        Return
                Else
                        ;WinSetState("Program Manager", "", @SW_HIDE)
                        $ATTEMPT = $ATTEMPT + 1
                        ;If $ATTEMPT = $PHOTO Then CAMERA()
                        _FileWriteLog(@ScriptDir & "VAULT.Dat", "*** LOCK ERROR *** " & $ATTEMPT)
                        MsgBox(262160, " *VAULTER*", "LOCK ERROR", 3)
                        ;WinSetOnTop(" *VAULTER*", "", 1)
                        REPORT()
                        ;WinSetOnTop(" *VAULTER*", "", 1)
                        Exit
                EndIf
        Else
                If $COMBO = $KEY Then
                        _FileWriteLog(@ScriptDir & "VAULT.Dat", "UNLOCKED")
                        DllClose($LOCK)
                        WinClose("Windows Task Manager")
                        WinClose( "Windows Task-Manager")
                        MsgBox(262160, " *VAULTER*", "UNLOCKED", 3)
                        WinMinimizeAllUndo()
                        ControlEnable ( "classname=Shell_TrayWnd", "", "ToolbarWindow321")
                        ControlEnable ( "classname=Shell_TrayWnd", "", "ToolbarWindow322")
                        ControlEnable ( "classname=Shell_TrayWnd", "", "ToolbarWindow323")
                        ControlEnable ( "classname=Shell_TrayWnd", "", "Button1")
                        WinSetState ( "classname=Progman", "",@SW_ENABLE)
                        WinSetState("Classname=Shell_TrayWnd", "", @SW_SHOW)
                        WinSetState("Program Manager", "", @SW_SHOW)
                        WinSetState ( "DV2ControlHost", "",@SW_SHOW)
                        _MouseTrap ()
                        Exit
                Else
                        WinSetState("Program Manager", "", @SW_HIDE)
                        $ATTEMPT = $ATTEMPT + 1
                        If $ATTEMPT = $PHOTO Then CAMERA()
                        _FileWriteLog(@ScriptDir & "VAULT.Dat", "*** UNLOCK ERROR *** " & $ATTEMPT)
                        MsgBox(262160, " *VAULTER*", "UNLOCK ERROR", 3)
                        WinSetOnTop(" *VAULTER*", "", 1)
                        REPORT()
                        WinSetOnTop(" *VAULTER*", "", 1)
                        Return
                EndIf
        EndIf
EndFunc;==>ENTRY
Func BREAKIN()
        WinSetState("Program Manager", "", @SW_HIDE)
        WinMinimizeAll()
        WinSetOnTop(" *VAULTER*", "", 1)
        $ATTEMPT = $ATTEMPT + 1
        If $ATTEMPT = $PHOTO Then CAMERA()
        _FileWriteLog(@ScriptDir & "VAULT.Dat", "*** BREAKIN ERROR *** " & $ATTEMPT)
        WinSetState("Windows Task Manager", "", @SW_HIDE)
        WinSetState ( "Windows Task-Manager", "", @SW_HIDE )
        MsgBox(262160, " *VAULTER*", "BREAKIN ERROR", 3)
        WinMinimizeAll()
        WinSetOnTop(" *VAULTER*", "", 1)
        REPORT()
        WinSetOnTop(" *VAULTER*", "", 1)
EndFunc;==>BREAKIN
Func SECURE()
        Run("taskmgr.exe", "", @SW_DISABLE)
        ControlDisable ( "classname=Shell_TrayWnd", "", "ToolbarWindow321")
        ControlDisable ( "classname=Shell_TrayWnd", "", "ToolbarWindow322")
        ControlDisable ( "classname=Shell_TrayWnd", "", "ToolbarWindow323")
        ControlDisable ( "classname=Shell_TrayWnd", "", "Button1")
        WinSetState("Program Manager", "", @SW_HIDE)
        WinSetState ( "classname=Progman", "",@SW_DISABLE)
        WinSetState ( "DV2ControlHost", "",@SW_HIDE)
        WinMinimizeAll()
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "*V*")
        WinSetState("Classname=Shell_TrayWnd", "", @SW_HIDE)
EndFunc;==>SECURE
Func CAMERA()
        WinMinimizeAll()
        $PHOTO = $PHOTO + 10
        $CAMERA = GUICreate("TAKING PHOTO", 40, 35, -1, -1, $WS_POPUP)
        GUICtrlCreateGroup("", 5, 0, 30, 30)
        $SNAP = GUICtrlCreateRadio("", 14, 12, 12, 12)
        GUISetState()
        Sleep(300)
        GUICtrlSetState($SNAP, $GUI_CHECKED)
        SoundPlay(@WindowsDir & "MediaWindows XP Balloon.wav", 1)
        Sleep(200)
        GUICtrlSetState($SNAP, $GUI_UNCHECKED)
        Sleep(500)
        GUIDelete($CAMERA)
        WinMinimizeAll()
        WinSetOnTop(" *VAULTER*", "", 1)
        ProgressOn(" *VAULTER*", "UPLOADING PHOTO TO VAULT NET", "0 PERCENT")
        For $i = 10 To 100 Step 10
                Sleep(500)
                ProgressSet($i, $i & " PERCENT")
        Next
        ProgressSet(100, "DONE", "COMPLETE")
        Sleep(500)
        ProgressOff()
        WinMinimizeAll()
        WinSetOnTop(" *VAULTER*", "", 1)
EndFunc;==>CAMERA
Func REPORT()
        WinMinimizeAll()
        ProgressOn(" *VAULTER*", "SAVING TO FILE", "0 PERCENT")
        For $i = 10 To 100 Step 10
                Sleep(50)
                ProgressSet($i, $i & " PERCENT")
        Next
        ProgressSet(100, "DONE", "COMPLETE")
        WinMinimizeAll()
        Sleep(500)
        ProgressOff()
EndFunc;==>REPORT

8)

Edited August 27, 2006 by Valuater

rhg · February 8, 2006

Func CAMERA()

ROFLMAO, that is to funny. :lmao: Cool code

Oxin8 · February 8, 2006

does it completely lock you out? as in no way around it? cuz i'm not at home to test....

Faustvii · February 8, 2006

this is nice to lockout peoples from your pc :lmao:

Valuater · February 8, 2006

does it completely lock you out? as in no way around it? cuz i'm not at home to test....

it has a password you enter to Stop *VAULTER*

see rules

8)

Edited February 8, 2006 by Valuater

Faustvii · February 8, 2006

you should make it hide cmd.exe too cause i was able to open that while it was running

Valuater · February 8, 2006

you should make it hide cmd.exe too cause i was able to open that while it was running

i tried it but,

i think you can run more than one cmd.exe

8)

Faustvii · February 8, 2006

i just found out my self.. then you should make it check if cmd is open..

Valuater · February 8, 2006

i didn't think this would work... but it did

i added

If WinActive("") Then 
        WinClose("")
        WinSetOnTop(" *VAULTER*", "", 1)
    EndIf

and it did NOT close *VAULTER* ( on mine )

does it work for you???

8)

Faustvii · February 8, 2006

gonna test it..

Faustvii · February 8, 2006

ive tested it and it worked gr8 at me

Valuater · February 8, 2006

Cool!!!

8)

Faustvii · February 8, 2006

Cool!!!
8)

i really like this program Valuater im gonna use this alot :lmao:

Faustvii · February 8, 2006

the way you block the mouseclick and that whit _IsPressed is very smart ive would never thought of that :lmao:

Xenobiologist · February 8, 2006

the way you block the mouseclick and that whit _IsPressed is very smart ive would never thought of that

Very nice, but strange thoughts coming up my mind. :lmao: o:)

So long,

Mega

Faustvii · February 8, 2006

the way VAULTER just showed us you can block everthing.. :lmao:

SmOke_N · February 8, 2006

Xenobiologist · February 8, 2006

the way VAULTER just showed us you can block everthing..

I think this is the moment, I should hear somebody saying : Oh oh....

Afterwards, Nelson (The Simpsons) says: Ha ha ...

o:) :king:

So long,

Mega

Faustvii · February 9, 2006

I think this is the moment, I should hear somebody saying : Oh oh....
Afterwards, Nelson (The Simpsons) says: Ha ha ...

So long,
Mega

lmao :lmao:

PezoFaSho · February 9, 2006

thats awesome man, i might end up using this to stop my dad from downloading porn on my computer lmao

Sign In

VAULTER - PC LOCKOUT

Recommended Posts

Valuater

Top Posters In This Topic

Top Posters In This Topic

rhg

Oxin8

Faustvii

Valuater

Faustvii

Valuater

Faustvii

Valuater

Faustvii

Faustvii

Valuater

Faustvii

Faustvii

Xenobiologist

Faustvii

SmOke_N

Xenobiologist

Faustvii

PezoFaSho

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta

*VAULTER* - PC LOCKOUT

Recommended Posts

Top Posters In This Topic

Top Posters In This Topic

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

VAULTER - PC LOCKOUT