Sign in to follow this  
Followers 0
Valuater

*VAULTER* - PC LOCKOUT

118 posts in this topic

#1 ·  Posted (edited)

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 by Valuater

NEWHeader1.png

Share this post


Link to post
Share on other sites



Func CAMERA()

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

#5 ·  Posted (edited)

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 by Valuater

NEWHeader1.png

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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)


NEWHeader1.png

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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)


NEWHeader1.png

Share this post


Link to post
Share on other sites

gonna test it..

Share this post


Link to post
Share on other sites

ive tested it and it worked gr8 at me

Share this post


Link to post
Share on other sites

Cool!!!

8)


NEWHeader1.png

Share this post


Link to post
Share on other sites

Cool!!!

8)

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

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

So long,

Mega


Scripts & functions Organize Includes Let Scite organize the include files

Yahtzee The game "Yahtzee" (Kniffel, DiceLion)

LoginWrapper Secure scripts by adding a query (authentication)

_RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...)

Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc.

MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites
o:);):lmao:

[center]Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.[/center]

Share this post


Link to post
Share on other sites

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

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


Scripts & functions Organize Includes Let Scite organize the include files

Yahtzee The game "Yahtzee" (Kniffel, DiceLion)

LoginWrapper Secure scripts by adding a query (authentication)

_RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...)

Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc.

MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times

Share this post


Link to post
Share on other sites

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

lmao :lmao:

Share this post


Link to post
Share on other sites

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


50% of the time, it works all the time

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0