|
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
|
