Jump to content
Sign in to follow this  
jazo10

Window Transperancy Tool

Recommended Posts

jazo10

here is a tool to set the transperancy of a window easy!

when running press ALT+CTRL+SHIFT+1

HotKeySet("+!^1", "transhk")
HotKeySet("+!^e", "_exit")

While 1
    Sleep(100)
WEnd

Func transhk()
    $var = WinList()
    $set = 0
    For $i = 1 To $var[0][0]
    ; Only display visble windows that have a title
        If $var[$i][0] <> "" And WinActive($var[$i][1]) Then
            $windowname = $var [$i][0]
        EndIf
    Next
    
    $mouse = MouseGetPos()
    GUICreate("mou",35, 100, $mouse[0], $mouse[1],0x80000000)
    $slider=GUICtrlCreateSlider ( 0, 0 ,35 , 100,0x0002)
    GUICtrlSetLimit (-1,255,0 )
    guictrlsetdata(-1,255)
    GUISetState(@SW_SHOW)
While 1
        if WinActive("mou") <> 1 Then
        GUIDelete()
        ExitLoop
        EndIf

    $per = GUICtrlRead($slider)
    if $set <> $per then 
        WinSetTrans($windowname, "", $per)
        $set = $per
        Endif
        Sleep(100)
    WEnd
EndFunc  ;==>transhk



Func _exit()
    Exit
EndFunc  ;==>_exit

have fun! :)

Please Post your comments :evil:

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  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.