Sign in to follow this  
Followers 0
Valuater

*VAULTER* - PC LOCKOUT

Started by Valuater,

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



#2 ·  Posted 

Func CAMERA()

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

Share this post

Link to post
Share on other sites

#4 ·  Posted

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

#6 ·  Posted

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

#7 ·  Posted

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

#8 ·  Posted

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

#9 ·  Posted

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

#10 ·  Posted

gonna test it..

Share this post

Link to post
Share on other sites

#11 ·  Posted

ive tested it and it worked gr8 at me

Share this post

Link to post
Share on other sites

#12 ·  Posted

Cool!!!

8)

NEWHeader1.png

Share this post

Link to post
Share on other sites

#13 ·  Posted

Cool!!!

8)

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

Share this post

Link to post
Share on other sites

#14 ·  Posted

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

#15 ·  Posted

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

#16 ·  Posted

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

Share this post

Link to post
Share on other sites

#17 ·  Posted

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

#18 ·  Posted

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

#19 ·  Posted

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

#20 ·  Posted

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
Go To Topic Listing AutoIt Example Scripts