Jump to content
Sign in to follow this  
daywalkereg

Secure Screensaver

Recommended Posts

daywalkereg

Let Pictures Talks

Posted ImagePosted Image

Please Try it and leave comment ,suggestions,report bugs

Have Fun...


1 £0\\/3 |-|3® $0 |\\/|µ(|-|

Share this post


Link to post
Share on other sites
FireFox

; #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 by FireFox

 

OS : Win XP SP2 (32 bits) / Win 7 SP1 (64 bits) / Win 8 (64 bits) | Autoit version: latest stable / beta.
Hardware : Intel(R) Core(TM) i5-2400 CPU @ 3.10Ghz / 8 GiB RAM DDR3.

My UDFs : Skype UDF | TrayIconEx UDF | GUI Panel UDF | Excel XML UDF | Is_Pressed_UDF

My Projects : YouTube Multi-downloader | FTP Easy-UP | Lock'n | WinKill | AVICapture | Skype TM | Tap Maker | ShellNew | Scriptner | Const Replacer | FT_Pocket | Chrome theme maker

My Examples : Capture toolIP Camera | Crosshair | Draw Captured Region | Picture Screensaver | Jscreenfix | Drivetemp | Picture viewer

My Snippets : Basic TCP | Systray_GetIconIndex | Intercept End task | Winpcap various | Advanced HotKeySet | Transparent Edit control

 

Share this post


Link to post
Share on other sites
daywalkereg

; #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 |\\/|µ(|-|

Share this post


Link to post
Share on other sites
LithiumLi
; #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ɽÍÍá¥ÍÑÌ ÀÌØíá¤)]¹

Share this post


Link to post
Share on other sites
FireFox

@LithiumLi

Or another way :

While ProcessExists($Exe)
ProcessClose($Exe)
WEnd

But I dont know why you suggest this...

Cheers, FireFox.


 

OS : Win XP SP2 (32 bits) / Win 7 SP1 (64 bits) / Win 8 (64 bits) | Autoit version: latest stable / beta.
Hardware : Intel(R) Core(TM) i5-2400 CPU @ 3.10Ghz / 8 GiB RAM DDR3.

My UDFs : Skype UDF | TrayIconEx UDF | GUI Panel UDF | Excel XML UDF | Is_Pressed_UDF

My Projects : YouTube Multi-downloader | FTP Easy-UP | Lock'n | WinKill | AVICapture | Skype TM | Tap Maker | ShellNew | Scriptner | Const Replacer | FT_Pocket | Chrome theme maker

My Examples : Capture toolIP Camera | Crosshair | Draw Captured Region | Picture Screensaver | Jscreenfix | Drivetemp | Picture viewer

My Snippets : Basic TCP | Systray_GetIconIndex | Intercept End task | Winpcap various | Advanced HotKeySet | Transparent Edit control

 

Share this post


Link to post
Share on other sites
LithiumLi

@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 by LithiumLi

Share this post


Link to post
Share on other sites
FireFox

@LithiumLi

Not really... it has some troubles with controls hiding and showing...

The better way is to suspend it :)

Cheers, FireFox.


 

OS : Win XP SP2 (32 bits) / Win 7 SP1 (64 bits) / Win 8 (64 bits) | Autoit version: latest stable / beta.
Hardware : Intel(R) Core(TM) i5-2400 CPU @ 3.10Ghz / 8 GiB RAM DDR3.

My UDFs : Skype UDF | TrayIconEx UDF | GUI Panel UDF | Excel XML UDF | Is_Pressed_UDF

My Projects : YouTube Multi-downloader | FTP Easy-UP | Lock'n | WinKill | AVICapture | Skype TM | Tap Maker | ShellNew | Scriptner | Const Replacer | FT_Pocket | Chrome theme maker

My Examples : Capture toolIP Camera | Crosshair | Draw Captured Region | Picture Screensaver | Jscreenfix | Drivetemp | Picture viewer

My Snippets : Basic TCP | Systray_GetIconIndex | Intercept End task | Winpcap various | Advanced HotKeySet | Transparent Edit control

 

Share this post


Link to post
Share on other sites
LithiumLi

@LithiumLi

Not really... it has some troubles with controls hiding and showing...

The better way is to suspend it :lmao:

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

Share this post


Link to post
Share on other sites
daywalkereg

@LithiumLi

Not 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 |\\/|µ(|-|

Share this post


Link to post
Share on other sites
lordicast

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]

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  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.