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

Dim $fenActive = Null

Dim $transparence = 255

While True
WEnd

Func _TransPlus()
    $transparence = $tansparence + 10

    If $fenActive <> Null Then
        WinSetTrans($fenActive, '', $transparence)
    EndIf
EndFunc

Func _TransMoins()
    $transparence = $tansparence - 10

    If $fenActive <> Null Then
        WinSetTrans($fenActive, '', $transparence)
    EndIf
EndFunc

Func _Selectionner()
    $fenActive = WinGetTitle("[ACTIVE]")
EndFunc

Func _Stop()
    Exit
EndFunc