zone97 Posted December 3, 2008 Posted December 3, 2008 (edited) If no one has written one how hard would it be?Update: I found thishttp://www.wn-freeware.de.vu/looks just like my other OSD for my laptop. Edited December 3, 2008 by zone97 Spoiler WinSizer 2.1 (01/04/2017) - Download - [ Windows Layout Manager ]Folder+Program (12/23/2016) - Download - [ USB Shortcut Creator ]
Calistoga Posted December 3, 2008 Posted December 3, 2008 (edited) Something like this?Edit:This one is nice too, XP only - the other one is for Vista. Edited December 3, 2008 by Encoded
youknowwho4eva Posted December 3, 2008 Posted December 3, 2008 If you do a search here in example scripts, there was one I saw recently. But if you look at the top it says this is not a general support forum. For that you want to go to general questions. Giggity
FaT3oYCG Posted December 3, 2008 Posted December 3, 2008 i made a simple one not long ago aswell ... expandcollapse popup#NoTrayIcon HotKeySet("{NUMPADADD}", "Volume_Add") HotKeySet("{NUMPADSUB}", "Volume_Sub") HotKeySet("^e", "_Quit") func Volume_Prog_Bar() $Volume_Bar = "" for $i = 1 to 10 step 1 if Volume_Get() / 10 >= $i Then $Volume_Bar &= "|" Else $Volume_Bar &= "-" endif next $Volume_Display = Volume_Get() & "% " & $Volume_Bar Return $Volume_Display EndFunc func Volume_Add() if Volume_Get() < 100 then SoundSetWaveVolume(Volume_Get() + 10) ToolTip(Volume_Prog_Bar()) Sleep(1000) ToolTip('') EndIf EndFunc func Volume_Sub() if Volume_Get() > 0 then SoundSetWaveVolume(Volume_Get() - 10) ToolTip(Volume_Prog_Bar()) Sleep(1000) ToolTip('') EndIf EndFunc Func Volume_Get() Local $WaveVol = -1, $p, $ret Const $MMSYSERR_NOERROR = 0 $p = DllStructCreate ("dword") If @error Then SetError(2) Return -2 EndIf $ret = DllCall("winmm.dll", "long", "waveOutGetVolume", "long", -1, "long", DllStructGetPtr ($p)) If ($ret[0] == $MMSYSERR_NOERROR) Then $WaveVol = Round(Dec(StringRight(Hex(DllStructGetData ($p, 1), 8), 4)) / 0xFFFF * 100) Else SetError(1) EndIf $Struct=0 Return $WaveVol EndFunc Func _Quit() MsgBox(0, "Exit", "CVC Closed") Exit EndFunc While 1 Sleep(100) WEnd Interpreters have great power!Although they live in the shadow of compiled programming languages an interpreter can do anything that a compiled language can do, you just have to code it right.
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