Sign in to follow this  
Followers 0
ToXiCSoft

System Guarder v0.2

10 posts in this topic

Soon im going to release my Tool System Guard on some other forums,

but first im in need of people to test it

What 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 Lock

SG was made in Autoit3 And i hope i can soon update it to VBS / RBS

Please 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 Password

FAQ

My 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 password

My 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 :

$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

^^ :huh2:

Here are some screen shots :

I censored some stuff at my desktop , PRIVACY ^^^:D

Start Menu

Posted Image

In Locked Modus

Posted Image

Unlocking Locked Modus

Posted Image

Timed Locking

Posted Image

Timed Shutdown

Posted Image


Share this post


Link to post
Share on other sites



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

Visit the SciTE4AutoIt3 Download page for the latest versions        Beta files                                                          Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

Hmz

So instead of putting

Start()

to restrat it i should put

return

?


Share this post


Link to post
Share on other sites

Really nice. I will definitely use this.

Share this post


Link to post
Share on other sites

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 :D

And ive used this many many times :huh2:


Share this post


Link to post
Share on other sites

uhh when i lock it, i can just use control+alt+delete do exit the program...doesn't seem very safe


-Brett

Share this post


Link to post
Share on other sites

#7 ·  Posted (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 :D

And ive used this many many times :huh2:

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 by JdeB

Visit the SciTE4AutoIt3 Download page for the latest versions        Beta files                                                          Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

#9 ·  Posted (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 by lte5000

Share this post


Link to post
Share on other sites

i know that... -.-


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