Valuater 121 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 Hide Valuater's signature Hide all signatures Share this post Link to post Share on other sites
rhg 0 Posted February 8, 2006 Func CAMERA() ROFLMAO, that is to funny. Cool code Share this post Link to post Share on other sites
Oxin8 1 Posted February 8, 2006 does it completely lock you out? as in no way around it? cuz i'm not at home to test.... Hide Oxin8's signature Hide all signatures ~My Scripts~ *********_XInput UDF for Xbox 360 ControllerSprayPaint_MouseMovePlus Share this post Link to post Share on other sites
Faustvii 0 Posted February 8, 2006 this is nice to lockout peoples from your pc Share this post Link to post Share on other sites
Valuater 121 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 Hide Valuater's signature Hide all signatures Share this post Link to post Share on other sites
Faustvii 0 Posted February 8, 2006 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
Valuater 121 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) Hide Valuater's signature Hide all signatures Share this post Link to post Share on other sites
Faustvii 0 Posted February 8, 2006 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
Valuater 121 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) Hide Valuater's signature Hide all signatures Share this post Link to post Share on other sites
Faustvii 0 Posted February 8, 2006 ive tested it and it worked gr8 at me Share this post Link to post Share on other sites
Valuater 121 Posted February 8, 2006 Cool!!! 8) Hide Valuater's signature Hide all signatures Share this post Link to post Share on other sites
Faustvii 0 Posted February 8, 2006 Cool!!!8)i really like this program Valuater im gonna use this alot Share this post Link to post Share on other sites
Faustvii 0 Posted February 8, 2006 the way you block the mouseclick and that whit _IsPressed is very smart ive would never thought of that Share this post Link to post Share on other sites
Xenobiologist 36 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 Hide Xenobiologist's signature Hide all signatures 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
Faustvii 0 Posted February 8, 2006 the way VAULTER just showed us you can block everthing.. Share this post Link to post Share on other sites
SmOke_N 206 Posted February 8, 2006 Hide SmOke_N's signature Hide all signatures 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. Share this post Link to post Share on other sites
Xenobiologist 36 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 Hide Xenobiologist's signature Hide all signatures 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
Faustvii 0 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 Share this post Link to post Share on other sites
PezoFaSho 0 Posted February 9, 2006 thats awesome man, i might end up using this to stop my dad from downloading porn on my computer lmao Hide PezoFaSho's signature Hide all signatures 50% of the time, it works all the time Share this post Link to post Share on other sites
