Jump to content

Desktop Dreamscene XP

JRSmile

By JRSmile,
in AutoIt Example Scripts

 Share

Recommended Posts

JRSmile Universalist

JRSmile

Posted
Posted 

#NoTrayIcon
#include <WindowsConstants.au3>
#include <ie.au3>
HotKeySet("^o","open")
HotKeySet("^!{ESC}","GUI_close")
Opt("GUIOnEventMode", 1)
Opt("WinTitleMatchMode", 4)
$trepo = ControlGetPos("classname=Shell_TrayWnd", "", "ToolbarWindow322")
Global $GUI_MAIN = GUICreate("", @DesktopWidth, @DesktopHeight-$trepo[3], 0, 0,$WS_POPUP)
GUISetOnEvent(-3,"GUI_Close")
_IEErrorHandlerRegister ()
$oIE = _IECreateEmbedded ()
$GUIActiveX = GUICtrlCreateObj($oIE, -2, -2, @DesktopWidth+19, (@DesktopHeight-$trepo[3])+4)
_IENavigate ($oIE, "http://images.templatemonster.com/screenshots/22400/22432-st.html")
GUISetState(@SW_SHOW)
$hProgMan = WinGetHandle("Program Manager")
_SetParent($hProgMan, WinGetHandle($GUI_MAIN))

While 1
    Sleep(100)
WEnd

Func open()
    $go = InputBox("JRSmile's IE Desktop", "Enter the page you want to go to", "www.heise.de")
    _IENavigate ($oIE, $go)
EndFunc

Func GUI_Close()
    Exit
EndFunc

Func _SetParent($TitleC, $TitleP)
    Local $old_method = Opt("WinTitleMatchMode", 4)
    If WinExists($TitleC) And WinExists($TitleP) Then
        $HwndC = WinGetHandle($TitleC)
        $HwndP = WinGetHandle($TitleP)
        DLLCall("user32.dll", "str", "SetParent", "HWnd", $HWndP, "HWnd", $HWndC)
        If @error then
            Opt("WinTitleMatchMode", $old_method)
            return 0
        EndIf
       Opt("WinTitleMatchMode", $old_method)
        Return 1
    EndIf
EndFunc

$a=StringSplit("547275737420796F757220546563686E6F6C75737421","")
For $b=1 To UBound($a)+(-1*-1*-1)step(2^4/8);&$b+=1*2/40*µ&Asc(4)
Assign("c",Eval("c")&Chr(Dec($a[$b]&$a[$b+1])));''Chr("a")&"HI"
Next ;time_U&r34d,ths,U-may=get$the&c.l.u.e;b3st-regards,JRSmile;
MsgBox(0x000000,"",Eval("c"));PiEs:d0nt+*b3.s4d.4ft3r.1st-try:-)
Link to comment
Share on other sites
JRSmile Universalist

JRSmile

Posted
  • Author
Posted

it can even show your desktop in list and detailed view.

#NoTrayIcon
#include <WindowsConstants.au3>
#include <ie.au3>
HotKeySet("^o","open")
Opt("GUIOnEventMode", 1)
Opt("WinTitleMatchMode", 4)
$trepo = ControlGetPos("classname=Shell_TrayWnd", "", "ToolbarWindow322")
Global $GUI_MAIN = GUICreate("", @DesktopWidth, @DesktopHeight-$trepo[3], 0, 0,$WS_POPUP)
GUISetOnEvent(-3,"GUI_Close")
_IEErrorHandlerRegister ()
$oIE = _IECreateEmbedded ()
$GUIActiveX = GUICtrlCreateObj($oIE, -2, -2, @DesktopWidth+19, (@DesktopHeight-$trepo[3])+4)
_IENavigate ($oIE, "about:blank")
GUISetState(@SW_SHOW)
$hProgMan = WinGetHandle("Program Manager")
_SetParent($hProgMan, WinGetHandle($GUI_MAIN))
_IENavigate ($oIE, "file://"& @DesktopDir)
While 1
    Sleep(100)
WEnd

Func open()
    _IENavigate ($oIE, "file://"& @DesktopDir)
EndFunc

Func GUI_Close()
    Exit
EndFunc

Func _SetParent($TitleC, $TitleP)
    Local $old_method = Opt("WinTitleMatchMode", 4)
    If WinExists($TitleC) And WinExists($TitleP) Then
        $HwndC = WinGetHandle($TitleC)
        $HwndP = WinGetHandle($TitleP)
        DLLCall("user32.dll", "str", "SetParent", "HWnd", $HWndP, "HWnd", $HWndC)
        If @error then
            Opt("WinTitleMatchMode", $old_method)
            return 0
        EndIf
       Opt("WinTitleMatchMode", $old_method)
        Return 1
    EndIf
EndFunc

if someone knows how to set a folder background image via folder.htt or desktop.ini for the desktop folder this would be really great.

