Jump to content
Sign in to follow this  
ConsultingJoe

Desktop View Changer

Recommended Posts

ConsultingJoe

This will change the view of the desktop (folder views)

You need Auto3Lib =>

http://www.autoitscript.com/forum/index.php?showtopic=33677

#Include <Constants.au3>
#Include <A3LListView.au3>
#Include <misc.au3>
#NoTrayIcon
Opt( "TrayAutoPause", 0 )
Opt("TrayMenuMode",1)
Opt("WinTitleMatchMode", 4)

$hWnd = ControlGetHandle( "Program Manager", "", "SysListView321" )

$detailsitem    = TrayCreateItem("Details")
$largeitem    = TrayCreateItem("Large Icons")
$smallitem    = TrayCreateItem("Small Icons")
$tileitem    = TrayCreateItem("Tile")
TrayCreateItem("")
$exititem       = TrayCreateItem("Exit")

TraySetState()
$view = _ListView_GetView($hWnd)
Select
    Case $view = 0
        TrayItemSetState( $detailsitem, $TRAY_CHECKED )
    Case $view = 1
        TrayItemSetState( $largeitem, $TRAY_CHECKED )
    Case $view = 2
        TrayItemSetState( $smallitem, $TRAY_CHECKED )
    Case $view = 4
        TrayItemSetState( $tileitem, $TRAY_CHECKED )
EndSelect

TrayItemSetState( $detailsitem, $TRAY_UNCHECKED)

While 1
    $msg = TrayGetMsg()
    Switch $msg
        Case 0
            ContinueLoop
        Case $exititem
            ExitLoop
        Case $detailsitem
            resettray()
            TrayItemSetState( $detailsitem, $TRAY_CHECKED)
            _ListView_SetView($hWnd, 0)
            _ListView_SetExtendedListViewStyle($hWnd, BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_HEADERDRAGDROP))
            DllCall("user32.dll", "long", "SendMessage", "hwnd", WinGetHandle("classname=Progman"), "int", 0x111, "int", 28931, "int", 0)
        Case $largeitem
            resettray()
            TrayItemSetState( $largeitem, $TRAY_CHECKED)
            _ListView_SetView($hWnd, 1)
            hidescrollbars($hWnd)
        Case $smallitem
            resettray()
            TrayItemSetState( $smallitem, $TRAY_CHECKED)
            _ListView_SetView($hWnd, 3)
            hidescrollbars($hWnd)
        Case $tileitem
            resettray()
            TrayItemSetState( $tileitem, $TRAY_CHECKED)
            _ListView_SetView($hWnd, 4)
            hidescrollbars($hWnd)
    EndSwitch
WEnd
Exit

Func resettray()
    TrayItemSetState( $detailsitem, $TRAY_UNCHECKED)
    TrayItemSetState( $largeitem, $TRAY_UNCHECKED)
    TrayItemSetState( $smallitem, $TRAY_UNCHECKED)
    TrayItemSetState( $tileitem, $TRAY_UNCHECKED)
EndFunc

Func hidescrollbars($hWnd)
    DllCall("user32.dll", "int", "ShowScrollBar", "hwnd", $hWnd, "int", 0, "int", False)
    DllCall("user32.dll", "int", "ShowScrollBar", "hwnd", $hWnd, "int", 1, "int", False)
EndFunc
Edited by CyberZeroCool

[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Share this post


Link to post
Share on other sites
Cyber

FANTASTIC!!!!!!!!!

:)

Can you insert a same resolution changer?

:)


Console Browse: Navigate on the WEB in a textual consoleMultiPing!: Show computer on the lan and/or show the local/remote task, ALL animated!KillaWin: Event executingCryptPage: Crypt your webpage and show only with key

Share this post


Link to post
Share on other sites
ConsultingJoe

resolution changer?


[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Share this post


Link to post
Share on other sites
Cyber

post-10077-1180082658_thumb.jpg

this :)

but i don't know the function for change resolution :)

Edited by Cyber

Console Browse: Navigate on the WEB in a textual consoleMultiPing!: Show computer on the lan and/or show the local/remote task, ALL animated!KillaWin: Event executingCryptPage: Crypt your webpage and show only with key

Share this post


Link to post
Share on other sites
Cyber

Thanks PartyPooper for code

:)

#Include <Constants.au3>
#Include <A3LListView.au3>
#Include <misc.au3>
#NoTrayIcon
Opt( "TrayAutoPause", 0 )
Opt("TrayMenuMode",1)
Opt("WinTitleMatchMode", 4)

Global $desktopHdefault= @DesktopHeight
Global $desktopWdefault= @DesktopWidth

$hWnd = ControlGetHandle( "Program Manager", "", "SysListView321" )

