TivoWeb Users:- Simple displaytext script

[Mark Ward]

I've only had HS for 7 days (day 7 of trial) so apologies if this can be done in a more simple way, but I wanted to display a message on my TV via TivoWeb when a motion detector is activated in my garden.

UK only has series 2 Tivo's so I have no idea whether it works for other types.

Sub Main(msg) 
      
      svr="http://192.168.0.1:80/"  'URL(:port) to your TivoWEB Server
      tim=10						 'Length of time (secs) to display message on TV
      
      dim msgtmp
      set msgtmp = hs.CreateStringClass
      msgtmp.Add "displaytext?text="
      msgtmp.Add msg
      msgtmp.Add " &delay="
     msgtmp.Add tim
      
      hs.GetURL svr,msgtmp, False, 80
      
      End Sub

This uses the Tivoweb DisplayText module (installed on the Tivo), but I've yet to find a TivoWeb user who doesn't have that installed already. You'll also need to edit the URL to that of your Tivoweb server and add:- ("main","MOTION DETECTOR ACTIVATED") to the Event's Optional Parameters to get the message to display. I did it this way so that the same script can be used for multiple events with a custom message for each.


I also created another to make sure the kids aren't watching TV too late...

Sub Main
      'Simple script for people who use TiVoWeb's displaytext function to enable
      'messages to appear on the TV depending on the status of a specified module
      
      svr="http://192.168.0.1:80/"  'URL(:port) to your TivoWEB Server
      tim=10						 'Length of time (secs) to display message on TV
      mes1 = "Kid's TV is Turned Off" 'Message if Device was off
      mes2 = "Kid's TV is Turned On"  'Message if Device was on
      dvc = "A4"				 'Module address being monitored
      
      if hs.IsOff(dvc) then
      	 msg=mes1
      else
      	 msg=mes2
      end if
      
      'Now build the URL line syntax
      dim msgtmp
      set msgtmp = hs.CreateStringClass
      msgtmp.Add "displaytext?text="
      msgtmp.Add msg
      msgtmp.Add " &delay="
      msgtmp.Add tim
      
      hs.GetURL svr,msgtmp, False, 80
      
      End Sub

Hope these are of use to someone,

Mark.