Sign in to follow this  
Followers 0
lafafmentvotre

Winsettrans on all open windows

2 posts in this topic

Hello

Is it possible to do a "winsetrans" for all active windows during the time of my autoit script like.

I see the same when i change the theme of my windows XP.

I test with winsettrans but i want this effect on all windows opened in the computer (relly like change themes on windows) during my gui is open.

Is it possible with autoit ?

Thanks for help and sorry for my bad english

Share this post


Link to post
Share on other sites



Just for giggles:

#include <array.au3>

; List visible windows
Global $avWinList = WinList()
Global $avVisibleList[1] = [0]
For $w = 1 To $avWinList[0][0]
    If BitAND(WinGetState($avWinList[$w][1]), 2) Then _ArrayAdd($avVisibleList, $avWinList[$w][1])
Next
$avVisibleList[0] = UBound($avVisibleList) - 1

HotKeySet("{ESC}", "_Quit")

; Fade them in and out
Global $iFadeStart = 254, $iFadeEnd = 0, $iStep = -10
While 1
    ; Fade all windows in/out
    For $f = $iFadeStart To $iFadeEnd Step $iStep
        For $w = 1 To $avVisibleList[0]
            WinSetTrans($avVisibleList[$w], "", $f)
        Next
    Next
    ; Toggle the fade
    If $iStep = -10 Then
        $iFadeStart = 1
        $iFadeEnd = 255
        $iStep = 10
    Else
        $iFadeStart = 254
        $iFadeEnd = 0
        $iStep = -10
    EndIf
WEnd

Func _Quit()
    For $w = 1 To $avVisibleList[0]
        WinSetTrans($avVisibleList[$w], "", 255)
    Next
    Exit
EndFunc   ;==>_Quit

:D


Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0