ezzetabi Posted November 8, 2004 Share Posted November 8, 2004 A nice way to enjoy the background wallpaper even more. (I am in good mood) $level = 200 opt('WinTitleMatchMode',4) WinSetTrans('classname=Shell_TrayWnd','',$level) Link to comment Share on other sites More sharing options...
scriptkitty Posted November 8, 2004 Share Posted November 8, 2004 (edited) cool, could add a bit of "UP NORTH"'s gui to it #include <GUIConstants.au3> Opt("GuiOnEventMode", 1) Opt("WinTitleMatchMode", 4) opt('WinTitleMatchMode',4); ezzetabi's was pasted here but didn't need to be $pig = GUICreate("100%", 200, 20) GuiSetOnEvent($GUI_EVENT_CLOSE, "quit") GUISetBkColor (123) GuiSetState();Display gui $s = GuiCtrlCreateSlider (0,0,200,20) GUICtrlSetLimit($s,100,0) GUICtrlSetData($s,100) $p = 100 $last = 100 While 1 Sleep(10) $p = GuiRead($s) If $last = $p Then Else WinSetTitle ( "handle=" & $pig , "", $p & "%" ) WinSetTrans ( "handle=" & $pig , "", 155 + $p ); 155 + $p so the win will never be 0% transparency WinSetTrans('classname=Shell_TrayWnd','',155 + $p); ezzetabi's code inserted $last = $p ;MsgBox(0,"","Changed!"); Debuging EndIf wend Func quit() Exit EndFunc Edited November 8, 2004 by scriptkitty AutoIt3, the MACGYVER Pocket Knife for computers. Link to comment Share on other sites More sharing options...
ezzetabi Posted November 8, 2004 Author Share Posted November 8, 2004 Good one Scriptkitty. Just... why opt('WinTitleMatchMode',4) twice? Link to comment Share on other sites More sharing options...
scriptkitty Posted November 8, 2004 Share Posted November 8, 2004 oops. Don't need it twice. I would write it a bit different, but I was mainly showing how one might take a couple nice scripts and combine them for a nice effect. I just pasted your lines into UP NORTH's and changed a variable or two. AutoIt3, the MACGYVER Pocket Knife for computers. Link to comment Share on other sites More sharing options...
scriptkitty Posted November 8, 2004 Share Posted November 8, 2004 One more thing, i added the visability to my little system Tray icon.exe I have. ; icon.au3 ; toggles icons on the desktop on and off AutoItSetOption("WinTitleMatchMode", 4);2 = Match any substring in the title If ControlCommand ( "classname=Progman", "", 1,"IsVisible", "")=1 Then WinSetTrans('classname=Shell_TrayWnd','',100) ControlHide ( "classname=Progman", "", 1) Else WinSetTrans('classname=Shell_TrayWnd','',255) ControlShow ( "classname=Progman", "", 1 ) EndIf Basically I compiled it and put it in the system tray. Lowering the vis on the tray is a nice touch. AutoIt3, the MACGYVER Pocket Knife for computers. Link to comment Share on other sites More sharing options...
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