Home Automation Domotica Forum Europe, Bwired Forum

Code: Select all

'--------------------------------------------------------------------------------------------------------------------------------------------------
' Xtreamer integration with Homeseer by bjochems
' version 0.1
' usage: fill in your Xtreamer IP address in main function
' usage: ("main", "stop") in this case the "stop" command will be send to the Xtreamer
' make sure you have enabled the webserver on your Xtreamer
' 
' valid commands: 
' a-b audio down enter FB FF home info left mute pgdn pgup play_pause power 
' repeat return right shufl stop subt subtitle sync_left sync_right up vol_down vol_up 1 2 3 4 5 6 7 8 9 0 
'
' todo: check if command is valid
' todo: test all commands :-)

sub main(command as string)
   dim host = "192.168.1.36"
   doPost(host, command)
end sub

private sub doPost(host as string, command as string)

   ' check if the Xtreamer can be reached
   if (hs.ping(host) = 0) then
      ' hs.URLAction cannot be used because it ALWAYS adds the Expect: 100-continue header which cannot be handled by the Xtreamer
      dim objHTTP = CreateObject("MSXML2.ServerXMLHTTP")   
      dim URL = "http://" + host + "/rc2/rc_action.php"
      
      objHTTP.Open("POST", URL, False)
      objHTTP.setRequestHeader ("Content-Type", "application/x-www-form-urlencoded")
      objHTTP.send(command + "= ")
     
      hs.WriteLog("Event", "Command """ + command + """ send to Xtreamer.")
   else
     hs.WriteLog("Event", "Command """ + command + """ not send to Xtreamer. Check if device is switched on and if host ip is correct.")
   end If
  
end sub