System Guarder v0.2

[ToXiCSoft]

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 :

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 Menu

In Locked Modus

Unlocking Locked Modus

Timed Locking

Timed Shutdown

[Jos]

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

[ToXiCSoft]

Hmz

So instead of putting

Start()

to restrat it i should put

return

?

[SlimShady]

Really nice. I will definitely use this.

[ToXiCSoft]

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]

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

[Jos]

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

[Guest Guest]

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]

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

[ToXiCSoft]

i know that... -.-