My AccountCart ContentsCheckout
Top » Catalog » Technical Document » Windows 7 Multizone Audio Solution via Homeseer + Bluetooth A2DP
Quick Find
 
Advanced Search
Categories
 Bluetooth Device (1)
 Conventional Wall switch-> (67)
 Engery Monitor (2)
 Gadget (2)
 IP Camera (2)
 iSmart
 LED Dimmer (9)
 Marmitek (11)
 MID
 PLCBUS-> (80)
 RF Wall Switch->
 RFXCOM (7)
 Video Doorphone (1)
 X10(2nd)-> (50)
Manufacturers
Shopping Cart more
0 items
Articles
New Articles (0)
All Articles (22)
Color of Wall Switch (4)
LED Information (2)
PLCBUS Information (4)
Technical Document (12)
Articles by Author
Web Master
Bestsellers
01.PLCBUS One Load Lamp Micro Module ( New Version )
02.PLCBUS Two Load Lamp Micro Module(New Version)
03.16A Heavy Duty Relay
04.PLCBUS One Load Appliance Micro Module
05.PLCBUS Appliance Plug In Module
06.One Load Lamp Micro Module(2 Wire , no need neutral connection)
07.PLCBUS USB Computer Interface
08.Single button Lamp Wall Switch (2 Wire , No neutral connection)
09.PLCBUS Curtain Controller Micro Module(Support Momentary Switch)
10.PLCBUS Curtain Controller Micro Module
Specials more
PLCBUS 2 Load Dimmer DIN Rail Module (New Version)
PLCBUS 2 Load Dimmer DIN Rail Module (New Version)
£102.36
£76.77
Reviews more
Single button Lamp Wall Switch (2 Wire , No neutral connection)
Très facile à mettre en oeuvre et fonctionne parfaitement av ..
5 of 5 Stars!
Information
Shipping & ReturnsShipping & Returns
Payment InformationPayment Information
Privacy PolicyPrivacy Policy
Contact UsContact Us
Languages
Chinese English


Windows 7 Multizone Audio Solution via Homeseer + Bluetooth A2DP by Web Master

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

This article was published on Wednesday 25 November, 2009.
Current Reviews: 0
Write Review
Tell a friend
Tell a friend about this article:  
Products related to this article:
USB Bluetooth Dongle(Broadcom 2490 , Widcomm Driver)
USB Bluetooth Dongle(Broadcom 2490 , Widcomm Driver)

   

Automation-At-Home
 Visa Mastercard Discover American Express eCheck