HotKeySet('^{F1}', "_TransPlus")
HotKeySet('^{F2}', "_TransMoins")
HotKeySet('^{F3}', "_Stop")

Dim $fenActive = Null

Dim $transparence = 0

While True
WEnd

Func _TransPlus()
    $transparence = $tansparence + 10
    $fenActive = WinGetTitle("[ACTIVE]")
    WinSetTrans($fenActive, '', $transparence)
EndFunc

Func _TransMoins()
    $transparence = $tansparence - 10
    $fenActive = WinGetTitle("[ACTIVE]")
    WinSetTrans($fenActive, '', $transparence)
EndFunc

Func _Stop()
    Exit
EndFunc