Valuater Posted February 8, 2006 Share Posted February 8, 2006 (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!!! expandcollapse popup#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 Link to comment Share on other sites More sharing options...
rhg Posted February 8, 2006 Share Posted February 8, 2006 Func CAMERA() ROFLMAO, that is to funny. Cool code Link to comment Share on other sites More sharing options...
Oxin8 Posted February 8, 2006 Share Posted February 8, 2006 does it completely lock you out? as in no way around it? cuz i'm not at home to test.... ~My Scripts~ *********_XInput UDF for Xbox 360 ControllerSprayPaint_MouseMovePlus Link to comment Share on other sites More sharing options...
Faustvii Posted February 8, 2006 Share Posted February 8, 2006 this is nice to lockout peoples from your pc Link to comment Share on other sites More sharing options...
Valuater Posted February 8, 2006 Author Share Posted February 8, 2006 (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 rules8) Edited February 8, 2006 by Valuater Link to comment Share on other sites More sharing options...
Faustvii Posted February 8, 2006 Share Posted February 8, 2006 you should make it hide cmd.exe too cause i was able to open that while it was running Link to comment Share on other sites More sharing options...
Valuater Posted February 8, 2006 Author Share Posted February 8, 2006 you should make it hide cmd.exe too cause i was able to open that while it was runningi tried it but,i think you can run more than one cmd.exe8) Link to comment Share on other sites More sharing options...
Faustvii Posted February 8, 2006 Share Posted February 8, 2006 i just found out my self.. then you should make it check if cmd is open.. Link to comment Share on other sites More sharing options...
Valuater Posted February 8, 2006 Author Share Posted 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) Link to comment Share on other sites More sharing options...
Faustvii Posted February 8, 2006 Share Posted February 8, 2006 gonna test it.. Link to comment Share on other sites More sharing options...
Faustvii Posted February 8, 2006 Share Posted February 8, 2006 ive tested it and it worked gr8 at me Link to comment Share on other sites More sharing options...
Valuater Posted February 8, 2006 Author Share Posted February 8, 2006 Cool!!! 8) Link to comment Share on other sites More sharing options...
Faustvii Posted February 8, 2006 Share Posted February 8, 2006 Cool!!!8)i really like this program Valuater im gonna use this alot Link to comment Share on other sites More sharing options...
Faustvii Posted February 8, 2006 Share Posted February 8, 2006 the way you block the mouseclick and that whit _IsPressed is very smart ive would never thought of that Link to comment Share on other sites More sharing options...
Xenobiologist Posted February 8, 2006 Share Posted 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. 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 Link to comment Share on other sites More sharing options...
Faustvii Posted February 8, 2006 Share Posted February 8, 2006 the way VAULTER just showed us you can block everthing.. Link to comment Share on other sites More sharing options...
Moderators SmOke_N Posted February 8, 2006 Moderators Share Posted February 8, 2006 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. Link to comment Share on other sites More sharing options...
Xenobiologist Posted February 8, 2006 Share Posted 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 ... 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 Link to comment Share on other sites More sharing options...
Faustvii Posted February 9, 2006 Share Posted 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,Megalmao Link to comment Share on other sites More sharing options...
PezoFaSho Posted February 9, 2006 Share Posted February 9, 2006 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 Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now