Jump to content
Sign in to follow this  
Valuater

*VAULTER* - PC LOCKOUT

Recommended Posts

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

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:

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

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  

×
×
  • Create New...