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
Rahul Rohela

Cool tool........

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  

×