Jump to content

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


Recommended Posts

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.

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.

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.

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
  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...