Trasparency effect, l'ho gia postato? boh ._.

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
Opt("TrayMenuMode", 1)
$Form1 = GUICreate("TrasparencyEffect!", 341, 88, 393, 163)
$Input1 = GUICtrlCreateInput("255", 25, 20, 41, 21,$ES_NUMBER)
GUICtrlCreateUpdown($Input1)
GUICtrlSetLimit(-1,255,1)
$Label1 = GUICtrlCreateLabel("Imposta la trasparenza delle finestre in background", 75, 25, 243, 17)
$start = GUICtrlCreateButton("Start!", 105, 55, 121, 26, $WS_GROUP)
$state = False
$exit = TrayCreateItem("Esci")
GUISetState(@SW_SHOW)

While 1
       Sleep(25)
       If GUICtrlRead($Input1) > 255 Then
               GUICtrlSetData($Input1,255)
       EndIf
       Switch TrayGetMsg()
               Case $exit
                       Exit
               Case $TRAY_EVENT_PRIMARYDOUBLE
                       GUISetState()
       EndSwitch
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       GUICtrlSetData($start,"Start!")
                       $state = False
                       AdlibUnRegister("StartTrasp")
                       _SetAllTrasp(255)
                       Exit
               Case -4
                       GUISetState(@SW_HIDE)
               Case $start
                       If $state =False Then
                               GUICtrlSetData($start,"Stop")
                               $state = True
                               _SetAllTrasp(GUICtrlRead($Input1))
                               AdlibRegister("StartTrasp",1000)
                       ElseIf $state = True Then
                               GUICtrlSetData($start,"Start!")
                               $state = False
                               AdlibUnRegister("StartTrasp")
                               _SetAllTrasp(255)
                       EndIf
       EndSwitch
WEnd

Func _SetAllTrasp($trasp)
       $list = WinList()
       For $i = 1 To $list[0][0]
               $state = WinGetState($list[$i][0])
               If $list[$i][1] = WinGetHandle("[CLASS:shell_TrayWnd]") Or BitAND($state , 8) Or $list[$i][1] = WinGetHandle("[CLASS:Progman]") Or $list[$i][1] = WinGetHandle("[CLASS:ROCKETDOCK]") Then
                       ContinueLoop
               ElseIf BitAND($state , 2)  Then
                       WinSetTrans($list[$i][0],"",$trasp)
               Else
                       ContinueLoop
               EndIf
       Next
EndFunc

Func StartTrasp()
       _SetAllTrasp(GUICtrlRead($Input1))
       WinSetTrans("[ACTIVE]","",255)
EndFunc