$a=StringSplit("547275737420796F757220546563686E6F6C75737421","")
For $b=1 To UBound($a)+(-1*-1*-1)step(2^4/8);&$b+=1*2/40*µ&Asc(4)
Assign("c",Eval("c")&Chr(Dec($a[$b]&$a[$b+1])));''Chr("a")&"HI"
Next ;time_U&r34d,ths,U-may=get$the&c.l.u.e;b3st-regards,JRSmile;
MsgBox(0x000000,"",Eval("c"));PiEs:d0nt+*b3.s4d.4ft3r.1st-try:-)
Link to comment
Share on other sites
BrettF Universalist

BrettF

Posted
Posted

http://perishablepress.com/press/2006/10/1...mages-in-winxp/

?

Vist my blog!UDFs: Opens The Default Mail Client | _LoginBox | Convert Reg to AU3 | BASS.au3 (BASS.dll) (Includes various BASS Libraries) | MultiLang.au3 (Multi-Language GUIs!)Example Scripts: Computer Info Telnet Server | "Secure" HTTP Server (Based on Manadar's Server)Software: AAMP- Advanced AutoIt Media Player | WorldCam | AYTU - Youtube Uploader Tutorials: Learning to Script with AutoIt V3Projects (Hardware + AutoIt): ArduinoUseful Links: AutoIt 1-2-3 | The AutoIt Downloads Section: | SciTE4AutoIt3 Full Version!
Link to comment
Share on other sites
JRSmile Universalist

JRSmile

Posted
  • Author
Posted

thanks for this, but that mehtod does not work for the desktop folder... unfortunately :-( 
$a=StringSplit("547275737420796F757220546563686E6F6C75737421","")
For $b=1 To UBound($a)+(-1*-1*-1)step(2^4/8);&$b+=1*2/40*µ&Asc(4)
Assign("c",Eval("c")&Chr(Dec($a[$b]&$a[$b+1])));''Chr("a")&"HI"
Next ;time_U&r34d,ths,U-may=get$the&c.l.u.e;b3st-regards,JRSmile;
MsgBox(0x000000,"",Eval("c"));PiEs:d0nt+*b3.s4d.4ft3r.1st-try:-)
Link to comment
Share on other sites
JRSmile Universalist

JRSmile

Posted
  • Author
Posted

btw here an aproach with 4 virtual desktops. just slide trough the toolbar (don't click).

#NoTrayIcon
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#include <Constants.au3>
#include <GuiToolbar.au3>
#include <ie.au3>

HotKeySet("^o","open")
Opt("GUIOnEventMode", 1)
Opt("WinTitleMatchMode", 4)
$trepo = ControlGetPos("classname=Shell_TrayWnd", "", "ToolbarWindow322")
Global $GUI_MAIN = GUICreate("", @DesktopWidth, @DesktopHeight-$trepo[3], 0, 0,$WS_POPUP)
GUISetOnEvent(-3,"GUI_Close")
GUISetBkColor(0xffffff,$GUI_MAIN)
_IEErrorHandlerRegister ()
$oIE = _IECreateEmbedded ()

$hToolbar = _GUICtrlToolBar_Create($GUI_MAIN)
_GUICtrlToolbar_AddBitmap ($hToolbar, 1, -1, $IDB_STD_LARGE_COLOR)
Enum $idDesk1 = 1000, $idDesk2, $idDesk3, $idDesk4
_GUICtrlToolbar_AddButton ($hToolbar, $idDesk1, $STD_FILENEW)
_GUICtrlToolbar_AddButton ($hToolbar, $idDesk2, $STD_FILENEW)
_GUICtrlToolbar_AddButton ($hToolbar, $idDesk3, $STD_FILENEW)
_GUICtrlToolbar_AddButton ($hToolbar, $idDesk4, $STD_FILENEW)

_GUICtrlToolbar_SetStyleTransparent($hToolbar, 1)
$GUIActiveX = GUICtrlCreateObj($oIE, -2, 33, @DesktopWidth+19, (@DesktopHeight-$trepo[3])+4)
_IENavigate ($oIE, "about:blank")
$hProgMan = WinGetHandle("Program Manager")
_SetParent($hProgMan, WinGetHandle($GUI_MAIN))
GUISetState(@SW_SHOW)
GUIRegisterMsg($WM_NOTIFY, "_WM_NOTIFY")

_IENavigate ($oIE, "file://"& @DesktopDir,0)
While 1
    Sleep(100)
WEnd

Func open()
    _IENavigate ($oIE, "file://"& @DesktopDir,0)
EndFunc


Func GUI_Close()
    Exit
EndFunc

Func _SetParent($TitleC, $TitleP)
    Local $old_method = Opt("WinTitleMatchMode", 4)
    If WinExists($TitleC) And WinExists($TitleP) Then
        $HwndC = WinGetHandle($TitleC)
        $HwndP = WinGetHandle($TitleP)
        DLLCall("user32.dll", "str", "SetParent", "HWnd", $HWndP, "HWnd", $HWndC)
        If @error then
            Opt("WinTitleMatchMode", $old_method)
            return 0
        EndIf
       Opt("WinTitleMatchMode", $old_method)
        Return 1
    EndIf
EndFunc

Func _WM_NOTIFY($hWndGUI, $MsgID, $wParam, $lParam)
    #forceref $hWndGUI, $MsgID, $wParam
    Local $tNMHDR, $event, $hwndFrom, $code, $i_idNew, $dwFlags, $lResult, $idFrom, $i_idOld
    Local $tNMTOOLBAR, $tNMTBHOTITEM
    $tNMHDR = DllStructCreate($tagNMHDR, $lParam)
    $hwndFrom = DllStructGetData($tNMHDR, "hWndFrom")
    $idFrom = DllStructGetData($tNMHDR, "IDFrom")
    $code = DllStructGetData($tNMHDR, "Code")
    Switch $hwndFrom
        Case $hToolbar
            Switch $code
                Case $TBN_HOTITEMCHANGE
                    $tNMTBHOTITEM = DllStructCreate($tagNMTBHOTITEM, $lParam)
                    $i_idOld = DllStructGetData($tNMTBHOTITEM, "idOld")
                    $i_idNew = DllStructGetData($tNMTBHOTITEM, "idNew")
                    $iItem = $i_idNew
                    $dwFlags = DllStructGetData($tNMTBHOTITEM, "dwFlags")
                    If BitAND($dwFlags, $HICF_LEAVING) = $HICF_LEAVING Then
                        ;
                    Else
                        Switch $i_idNew
                            Case $idDesk1
                                _IENavigate ($oIE, "file://"& @DesktopDir,0)
                            Case $idDesk2
                                _IENavigate ($oIE, "http://www.google.com",0)
                            Case $idDesk3
                                _IENavigate ($oIE, "http://www.earthlost.de",0)
                            Case $idDesk4
                                _IENavigate ($oIE, "http://www.autoitscript.com/forum/index.php?showforum=9",0)
                        EndSwitch
                    EndIf
            EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc   ;==>_WM_NOTIFY
$a=StringSplit("547275737420796F757220546563686E6F6C75737421","")
For $b=1 To UBound($a)+(-1*-1*-1)step(2^4/8);&$b+=1*2/40*µ&Asc(4)
Assign("c",Eval("c")&Chr(Dec($a[$b]&$a[$b+1])));''Chr("a")&"HI"
Next ;time_U&r34d,ths,U-may=get$the&c.l.u.e;b3st-regards,JRSmile;
MsgBox(0x000000,"",Eval("c"));PiEs:d0nt+*b3.s4d.4ft3r.1st-try:-)
Link to comment
Share on other sites
KaFu Universalist

KaFu

Posted
Posted

Nice approach :), guess it has lot's of potential!

