GrungeRocker Posted May 15, 2005 Share Posted May 15, 2005 (edited) I made this little script.... here is the code: expandcollapse popupOpt("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 2kTaskleiste.rar Edited May 16, 2005 by Analritter [font="Verdana"]In work:[list=1][*]InstallIt[*]New version of SpaceWar[/list] [/font] Link to comment Share on other sites More sharing options...
freanir Posted May 16, 2005 Share Posted May 16, 2005 (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 May 16, 2005 by freanir freanir Link to comment Share on other sites More sharing options...
GrungeRocker Posted May 16, 2005 Author Share Posted May 16, 2005 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] Link to comment Share on other sites More sharing options...
freanir Posted May 16, 2005 Share Posted May 16, 2005 No problem. I'm from Germany, too, so I know the problem. freanir 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