Page 1 sur 1

[..] Rendre transparente toutes les applications.

Posté : ven. 31 oct. 2008 23:15
par Yoyo86220
Bonsoir,

Je sais que avec cette commande:

Code : Tout sélectionner

WinSetTrans("Notepad", "", 170)
on peut jouer sur l'opacité d'une fenêtre... je voudrai me faire un petit script qui me permettrai en appuyant sur une combinaison de touche toute mes application ouverte transparente...
Pour la combinaison de touches il n'y a aucun problème... c'est juste pour rendre toute les fenêtre semi-transparente qui est plus difficile...

Merci de m'aider

Re: [..] Rendre transparente toutes les applications.

Posté : ven. 31 oct. 2008 23:32
par Tlem
Utilisez WinList pour créer la liste des fenêtres en cours.
Ensuite une simple boucle du tableau et le tour est joué.

Re: [..] Rendre transparente toutes les applications.

Posté : sam. 01 nov. 2008 11:12
par timmalos

Code : Tout sélectionner

$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
    WinSetTrans($var[$i][0], "", 170)
  EndIf
Next

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

EndFunc
 

Re: [..] Rendre transparente toutes les applications.

Posté : sam. 01 nov. 2008 11:49
par Tlem
Tu est en forme Tim.
Tu ne laisse même plus le temps aux utilisateurs de chercher un peu. :roll: