vba to increase speaker volume

[pujo]

Hey gang,
Just wondering if anyone has ever ran across any vba that will turn on the speaker volume, and set the level to max?

Thanks,
PuJo

 

[pujo]

Anyone?

 

[pbornemeier]

A partial answer:

Option Explicit

'Mostly from
'http://www.mrexcel.com/forum/showthread.php?p=2291517
'http://www.pcreview.co.uk/forums/api-commands-turn-volume-control-t1008148.html
'http://support.microsoft.com/default.aspx?scid=kb;en-us;178456

Private Declare Sub keybd_event Lib "user32" ( _
   ByVal bVk As Byte, ByVal bScan As Byte, _
   ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
   
    Const VK_VOLUME_MUTE = &HAD 'Windows 2000/XP: Volume Mute key
    Const VK_VOLUME_DOWN = &HAE 'Windows 2000/XP: Volume Down key
    Const VK_VOLUME_UP = &HAF 'Windows 2000/XP: Volume Up key
   

Sub VolUp()
'-- Turn volumn up --
   keybd_event VK_VOLUME_UP, 0, 1, 0
   keybd_event VK_VOLUME_UP, 0, 3, 0
End Sub

Sub VolDown()
'-- Turn volumn down --
   keybd_event VK_VOLUME_DOWN, 0, 1, 0
   keybd_event VK_VOLUME_DOWN, 0, 3, 0
End Sub

Sub VolToggle()
'-- Toggle mute on / off --
   keybd_event VK_VOLUME_MUTE, 0, 1, 0
End Sub

The second link contains (long) code to determine the state of the mute button rather than just toggling it.

 

[pujo]

Thanks,
This is a great starting point for my project, (prank!)

PuJo

Happy Holidays!

 

[Rick Rothstein]

I'm afraid it appears not to be for the faint of heart...

http://www.ex-designz.net/apidetail.asp?api_id=519

 

[pbornemeier]

Many pranks here:
http://www.mrexcel.com/forum/showthread.php?t=27058

 

[pujo]

Thanks Phil,
I am feeling a little devious right now!

 

[Milu]

Waw... it is realy helpful. but i have one question regarding same script.


May i know how to do this same in .vbs file? Please help to get resolve this. It is very helpful for me.
I am searching answer from last 26 days.

 

[JimSnyder]

The thread is three years old, but more importantly, you won't find many VBS experts here. It would be better to try a VBS list instead of and Excel list.

 

[Rick Rothstein]

The thread is three years old, but more importantly, you won't find many VBS experts here. It would be better to try a VBS list instead of and Excel list.

The main thread is three years old, as you mentioned, but you told that to someone who posted their question over six months ago.