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.php?cPath=71&products_id=221
Bluetooth Audio Gateway that support A2DP profile http://x10-hk.com/store/product_info.php?cPath=71&products_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
|