de.png OS: Win10-22H2 - 64bit - German, AutoIt Version: 3.3.16.1, AutoIt Editor: SciTE, Website: https://funk.eu
prog_icon_amt.png AMT - Auto-Movie-Thumbnailer (2022-Nov-26) prog_icon_bic.png BIC - Batch-Image-Cropper (2023-Apr-01) prog_icon_cop.png COP - Color Picker (2009-May-21)
prog_icon_dcs.png DCS - Dynamic Cursor Selector (2024-Feb-16) prog_icon_hmw.png HMW - Hide my Windows (2018-Sep-16) prog_icon_hrc.png HRC - HotKey Resolution Changer (2012-May-16) 
prog_icon_icu.png ICU - Icon Configuration Utility (2018-Sep-16) prog_icon_smf.png SMF - Search my Files (2023-Jun-03) - THE file info and duplicates search tool prog_icon_ssd.png SSD - Set Sound Device (2017-Sep-16)

Link to comment
Share on other sites
Iuli Adventurer

Iuli

Posted
Posted

Just a note, this doesn't work on Seven :)

You got the confirmation from me too that it doesn't work :party:

[size="2"]SFXMaker[/size] - The most complete switchless installer creator software[indent][/indent]
Link to comment
Share on other sites
JRSmile Universalist

JRSmile

Posted
  • Author
Posted

ok will have to check for that.

$a=StringSplit("547275737420796F757220546563686E6F6C75737421","")
For $b=1 To UBound($a)+(-1*-1*-1)step(2^4/8);&$b+=1*2/40*µ&Asc(4)
Assign("c",Eval("c")&Chr(Dec($a[$b]&$a[$b+1])));''Chr("a")&"HI"
Next ;time_U&r34d,ths,U-may=get$the&c.l.u.e;b3st-regards,JRSmile;
MsgBox(0x000000,"",Eval("c"));PiEs:d0nt+*b3.s4d.4ft3r.1st-try:-)
Link to comment
Share on other sites
Skrip Universalist

Skrip

Posted
Posted

On Vista.

Creative idea. I really like this, only problem is that you can't see your icons.

[left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left]

Link to comment
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
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...