ToXiCSoft Posted June 6, 2004 Posted June 6, 2004 Soon im going to release my Tool System Guard on some other forums,but first im in need of people to test itWhat is SG?System Guards protects your computer by locking the desktop up and refreshing it Every Second!But SG can also shut your pc Down after a certain amount of time, It also has this timed function for Desktop LockSG was made in Autoit3 And i hope i can soon update it to VBS / RBSPlease tell me what you think of this :#Instructions : Download/Compile SG and unzip it,Run it and you will see a introduction(1 time only)Then you get an option menu you can chose :Lock (lcoks desktop)Tlock (lock desktop after some tmie)TSD (shut downs pc after some time *Safe*)Setup (Select Setup in the first time your run SG)Exit (Closes SG (you can also press cancel ~~))Note you must first run Setup else you havent setup as PasswordFAQMy system is locked how do i unlock?Press Alt + Control + Enter inthe same time, Then you will get a Popup and you have 10 Seconds to type your passwordMy system is about to do a Time Shutdown but i dont want this anymore help?!Press Alt + Control + Esc Then press yes to the popup Question!This is all you need to know!The script :expandcollapse popup$pass = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\SystemGuarder", "Pass") $titel = "System Guarder v0.2 Public Beta" $line = "================================================================================================ =================================" SplashTexton("System Guarder-",$titel & @CRLF & $line & @CRLF & "Welcome to System Guarder the tool that makes your PC Safe!",@desktopwidth,100,0,0,1) $tray = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\SystemGuarder", "Tray") Opt("TrayIconHide", $tray ) $check = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\SystemGuarder", "Use") If @error = -1 then SplashTexton("System Guarder-",$titel & @CRLF & $line & @CRLF & "Welcome to System Guarder the tool that makes your PC Safe!",@desktopwidth,100,0,0,1) Sleep(3500) SplashTexton("System Guarder-",$titel & @CRLF & $line & @CRLF & "This tool System Guarder is able to lock your desktop!",@desktopwidth,100,0,0,1) Sleep(3500) SplashTexton("System Guarder-",$titel & @CRLF & $line & @CRLF & "But it can also Lock your desktop after a certain amount of time!",@desktopwidth,100,0,0,1) Sleep(3500) SplashTexton("System Guarder-",$titel & @CRLF & $line & @CRLF & "And it can also shut your pc Safely down after a certain amount of time!",@desktopwidth,100,0,0,1) Sleep(3500) EndIf RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\SystemGuarder", "use", "REG_SZ", 1 ) Star() Func Unlock() $pass = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\SystemGuarder", "Pass") SplashTexton("System Guarder-",$titel & @CRLF & $line & @CRLF & "You have 10 Seconds to enter your password Before system will be locked again!",@desktopwidth,100,0,0,1) $in = InputBox("System Guarder","Please Enter Password to unlock","","*","","","","",10) If $in = $pass Then SplashTexton("System Guarder-",$titel & @CRLF & $line & @CRLF & "You have Succesfully unlocked the system!",@desktopwidth,100,0,0,1) HotKeySet("!^{ENTER}", "x") Star() EndIf EndFunc Func Star() SplashTexton("System Guarder-",$titel & @CRLF & $line & @CRLF & "Please state wich option you would like to use!",@desktopwidth,100,0,0,1) $input = InputBox("System Guarder","Wich option would you like to use?" & @CRLF & "Lock - Will lock your pc" & @CRLF & "TLock - Will lock your pc for Specific Time" & @CRLF & "TSD - Will Shutdown after a specific time" & @CRLF & "Setup - Will Start SG's Setup" & @CRLF & "Exit - Will Exit SG") If @Error = 1 then Exit Else Select Case $input = "Lock" Lock() Case $input = "Tlock" TLock() Case $input = "TSD" TSD() Case $input = "setup" Setup() Case $input = "Exit" Exit Case else Star() EndSelect EndIf EndFunc Func Setup() SplashTexton("System Guarder-",$titel & @CRLF & $line & @CRLF & "Welcome to System Guarder's Setup",@desktopwidth,100,0,0,1) $msg1 = InputBox("System Guarder","Wich password would you like to use for Unlocking etc...") RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\SystemGuarder", "Pass", "REG_SZ", $msg1 ) $msg2 = MsgBox(4,"System Guarder","Would you like to use Tray Tip?") Select Case $msg2 = 6 RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\SystemGuarder", "Tray", "REG_SZ", 0 ) Case $msg2 = 7 RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\SystemGuarder", "Tray", "REG_SZ", 1 ) EndSelect Star() EndFunc Func Lock() HotKeySet("!^{ENTER}", "Unlock") Do WinActivate("System Guarder-") SplashTexton("System Guarder-",$titel & @CRLF & $line & @CRLF & "The system is locked with System Guarder!" & @CRLF & "Please use your special keys To be able to enter your password!",@desktopwidth,@desktopheight,0,0,1) Sleep(1000) Until 0 EndFunc Func TLock() HotKeySet("!^{ENTER}", "Unlock") $time = InputBox("System Guarder","Lock PC After how many Minuts?") Do WinActivate("System Guarder-") SplashTextOn("System Guarder-","Locking in " & $time & " Mins",100,45,@desktopwidth - 100,20,1) $time = $time - 1 Sleep(60000) Until $time <= 0 SplashTextOn("System Guarder-","5",100,45,@desktopwidth - 100,20,1,"",24) Sleep(1000) SplashTextOn("System Guarder-","4",100,45,@desktopwidth - 100,20,1,"",24) Sleep(1000) SplashTextOn("System Guarder-","3",100,45,@desktopwidth - 100,20,1,"",24) Sleep(1000) SplashTextOn("System Guarder-","2",100,45,@desktopwidth - 100,20,1,"",24) Sleep(1000) SplashTextOn("System Guarder-","1",100,45,@desktopwidth - 100,20,1,"",24) Sleep(1000) Do SplashTexton("System Guarder-",$titel & @CRLF & $line & @CRLF & "The system is locked with System Guarder!" & @CRLF & "Please use your special keys To be able to enter your password!",@desktopwidth,@desktopheight,0,0,1) Sleep(10000) Until 0 EndFunc Func TSD() HotKeySet("!^{ESC}", "tsdh") $time = InputBox("System Guarder","Shutdown PC After how many Minuts?") Do SplashTextOn("System Guarder-","Shutdown in " & $time & " Minuts",100,45,@desktopwidth - 100,20,1) $time = $time - 1 Sleep(60000) Until $time <= 0 SplashTextOn("System Guarder-","5",100,45,@desktopwidth - 100,20,1,"",24) Sleep(1000) SplashTextOn("System Guarder-","4",100,45,@desktopwidth - 100,20,1,"",24) Sleep(1000) SplashTextOn("System Guarder-","3",100,45,@desktopwidth - 100,20,1,"",24) Sleep(1000) SplashTextOn("System Guarder-","2",100,45,@desktopwidth - 100,20,1,"",24) Sleep(1000) SplashTextOn("System Guarder-","1",100,45,@desktopwidth - 100,20,1,"",24) Sleep(1000) Shutdown(13) EndFunc Func TSDH() $msg = Msgbox(4,"System Guarder","Cancel Time ShutDown?") if $msg = 6 then HotKeySet("!^{ESC}", "x") SplashTexton("System Guarder-",$titel & @CRLF & $line & @CRLF & "Succesfully Stopped Timed Shut Down!",@desktopwidth,100,0,0,1) Sleep(1000) Star() Endif EndFunc Func x() Sleep(100) EndFunc^^ Here are some screen shots :I censored some stuff at my desktop , PRIVACY ^^^Start MenuIn Locked ModusUnlocking Locked ModusTimed LockingTimed Shutdown
Developers Jos Posted June 6, 2004 Developers Posted June 6, 2004 Think you have a flow issue in your logic. You keep on calling Star() in stead of making Star() loop indefinately and doing a Return in stead of Star() from the other functions. You will get an Error in time telling you that you have too many recursions.... Func Star() While 1 SplashTextOn("System Guarder-", $TITEL & @CRLF & $LINE & @CRLF & "Please state wich option you would like to use!", @DesktopWidth, 100, 0, 0, 1) $INPUT = InputBox("System Guarder", "Wich option would you like to use?" & @CRLF & "Lock - Will lock your pc" & @CRLF & "TLock - Will lock your pc for Specific Time" & @CRLF & "TSD - Will Shutdown after a specific time" & @CRLF & "Setup - Will Start SG's Setup" & @CRLF & "Exit - Will Exit SG") If @error = 1 Then Exit Else Select Case $INPUT = "Lock" Lock() Case $INPUT = "Tlock" TLock() Case $INPUT = "TSD" TSD() Case $INPUT = "setup" Setup() Case $INPUT = "Exit" Exit ;Case Else ; Star() EndSelect EndIf Wend EndFunc ;==>Star SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past.
ToXiCSoft Posted June 6, 2004 Author Posted June 6, 2004 Hmz So instead of putting Start() to restrat it i should put return ?
ToXiCSoft Posted June 6, 2004 Author Posted June 6, 2004 Think you have a flow issue in your logic. You keep on calling Star() in stead of making Star() loop indefinately and doing a Return in stead of Star() from the other functions. You will get an Error in time telling you that you have too many recursions...., BTW I never ever got that error And ive used this many many times
brett Posted June 6, 2004 Posted June 6, 2004 uhh when i lock it, i can just use control+alt+delete do exit the program...doesn't seem very safe -Brett
Developers Jos Posted June 6, 2004 Developers Posted June 6, 2004 (edited) Think you have a flow issue in your logic. You keep on calling Star() in stead of making Star() loop indefinately and doing a Return in stead of Star() from the other functions. You will get an Error in time telling you that you have too many recursions...., BTW I never ever got that error And ive used this many many times this is correct logic: Star() Func Star() ; .your code Setup() ; .your code Return; this returns control to the calling code EndFunc Func Setup() ; .. your code Return; this returns control to the calling code EndFunc Edited June 6, 2004 by JdeB SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past.
Guest Guest Posted June 6, 2004 Posted June 6, 2004 You could use one of these blocks of code instead of your code. (It would take a while before you would get the recursion error in your original code.) Kendall Func Star() While 1 SplashTextOn("System Guarder-", $TITEL & @CRLF & $LINE & @CRLF & "Please state wich option you would like to use!", @DesktopWidth, 100, 0, 0, 1) $INPUT = InputBox("System Guarder", "Wich option would you like to use?" & @CRLF & "Lock - Will lock your pc" & @CRLF & "TLock - Will lock your pc for Specific Time" & @CRLF & "TSD - Will Shutdown after a specific time" & @CRLF & "Setup - Will Start SG's Setup" & @CRLF & "Exit - Will Exit SG") If @error = 1 Then Exit Else Select Case $INPUT = "Lock" Lock() Case $INPUT = "Tlock" TLock() Case $INPUT = "TSD" TSD() Case $INPUT = "setup" Setup() Case $INPUT = "Exit" Exit[B] ;Case Else ; Star()[/B] EndSelect EndIf Wend EndFunc ;==>Star Func Star() While 1 SplashTextOn("System Guarder-", $TITEL & @CRLF & $LINE & @CRLF & "Please state wich option you would like to use!", @DesktopWidth, 100, 0, 0, 1) $INPUT = InputBox("System Guarder", "Wich option would you like to use?" & @CRLF & "Lock - Will lock your pc" & @CRLF & "TLock - Will lock your pc for Specific Time" & @CRLF & "TSD - Will Shutdown after a specific time" & @CRLF & "Setup - Will Start SG's Setup" & @CRLF & "Exit - Will Exit SG") If @error = 1 Then Exit Else Select Case $INPUT = "Lock" Lock() Case $INPUT = "Tlock" TLock() Case $INPUT = "TSD" TSD() Case $INPUT = "setup" Setup() Case $INPUT = "Exit" Exit[B] Case Else ContinueLoop[/B] EndSelect EndIf Wend EndFunc ;==>Star
lte5000 Posted June 6, 2004 Posted June 6, 2004 (edited) Edit: I see I was a day late and a dollar short...If you do use use the above examples take out the html tags in the case statements before you use the code.Kendall Edited June 6, 2004 by lte5000
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