Nice and... not so useful... command.

[ezzetabi]

A nice way to enjoy the background wallpaper even more.

(I am in good mood)

$level = 200

opt('WinTitleMatchMode',4)

WinSetTrans('classname=Shell_TrayWnd','',$level)

[scriptkitty]

cool, could add a bit of "UP NORTH"'s gui to it

#include <GUIConstants.au3>
Opt("GuiOnEventMode", 1)
Opt("WinTitleMatchMode", 4)
opt('WinTitleMatchMode',4); ezzetabi's was pasted here but didn't need to be


$pig = GUICreate("100%", 200, 20)
GuiSetOnEvent($GUI_EVENT_CLOSE, "quit")
GUISetBkColor (123)
GuiSetState();Display gui

$s = GuiCtrlCreateSlider (0,0,200,20)
GUICtrlSetLimit($s,100,0)
GUICtrlSetData($s,100)

$p = 100
$last = 100

While 1
    Sleep(10)
    $p = GuiRead($s)
    If $last = $p Then
    Else
        WinSetTitle ( "handle=" & $pig , "", $p & "%" )
        WinSetTrans ( "handle=" & $pig , "", 155 + $p ); 155 + $p so the win will never be 0% transparency
        WinSetTrans('classname=Shell_TrayWnd','',155 + $p); ezzetabi's code inserted
        $last = $p
      ;MsgBox(0,"","Changed!"); Debuging
    EndIf
wend


Func quit()
Exit
EndFunc

Edited November 8, 2004 by scriptkitty

[ezzetabi]

Good one Scriptkitty.

Just... why opt('WinTitleMatchMode',4) twice?

[scriptkitty]

oops.

Don't need it twice. I would write it a bit different, but I was mainly showing how one might take a couple nice scripts and combine them for a nice effect. I just pasted your lines into UP NORTH's and changed a variable or two.

[scriptkitty]

One more thing, i added the visability to my little system Tray icon.exe I have.

; icon.au3   
; toggles icons on the desktop on and off
AutoItSetOption("WinTitleMatchMode", 4);2 = Match any substring in the title
If ControlCommand ( "classname=Progman", "", 1,"IsVisible", "")=1 Then
  WinSetTrans('classname=Shell_TrayWnd','',100)
    ControlHide ( "classname=Progman", "", 1) 
Else
  WinSetTrans('classname=Shell_TrayWnd','',255)
ControlShow ( "classname=Progman", "", 1 )
EndIf

Basically I compiled it and put it in the system tray. Lowering the vis on the tray is a nice touch.