Sign in to follow this  
Followers 0
jazo10

Window Transperancy Tool

3 posts in this topic

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



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  
Followers 0