Announcement

Collapse
No announcement yet.

Low cost multi zone wireless audio distribute solution

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

    Low cost multi zone wireless audio distribute solution

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

    #2
    This looks really good!

    I fancy giving this a go. One quick question, can you send audio to more than one set of speakers at a time?

    Comment


      #3
      it looks like with the solution that Windows can only send audio to one device at a time. Does anyone know a way where we can send the audio output to all devices in Win XP?

      Comment

      Working...
      X