For those with Yamaha speakers that do not respond to volume adjustments from this plugin I am contributing this code that will enable you to adjust it via a vb script:
Dim i As Long
Dim speakerArray(2) as String
`Enter speajer addresses below:
speakerArray(0) = "x.x.x.1"
speakerArray(1) = "x.x.x.2"
speakerArray(2) = "x.x.x.3"
'Night time volume is 27
'Daytime volume is 50
dim s
dim website
For i = 0 To ubound(speakerArray)
website = "http://" + speakerArray(i) + "/YamahaExtendedControl/v1/main/setVolume?volume=27"
s = hs.URLAction(website, "GET", "", "")
hs.WriteLog("Info", website)
Next
hs.speak("Volume at 27 Volume at 27", true, "MasterBedroon")
Dim i As Long
Dim speakerArray(2) as String
`Enter speajer addresses below:
speakerArray(0) = "x.x.x.1"
speakerArray(1) = "x.x.x.2"
speakerArray(2) = "x.x.x.3"
'Night time volume is 27
'Daytime volume is 50
dim s
dim website
For i = 0 To ubound(speakerArray)
website = "http://" + speakerArray(i) + "/YamahaExtendedControl/v1/main/setVolume?volume=27"
s = hs.URLAction(website, "GET", "", "")
hs.WriteLog("Info", website)
Next
hs.speak("Volume at 27 Volume at 27", true, "MasterBedroon")
Comment