daywalkereg Posted February 1, 2009 Share Posted February 1, 2009 Let Pictures TalksPlease Try it and leave comment ,suggestions,report bugsHave Fun... 1 £0\\/3 |-|3® $0 |\\/|µ(|-| Link to comment Share on other sites More sharing options...
FireFox Posted February 2, 2009 Share 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 Link to comment Share on other sites More sharing options...
daywalkereg Posted February 2, 2009 Author Share 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 |\\/|µ(|-| Link to comment Share on other sites More sharing options...
LithiumLi Posted February 2, 2009 Share 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ɽÍÍá¥ÍÑÌ ÀÌØíá¤)]¹ Link to comment Share on other sites More sharing options...
FireFox Posted February 2, 2009 Share Posted February 2, 2009 @LithiumLi Or another way : While ProcessExists($Exe) ProcessClose($Exe) WEnd But I dont know why you suggest this... Cheers, FireFox. Link to comment Share on other sites More sharing options...
LithiumLi Posted February 2, 2009 Share 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 Link to comment Share on other sites More sharing options...
FireFox Posted February 2, 2009 Share 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. Link to comment Share on other sites More sharing options...
LithiumLi Posted February 2, 2009 Share 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 Link to comment Share on other sites More sharing options...
daywalkereg Posted February 2, 2009 Author Share 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 |\\/|µ(|-| Link to comment Share on other sites More sharing options...
whoover Posted June 25, 2009 Share Posted June 25, 2009 What about Win+R and other hotkeys? Link to comment Share on other sites More sharing options...
lordicast Posted June 25, 2009 Share 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] 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