Sign in to follow this  
Followers 0
GrungeRocker

Cool Traywindow

4 posts in this topic

#1 ·  Posted (edited)

I made this little script....

here is the code:

Opt("WinTitleMatchMode", 4)
Opt("TrayIconHide", 1)   


#include <GuiConstants.au3>



GuiCreate("Stylische Taskleiste...", 392, 100,(@DesktopWidth-392)/2, (@DesktopHeight-315)/2 )
GUISetState(@sw_show)


$Label_1 = GuiCtrlCreateLabel("Stylische Taskleiste..." & @crlf & "Please wait 5 seconds!" & @crlf & "Made by Artus Krieger"  & @crlf &  "INFO: es kann mit escape alles rückgängig gemacht werden....", 10, 10, 380, 250)
$zeit = 6
Do
    GUICtrlDelete($label_1)
    $zeit = $zeit - 1
    $Label_1 = GuiCtrlCreateLabel("Stylische Taskleiste..." & @crlf & "Please wait " & $zeit & " seconds!" & @crlf & "Made by Artus Krieger"  & @crlf &  "Hotkeys:" & @crlf & "1. [Escape]  =  Exit" & @crlf & "2. [Ctrl]+[Alt]+C  =  Config", 10, 10, 380, 250)
    sleep(1000)
until $zeit = 0
$sichtbar=255
$loop = 999999
global $max = 45

GUISetState(@SW_HIDE)
HotKeySet("^!c", "config")
HotKeySet( "{esc}", "exit11")

do
            $sichtbar = $sichtbar - 5
            sleep(35)
            WinSetTrans("classname=Shell_TrayWnd", "", $sichtbar)
            if $sichtbar <= $max Then
                Do
                    $sichtbar = $sichtbar + 5
                    sleep (35)
                    WinSetTrans("classname=Shell_TrayWnd", "", $sichtbar)
                until $sichtbar = 255
            EndIf
        until $loop = 0

func exit11()
    WinSetTrans("classname=Shell_TrayWnd", "", 255)
    Exit
endfunc



;;;;;;FUNCTIONS;;;;;;

func config()

#include <GuiConstants.au3>



GuiCreate("Config", 330, 112,(@DesktopWidth-330)/2, (@DesktopHeight-112)/2 )

$Slider = GuiCtrlCreateSlider(0, 40, 320, 40)
GUICtrlSetLimit ( $slider, 255 , 0)
GUICtrlSetData($slider,$max)
$Label_2 = GuiCtrlCreateLabel("Config the Transparency of the Traywindow:", 10, 10, 320, 30)
$Button_3 = GuiCtrlCreateButton("OK", 100, 80, 120, 30)
$test1 = 0
$loop2 = 0
$msg = GUIGetMsg()
GuiSetState()
Do
    $msg = GUIGetMsg()
    $test1 = GUICtrlRead($slider)
    If $max <> $test1 then
        winsettrans("Config", "", $max)
        $max = $test1
    endif
until $msg = $button_3
$max = GUICtrlRead($slider)
GUISetState(@sw_hide)
endfunc

you can stop the script with escape and change the visibility of the taskbar with alt+ctrl+c

i hope you like this little script

ps: sry but this works only with xp and 2k

Taskleiste.rar

Edited by Analritter

[font="Verdana"]In work:[list=1][*]InstallIt[*]New version of SpaceWar[/list] [/font]

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

Nice script. : The Taskbar looks really cool when you use the script, although it`s pretty interfering when you actually want to work with Windows. :(

BTW: It`s called Taskbar not Traywindow. :(

Edited by freanir

freanir

Share this post


Link to post
Share on other sites

ok..

thx!

well im living in germany so i dont know the english words...


[font="Verdana"]In work:[list=1][*]InstallIt[*]New version of SpaceWar[/list] [/font]

Share this post


Link to post
Share on other sites

No problem. I'm from Germany, too, so I know the problem. :(


freanir

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  
Followers 0