fenêtre transparente

[ac1308]

Voici le script:

Script:

Local $var = WinList()

For $i = 1 To $var[0][0]
; Only display visble windows that have a title
If $var[$i][0] <> "" And IsVisible($var[$i][1]) Then
MsgBox(0, "Details", "Title=" & $var[$i][0] & @LF & "Handle=" & $var[$i][1]) ;MSGBOX
WinSetTrans("" & $var[$i][0] ,"",1) ; Be transparent ! 
EndIf
Next

Func IsVisible($handle)
If BitAND(WinGetState($handle), 2) Then
Return 1
Else
Return 0
EndIf

EndFunc ;==> Is Visible e.e

Modifiez la ligne

WinSetTrans("" & $var[$i][0] ,"",1) ;

en

WinSetTrans("" & $var[$i][0] ,"",600) ;

pour un retour à la normale