$detailsitem    = TrayCreateItem("Details")
$largeitem    = TrayCreateItem("Large Icons")
$smallitem    = TrayCreateItem("Small Icons")
$tileitem    = TrayCreateItem("Tile")
$menu = TrayCreateMenu("Resolution")
$_resolution1 = TrayCreateItem("640x480", $menu)
$_resolution2 = TrayCreateItem("800x600", $menu)
$_resolution3 = TrayCreateItem("1024x768", $menu)
$_resolution4 = TrayCreateItem("1280x1024", $menu)
$_resolution5 = TrayCreateItem("1600x1200", $menu)

$exititem      = TrayCreateItem("Exit")

TraySetState()
$view = _ListView_GetView($hWnd)
Select
    Case $view = 0
        TrayItemSetState( $detailsitem, $TRAY_CHECKED )
    Case $view = 1
        TrayItemSetState( $largeitem, $TRAY_CHECKED )
    Case $view = 2
        TrayItemSetState( $smallitem, $TRAY_CHECKED )
    Case $view = 4
        TrayItemSetState( $tileitem, $TRAY_CHECKED )
EndSelect

TrayItemSetState( $detailsitem, $TRAY_UNCHECKED)

While 1
    $msg = TrayGetMsg()
    Switch $msg
        Case 0
            ContinueLoop
        Case $exititem
            ExitLoop
        Case $_resolution1
            _ChangeScreenRes(640,480)
            _confirmResolution()
        Case $_resolution2
            _ChangeScreenRes(800,600)
            _confirmResolution()
        Case $_resolution3
            _ChangeScreenRes(1024,768)
            _confirmResolution()
        Case $_resolution4
            _ChangeScreenRes(1280,1024)
            _confirmResolution()
        Case $_resolution5
            _ChangeScreenRes(1600,1200)
            _confirmResolution()
        Case $detailsitem
            resettray()
            TrayItemSetState( $detailsitem, $TRAY_CHECKED)
            _ListView_SetView($hWnd, 0)
            _ListView_SetExtendedListViewStyle($hWnd, BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_HEADERDRAGDROP))
            DllCall("user32.dll", "long", "SendMessage", "hwnd", WinGetHandle("classname=Progman"), "int", 0x111, "int", 28931, "int", 0)
        Case $largeitem
            resettray()
            TrayItemSetState( $largeitem, $TRAY_CHECKED)
            _ListView_SetView($hWnd, 1)
            hidescrollbars($hWnd)
        Case $smallitem
            resettray()
            TrayItemSetState( $smallitem, $TRAY_CHECKED)
            _ListView_SetView($hWnd, 3)
            hidescrollbars($hWnd)
        Case $tileitem
            resettray()
            TrayItemSetState( $tileitem, $TRAY_CHECKED)
            _ListView_SetView($hWnd, 4)
            hidescrollbars($hWnd)
    EndSwitch
WEnd
Exit

Func _confirmResolution()
    if MsgBox(260,"Confirm","Confirm this resolution?",10) <> 6 Then
        _ChangeScreenRes($desktopWdefault,$desktopHdefault)
    EndIf   
EndFunc

Func resettray()
    TrayItemSetState( $detailsitem, $TRAY_UNCHECKED)
    TrayItemSetState( $largeitem, $TRAY_UNCHECKED)
    TrayItemSetState( $smallitem, $TRAY_UNCHECKED)
    TrayItemSetState( $tileitem, $TRAY_UNCHECKED)
EndFunc

Func hidescrollbars($hWnd)
    DllCall("user32.dll", "int", "ShowScrollBar", "hwnd", $hWnd, "int", 0, "int", False)
    DllCall("user32.dll", "int", "ShowScrollBar", "hwnd", $hWnd, "int", 1, "int", False)
EndFunc


