zone97 Posted December 3, 2008 Share 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 ] Link to comment Share on other sites More sharing options...
Calistoga Posted December 3, 2008 Share 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 Link to comment Share on other sites More sharing options...
youknowwho4eva Posted December 3, 2008 Share 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 Link to comment Share on other sites More sharing options...
FaT3oYCG Posted December 3, 2008 Share 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. 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