Sign in to follow this  
Followers 0
ezzetabi

Nice and... not so useful... command.

5 posts in this topic

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)

Share this post


Link to post
Share on other sites



#2 ·  Posted (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 by scriptkitty

AutoIt3, the MACGYVER Pocket Knife for computers.

Share this post


Link to post
Share on other sites

Good one Scriptkitty.

Just... why opt('WinTitleMatchMode',4) twice?

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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.

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