Low cost multi zone wireless audio distribute solution

[Kevin Lo]

After I spend few days for looking for low cost solution. Now I can make it less than GBP 50.00

Situtation :
Windows 7 + Homeseer locate at Living Room , connect to Master Speaker via on-board sound card.
Stero Speaker locate at Bedroom

Goal
Play music to specific room and play TTS to specific room

What you want (Software)?
Windows 7 , Homeseer

Quick Sound Switch program for 2000 and XP
http://www.quicksoundswitch.toflo.de/

Vista Audio Changer for Vista and Windows 7
http://www.vistaaudiochanger.com/About.aspx

What you want (Hardware) ?
USB Bluetooth Dongle that support A2DP profile
http://x10-hk.com/store/product_info...roducts_id=221

Bluetooth Audio Gateway that support A2DP profile
http://x10-hk.com/store/product_info...roducts_id=220

What is next ?
1) Connect the Audio Gateway to bedroom's stero speaker
2) Plug the USB Bluetooth Dongle on Windows 7
3) Install the Widcomm Driver

4) Pair Bluetooth Audio Gateway

5) After that , you will have another sound card

6) Then now , make a testing first , if you change the "Default Device" to Bluetooth Speaker , then all the sound will play to Audio gateway ( Bedroom Speaker )
7) For the Homeseer Speaker Client, create two instance at the startup script.

if not hs.IsApplicationRunning("Speaker") then
hs.Launch hs.GetAppPath & "Speaker.exe","living","",0
hs.Launch hs.GetAppPath & "Speaker.exe","bedroom","",0

8) Setup each speaker client to different Audio Device


9) Then you can create a event for run Vista Audio Changer for switch between default audio device.
(In my Windows 7 setup , don't know why , Vista Audio Changer didn't work , so I write a VB script to do it. )

Bluetooth.vbs
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "%windir%system32control.exe /name Microsoft.Sound"
WScript.Sleep(1000)
WshShell.SendKeys "{DOWN}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{ENTER}"
WScript.Sleep(1000)
WshShell.SendKeys "{ESC}"
WshShell.SendKeys "{ESC}"
Set WshShell = Nothing

Realtek.vbs
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "%windir%system32control.exe /name Microsoft.Sound"
WScript.Sleep(1000)
WshShell.SendKeys "{DOWN}"
WshShell.SendKeys "{DOWN}"
WshShell.SendKeys "{DOWN}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{ENTER}"
WScript.Sleep(1000)
WshShell.SendKeys "{ESC}"
WshShell.SendKeys "{ESC}"
Set WshShell = Nothing

For XP , you can also use VB Script to change default audio device.

BluetoothXP.vbs
Set Shell = CreateObject("Shell.Application")
Shell.ControlPanelItem cstr("mmsys.cpl,,2")
Set Shell = Nothing

Set WshShell = CreateObject("WScript.Shell")
WScript.Sleep(1000)
WshShell.SendKeys "N"
WshShell.SendKeys "{TAB 11}"
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "{ESC}"
Set WshShell = Nothing

RealtekXP.vbs
Set Shell = CreateObject("Shell.Application")
Shell.ControlPanelItem cstr("mmsys.cpl,,2")
Set Shell = Nothing

Set WshShell = CreateObject("WScript.Shell")
WScript.Sleep(1000)
WshShell.SendKeys "R"
WshShell.SendKeys "{TAB 11}"
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "{ESC}"
Set WshShell = Nothing

That's All !!