;===============================================================================
;
; Function Name:    _ChangeScreenRes()
; Description:      Changes the current screen geometry, colour and refresh rate.
; Version:          1.0.0.1
; Parameter(s):     $i_Width - Width of the desktop screen in pixels. (horizontal resolution)
;                   $i_Height - Height of the desktop screen in pixels. (vertical resolution)
;                   $i_BitsPP - Depth of the desktop screen in bits per pixel.
;                   $i_RefreshRate - Refresh rate of the desktop screen in hertz.
; Requirement(s):   AutoIt Beta > 3.1
; Return Value(s):  On Success - Screen is adjusted, @ERROR = 0
;                   On Failure - sets @ERROR = 1
; Forum(s):         http://www.autoitscript.com/forum/index.php?showtopic=20121
; Author(s):        Original code - psandu.ro
;                   Modifications - PartyPooper
;
;===============================================================================
Func _ChangeScreenRes($i_Width = @DesktopWidth, $i_Height = @DesktopHeight, $i_BitsPP = @DesktopDepth, $i_RefreshRate = @DesktopRefresh)
    Local Const $DM_PELSWIDTH = 0x00080000
    Local Const $DM_PELSHEIGHT = 0x00100000
    Local Const $DM_BITSPERPEL = 0x00040000
    Local Const $DM_DISPLAYFREQUENCY = 0x00400000
    Local Const $CDS_TEST = 0x00000002
    Local Const $CDS_UPDATEREGISTRY = 0x00000001
    Local Const $DISP_CHANGE_RESTART = 1
    Local Const $DISP_CHANGE_SUCCESSFUL = 0
    Local Const $HWND_BROADCAST = 0xffff
    Local Const $WM_DISPLAYCHANGE = 0x007E
    If $i_Width = "" Or $i_Width = -1 Then $i_Width = @DesktopWidth ; default to current setting
    If $i_Height = "" Or $i_Height = -1 Then $i_Height = @DesktopHeight ; default to current setting
    If $i_BitsPP = "" Or $i_BitsPP = -1 Then $i_BitsPP = @DesktopDepth ; default to current setting
    If $i_RefreshRate = "" Or $i_RefreshRate = -1 Then $i_RefreshRate = @DesktopRefresh ; default to current setting
    Local $DEVMODE = DllStructCreate("byte[32];int[10];byte[32];int[6]")
    Local $B = DllCall("user32.dll", "int", "EnumDisplaySettings", "ptr", 0, "long", 0, "ptr", DllStructGetPtr($DEVMODE))
    If @error Then
        $B = 0
        SetError(1)
        Return $B
    Else
        $B = $B[0]
    EndIf
    If $B <> 0 Then
        DllStructSetData($DEVMODE, 2, BitOR($DM_PELSWIDTH, $DM_PELSHEIGHT, $DM_BITSPERPEL, $DM_DISPLAYFREQUENCY), 5)
        DllStructSetData($DEVMODE, 4, $i_Width, 2)
        DllStructSetData($DEVMODE, 4, $i_Height, 3)
        DllStructSetData($DEVMODE, 4, $i_BitsPP, 1)
        DllStructSetData($DEVMODE, 4, $i_RefreshRate, 5)
        $B = DllCall("user32.dll", "int", "ChangeDisplaySettings", "ptr", DllStructGetPtr($DEVMODE), "int", $CDS_TEST)
        If @error Then
            $B = -1
        Else
            $B = $B[0]
        EndIf
        Select
            Case $B = $DISP_CHANGE_RESTART
                $DEVMODE = ""
                Return 2
            Case $B = $DISP_CHANGE_SUCCESSFUL
                DllCall("user32.dll", "int", "ChangeDisplaySettings", "ptr", DllStructGetPtr($DEVMODE), "int", $CDS_UPDATEREGISTRY)
                DllCall("user32.dll", "int", "SendMessage", "hwnd", $HWND_BROADCAST, "int", $WM_DISPLAYCHANGE, _
                        "int", $i_BitsPP, "int", $i_Height * 2 ^ 16 + $i_Width)
                $DEVMODE = ""
                Return 1
            Case Else
                $DEVMODE = ""
                SetError(1)
                Return $B
        EndSelect
    EndIf
EndFunc ;==>_ChangeScreenRes

Console Browse: Navigate on the WEB in a textual consoleMultiPing!: Show computer on the lan and/or show the local/remote task, ALL animated!KillaWin: Event executingCryptPage: Crypt your webpage and show only with key

Share this post


Link to post
Share on other sites
ConsultingJoe

Cool man


[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Share this post


Link to post
Share on other sites
Thunder-man

Wow, this is a cool Script. :)

I think..

What is with the Desktop Icon? (for any Desktop)

Sorry my english is bad.

look at this... Thread

Link:

Share this post


Link to post
Share on other sites
ConsultingJoe

Wow, this is a cool Script. :)

I think..

What is with the Desktop Icon? (for any Desktop)

Sorry my english is bad.

look at this... Thread

Link:

It just changes the way your icons look on the desktop. so they can be listed or small icons or tiled

[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Share this post


Link to post
Share on other sites
star2

nice job ppl

I have one question

how does the script refreshes the view directly?


[quote]Baby you're all that I want, When you're lyin' here in my armsI'm findin' it hard to believe, We're in heavenAnd love is all that I need , And I found it there in your heartIt isn't too hard to see, We're in heaven .Bryan Adams[/quote].............................................................................[u]AUTOIT[/u]

Share this post


Link to post
Share on other sites
Thunder-man

It just changes the way your icons look on the desktop. so they can be listed or small icons or tiled

Oh sorry, I have the Thread in a other Fireforx Tab. :">

I mean this...

Link:

Share this post


Link to post
Share on other sites
ConsultingJoe

nice job ppl

I have one question

how does the script refreshes the view directly?

it only needs to with the detailed view because it lags but the command is:

DllCall("user32.dll", "long", "SendMessage", "hwnd", WinGetHandle("classname=Progman"), "int", 0x111, "int", 28931, "int", 0)

[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

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  

×