Jump to content

Pretty Basic Win Trans pretty awsome though


 Share

Recommended Posts

#include <GUIConstants.au3>
Global $Window
$Form1 = GUICreate("Test", 243, 235, 303, 219)
$ListBox1 = GUICtrlCreateList("", 0, 8, 241, 201)
$Button5 = GUICtrlCreateButton("&OK", 0, 209, 75, 25, 0)
$Button6 = GUICtrlCreateButton("refresh", 80, 209, 75, 25, 0)
$Button7 = GUICtrlCreateButton("&Help", 160, 209, 75, 25, 0)
GUISetState(@SW_SHOW)



While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            WinSetTrans($Window , "", 255)
            Exit
        Case $Button5
        $Window = WinSetTrans(GUICtrlRead($ListBox1) , "" , InputBox("Set Transparency" , "Enter the transparency for your window" & @CRLF & "0 = Invisable" & @CRLF & "255 = Solid"  , 255))
        Case $Button6
            _winget()
            EndSwitch
WEnd


Func _winget()
$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
    GUICtrlSetData($ListBox1 , $var[$i][0])
  EndIf
Next
EndFunc

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

Link to comment
Share on other sites

Great for school work and home but I made it for my house so my family can not snoop my computer if I am currently working on something. I also was going to make it to hide downloads but everytime they hit a new percentage it reshows the download I could always force it to hide in a loop until told other wise.

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...