testingtest Posted May 13, 2007 Posted May 13, 2007 expandcollapse popup#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
testingtest Posted May 13, 2007 Author Posted May 13, 2007 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.
er453r Posted May 14, 2007 Posted May 14, 2007 Yeah... I've posted almost the same thing few days ago. Check it out -> http://www.autoitscript.com/forum/index.php?showtopic=45819
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now