sandin Posted September 24, 2007 Share Posted September 24, 2007 Hi, I have this code so far: expandcollapse popup#include <GUIConstants.au3> #Include <Constants.au3> #include <string.au3> #NoTrayIcon $font="Arial" global $form2, $lavel1, $label2, $input, $form1, $form4, $i = 0,$input4,$label5, $label6, $input3, $input4,$button_ok, $input2, $label4 Opt("TrayMenuMode", 1) Opt("TrayOnEventMode",1) Opt("GUIOnEventMode", 1) $InputPass = "snd" $InputLevel = 1 if RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\snd\desktoplocker\", "Encripted Password")="" then $password = "" Else $string1 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\snd\desktoplocker\", "Encripted Password") $password = _StringEncrypt(0,$string1,$InputPass,$InputLevel) EndIf TraySetIcon(@SystemDir & "\SHELL32.dll", 44) $lock = TrayCreateItem("Lock desktop") TrayItemSetState(-1, 512) $changepassword = TrayCreateItem("Change password") TrayCreateItem("") $ExitItem = TrayCreateItem("Exit") TrayItemSetOnEvent($lock, "zakljucaj") TrayItemSetOnEvent($changepassword, "menjajpass") TrayItemSetOnEvent($ExitItem, "izlaz") TraySetState() TraySetToolTip("Desktop Locker") TrayTip("Desktop Locker", "Click here to lock desktop," & @CRLF & "change password or exit.", 3) AdlibEnable ("adlib1", 250) func menjajpass () $i = 1 $form4 = Guicreate("Change password", 300, 205, Default, Default, $WS_POPUPWINDOW) GuiSetIcon(@SystemDir & "\SHELL32.dll", 44) GUISetFont (9, 800, Default, $font) $label4 = GUICtrlCreateLabel("Please type in your old password:", 50, 10, 260, 20) $input2 = GUICtrlCreateInput("", 20, 35, 260, 20, 0x21) $label5 = GUICtrlCreateLabel("Please type in your new password:", 50, 65, 260, 20) GUICtrlSetState(-1, $GUI_DISABLE) $input3 = GUICtrlCreateInput("", 20, 90, 260, 20, 0x21) GUICtrlSetState(-1, $GUI_DISABLE) $label6 = GUICtrlCreateLabel("Please confirm your new password:", 50, 120, 260, 20) GUICtrlSetState(-1, $GUI_DISABLE) $input4 = GUICtrlCreateInput("", 20, 145, 260, 20, 0x21) GUICtrlSetState(-1, $GUI_DISABLE) $button_ok = GUICtrlCreateButton("OK", 40, 175, 100, 20) GUICtrlSetState(-1, $GUI_DISABLE) $button_cancel = GUICtrlCreateButton("Cancel", 160, 175, 100, 20) GUICtrlSetOnEvent($button_ok, "potvrdi") GUICtrlSetOnEvent($button_cancel, "prekini") GUISetState(@SW_SHOW) EndFunc func prekini () GUIDelete($Form4) $i = 0 EndFunc Func potvrdi () $password = guictrlread($input4) $string2 = _StringEncrypt(1,$password,$InputPass,$InputLevel) RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\snd\desktoplocker\", "Encripted Password", "REG_SZ", $string2) GUIDelete($Form4) $i = 0 EndFunc func adlib1 () if $i = 1 Then if GUICtrlRead($input2) = $password Then call("jebiga") EndIf if $i = 2 Then if guictrlread($input3) = guictrlread($input4) Then GUICtrlSetState($button_ok, $GUI_ENABLE) Else GUICtrlSetState($button_ok, $GUI_DISABLE) EndIf EndIf EndFunc func jebiga () GUICtrlSetState($label4, $GUI_DISABLE) GUICtrlSetState($input2, $GUI_DISABLE) GUICtrlSetState($label5, $GUI_ENABLE) GUICtrlSetState($label6, $GUI_ENABLE) GUICtrlSetState($input3, $GUI_ENABLE) GUICtrlSetState($input4, $GUI_ENABLE) ControlFocus("Change password", "", $input3) $i = 2 EndFunc func zakljucaj () hotKeySet("{ENTER}", "Provera") $Form1 = GUICreate("pozadina", 2000, 2000, -50, -50) GuiSetIcon(@SystemDir & "\SHELL32.dll", 44) GUISetState(@SW_SHOW) WinSetTrans("pozadina", "", 200) $form2 = Guicreate("Type security password", 300, 150, Default, Default, $WS_POPUPWINDOW) GuiSetIcon(@SystemDir & "\SHELL32.dll", 44) GUISetFont (9, 800, Default, $font) $label1 = GUICtrlCreateLabel("Please type in your password:", 60, 25, 260, 20) GUISetFont (9, 800, Default, $font) $label2 = GUICtrlCreateLabel("", 50, 100, 260, 20) GUICtrlSetColor(-1, 0xff0000) $input = GUICtrlCreateInput("", 20, 60, 260, 20, 0x21) GUISetState(@SW_SHOW) WinSetOnTop("Type security password", "", 1) EndFunc While 1 Sleep(10) WEnd func Izlaz () Exit EndFunc func Provera () if guictrlread($input) = $password Then call("otkljucano") Else GUICtrlSetData($label2, " Wrong password, please try again") GUICtrlSetData($input, "") EndIf EndFunc func otkljucano () hotKeySet("{ENTER}") GUIDelete($form1) GUIDelete($form2) $form3 = Guicreate("Success", 300, 50, Default, Default, $WS_POPUPWINDOW) GuiSetIcon(@SystemDir & "\SHELL32.dll", 44) GUICtrlSetBkColor($form3, 0xf0fff0) GUISetFont (10, 800, Default, $font) $label3 = GUICtrlCreateLabel("Succes! You have unlocked your desktop", 20, 15, 290, 20) GUICtrlSetColor(-1, 0x698b22) GUISetState(@SW_SHOW) sleep(2000) GUIDelete($form3) EndFunc my prob. is that I can't figure out how to lock theese keys: ALT, TAB (couse ALT+TAB can switch windows), Windows key (couse you can use Win+D as "show desktop"), CTRL+ALT+DEL (couse then you can switch windows, and shutdown this prog.). I know it's easier to press Win+L and setup a password as a protection, but that's not fun, it's more fun when you make your own prog, but I can't figure this out. If I set blockinput it will block all keys, so I can't input any password. T_T help(?) Some cool glass and image menu | WinLIRC remote controler | Happy Holidays to all... | Bounce the sun, a game in which you must save the sun from falling by bouncing it back into the sky | Hook Leadtek WinFast TV Card Remote Control Msges | GDI+ sliding toolbar | MIDI Keyboard (early alpha stage, with lots of bugs to fix) | Alt+Tab replacement | CPU Benchmark with pretty GUI | Ini Editor - Edit/Create your ini files with great ease | Window Manager (take total control of your windows) Pretty GUI! | Pop-Up window from a button | Box slider for toolbar | Display sound volume on desktop | Switch hotkeys with mouse scroll Link to comment Share on other sites More sharing options...
weaponx Posted September 24, 2007 Share Posted September 24, 2007 Sounds like Group Policy might offer a better solution. Link to comment Share on other sites More sharing options...
sandin Posted September 25, 2007 Author Share Posted September 25, 2007 T_T Some cool glass and image menu | WinLIRC remote controler | Happy Holidays to all... | Bounce the sun, a game in which you must save the sun from falling by bouncing it back into the sky | Hook Leadtek WinFast TV Card Remote Control Msges | GDI+ sliding toolbar | MIDI Keyboard (early alpha stage, with lots of bugs to fix) | Alt+Tab replacement | CPU Benchmark with pretty GUI | Ini Editor - Edit/Create your ini files with great ease | Window Manager (take total control of your windows) Pretty GUI! | Pop-Up window from a button | Box slider for toolbar | Display sound volume on desktop | Switch hotkeys with mouse scroll 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