regolatore trasparenza finestre

#include <GuiConstants.au3>


$hGUI1 = GUICreate("transparency regulator", 400, 130)
$iSlider = GUICtrlCreateSlider(10, 20, 380, 40)
GUICtrlSetLimit($iSlider, 255, 0)
GUICtrlSetData ($iSlider, 255)
$input = GUICtrlCreateInput("",100,70,200,20)
GUICtrlCreateLabel("transparency regulator by erma96",200,110)
GUISetState()
$verifica =GUICtrlRead($iSlider)


While 1
       
 $number = GUICtrlRead($iSlider)
 $title = GUICtrlRead($input)
       
       if $verifica = $number Then

       Else
             Opt("WinTitleMatchMode", 2)
                         WinSetTrans($title, "", $number)
                         $verifica = $number
                         $verifica2 = $title                          
       EndIf
 
 $verifica = $number
 
       $nMsg = GUIGetMsg()
       Switch $nMsg
               
       Case $GUI_EVENT_CLOSE
                       Exit
                       
               EndSwitch
               
WEnd