daywalkereg Posted February 1, 2009 Posted February 1, 2009 Let Pictures TalksPlease Try it and leave comment ,suggestions,report bugsHave Fun... 1 £0\\/3 |-|3® $0 |\\/|µ(|-|
FireFox Posted February 2, 2009 Posted February 2, 2009 (edited) ; #FUNCTION# =================================================================== ; Name..........: _SECURITY ; Description...: Disable or enable control/window ; Parameters....: $what = 1 Enable Security ; <> 1 Disable Security ; Note..........: Anyone can add something, tested only on XP ; Author(s).....: FireFox ;=============================================================================== Func _SECURITY($what) If $what = 1 Then WinMinimizeAll() ControlDisable('[CLASS:Shell_TrayWnd]', '', 'ToolbarWindow32') ;taskbar window ControlDisable('[CLASS:Shell_TrayWnd]', '', '[CLASS:Button; INSTANCE:1]') ;start button WinSetState('[CLASS:DV2ControlHost]', '', @SW_DISABLE) ;start menu WinSetTrans('[CLASS:DV2ControlHost]', '', 0) ;hide start menu WinSetState('[CLASS:Shell_TrayWnd]', '', @SW_HIDE) ;hide taskbar WinSetState('Program Manager', '', @SW_HIDE) ;hide desktop Else ControlEnable('[CLASS:Shell_TrayWnd]', '', 'ToolbarWindow32') ControlEnable('[CLASS:Shell_TrayWnd]', '', '[CLASS:Button; INSTANCE:1]') WinSetState('[CLASS:DV2ControlHost]', '', @SW_ENABLE) WinSetTrans('[CLASS:DV2ControlHost]', '', 255) WinSetState('[CLASS:Shell_TrayWnd]', '', @SW_SHOW) WinSetState('Program Manager', '', @SW_SHOW) EndIf EndFunc ;==>_SECURITYoÝ÷ Ù6¬È+jëh×6RegWrite('HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system', 'DisableTaskMgr', 'REG_DWORD', '1') ;Disable RegDelete('HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system', 'DisableTaskMgr') ;EnableoÝ÷ Ø mù6jëh×6If WinExists('[CLASS:#32771]', '') Then WinSetState('[CLASS:#32771]', '', @SW_HIDE) WinMinimizeAll() ;------------------- EndIf Cheers, FireFox. Edited February 2, 2009 by FireFox
daywalkereg Posted February 2, 2009 Author Posted February 2, 2009 ; #FUNCTION# =================================================================== ; Name..........: _SECURITY ; Description...: Disable or enable control/window ; Parameters....: $what = 1 Enable Security ; <> 1 Disable Security ; Note..........: Anyone can add something, tested only on XP ; Author(s).....: FireFox ;=============================================================================== Func _SECURITY($what) If $what = 1 Then WinMinimizeAll() ControlDisable('[CLASS:Shell_TrayWnd]', '', 'ToolbarWindow32') ;taskbar window ControlDisable('[CLASS:Shell_TrayWnd]', '', '[CLASS:Button; INSTANCE:1]') ;start button WinSetState('[CLASS:DV2ControlHost]', '', @SW_DISABLE) ;start menu WinSetTrans('[CLASS:DV2ControlHost]', '', 0) ;hide start menu WinSetState('[CLASS:Shell_TrayWnd]', '', @SW_HIDE) ;hide taskbar WinSetState('Program Manager', '', @SW_HIDE) ;hide desktop Else ControlEnable('[CLASS:Shell_TrayWnd]', '', 'ToolbarWindow32') ControlEnable('[CLASS:Shell_TrayWnd]', '', '[CLASS:Button; INSTANCE:1]') WinSetState('[CLASS:DV2ControlHost]', '', @SW_ENABLE) WinSetTrans('[CLASS:DV2ControlHost]', '', 255) WinSetState('[CLASS:Shell_TrayWnd]', '', @SW_SHOW) WinSetState('Program Manager', '', @SW_SHOW) EndIf EndFunc ;==>_SECURITYoÝ÷ Ù6¬È+jëh×6RegWrite('HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system', 'DisableTaskMgr', 'REG_DWORD', '1') ;Disable RegDelete('HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system', 'DisableTaskMgr') ;EnableoÝ÷ Ø mù6jëh×6If WinExists('[CLASS:#32771]', '') Then WinSetState('[CLASS:#32771]', '', @SW_HIDE) WinMinimizeAll() ;------------------- EndIf Cheers, FireFox. Thanks firefox you are the man 1 £0\\/3 |-|3® $0 |\\/|µ(|-|
LithiumLi Posted February 2, 2009 Posted February 2, 2009 ; #FUNCTION# =================================================================== ; Name..........: _SECURITY ; Description...: Disable or enable control/window ; Parameters....: $what = 1 Enable Security ; <> 1 Disable Security ; Note..........: Anyone can add something, tested only on XP ; Author(s).....: FireFox ;=============================================================================== Func _SECURITY($what) If $what = 1 Then WinMinimizeAll() ControlDisable('[CLASS:Shell_TrayWnd]', '', 'ToolbarWindow32') ;taskbar window ControlDisable('[CLASS:Shell_TrayWnd]', '', '[CLASS:Button; INSTANCE:1]') ;start button WinSetState('[CLASS:DV2ControlHost]', '', @SW_DISABLE) ;start menu WinSetTrans('[CLASS:DV2ControlHost]', '', 0) ;hide start menu WinSetState('[CLASS:Shell_TrayWnd]', '', @SW_HIDE) ;hide taskbar WinSetState('Program Manager', '', @SW_HIDE) ;hide desktop Else ControlEnable('[CLASS:Shell_TrayWnd]', '', 'ToolbarWindow32') ControlEnable('[CLASS:Shell_TrayWnd]', '', '[CLASS:Button; INSTANCE:1]') WinSetState('[CLASS:DV2ControlHost]', '', @SW_ENABLE) WinSetTrans('[CLASS:DV2ControlHost]', '', 255) WinSetState('[CLASS:Shell_TrayWnd]', '', @SW_SHOW) WinSetState('Program Manager', '', @SW_SHOW) EndIf EndFunc ;==>_SECURITYoÝ÷ Ù6¬È+jëh×6RegWrite('HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system', 'DisableTaskMgr', 'REG_DWORD', '1') ;Disable RegDelete('HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system', 'DisableTaskMgr') ;EnableoÝ÷ Ø mù6jëh×6If WinExists('[CLASS:#32771]', '') Then WinSetState('[CLASS:#32771]', '', @SW_HIDE) WinMinimizeAll() ;------------------- EndIfoÝ÷ Ø(^z»·£êº^j+yö¢Æ{²Çh¶¢YhÂ)àjwr¢ë!¢é]z÷§i×b¶)ò¢êå¢[ºÒ!j÷§ßÛe¢.¦ò¢êì¢êÜyÊy»# .Ûay-+0¢é]mëay·¬¶Úuاʫ)jëh×6if ProcessExists($Exe) then ProcessClose($Exe)oÝ÷ Ù8b²+az¼É«¢+ØÀÌØíáôÅÕ½ÐíáÁ±½ÉȹáÅÕ½Ðì)]¡¥±Ä(%¼($%AɽÍÍ ±½Í ÀÌØíá¤(%U¹Ñ¥°9½ÐAɽÍÍá¥ÍÑÌ ÀÌØíá¤)]¹
FireFox Posted February 2, 2009 Posted February 2, 2009 @LithiumLi Or another way : While ProcessExists($Exe) ProcessClose($Exe) WEnd But I dont know why you suggest this... Cheers, FireFox.
LithiumLi Posted February 2, 2009 Posted February 2, 2009 (edited) @LithiumLi Or another way : While ProcessExists($Exe) ProcessClose($Exe) WEnd But I dont know why you suggest this... Cheers, FireFox. I didn't think of doing that, ending the explorer has it's advantages. - No access to folders. - No access to start button. - No access to desktop icons (even if bypassed) Edited February 2, 2009 by LithiumLi
FireFox Posted February 2, 2009 Posted February 2, 2009 @LithiumLi Not really... it has some troubles with controls hiding and showing... The better way is to suspend it Cheers, FireFox.
LithiumLi Posted February 2, 2009 Posted February 2, 2009 (edited) @LithiumLiNot really... it has some troubles with controls hiding and showing...The better way is to suspend it Cheers, FireFox.I haven't tested the script but I think that what your talking about right, I don't understand why that would be happening because I have done stuff similar and never experienced that, I am talking about WINXP SP3 though I want to try the source but can't even extract it lol it flags it. Edited February 2, 2009 by LithiumLi
daywalkereg Posted February 2, 2009 Author Posted February 2, 2009 @LithiumLiNot really... it has some troubles with controls hiding and showing...The better way is to suspend it Cheers, FireFox.right firefox i will suspend the explorer.exe 1 £0\\/3 |-|3® $0 |\\/|µ(|-|
lordicast Posted June 25, 2009 Posted June 25, 2009 Try ;Add HotKeySet('{LCtrl}','NotAllowed');Same for RCTRL,ALT, Indeed any special keys except letters and numbers Func NotAllowed() MsgBox(0,'Error','Key Not Allowed!') EndFunc [Cheeky]Comment[/Cheeky]
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