When executing a quick watch from the TV Listing or Grid, the script for the Control Item logs the following error and never executes.
Control Item
Script: ChangeChannel.vbs
Script Function: ChangeChannel
Script Parameters: #chanNum#
Start: 12:00 AM
End: 11:59 PM
Error Log
8/2/2009 8:59:30 PM HSTV Error PPC Event Create: Object variable or With block variable not set.
ChangeChannel.vbs
Any suggestions?
Dan
Control Item
Script: ChangeChannel.vbs
Script Function: ChangeChannel
Script Parameters: #chanNum#
Start: 12:00 AM
End: 11:59 PM
Error Log
8/2/2009 8:59:30 PM HSTV Error PPC Event Create: Object variable or With block variable not set.
ChangeChannel.vbs
PHP Code:
sub ChangeChannel(chanNum)
dim bc4
set bc4 = hs.Plugin("BC4 Plugin")
if bc4 is nothing then
hs.WriteLog "ChangeChannel", "Plug in not found"
Else
select case chanNum
case "1"
bc4.SendBC4IR 1,2,9
case "2"
bc4.SendBC4IR 1,2,10
case "3"
bc4.SendBC4IR 1,2,11
case "4"
bc4.SendBC4IR 1,2,12
case "5"
bc4.SendBC4IR 1,2,13
case "6"
bc4.SendBC4IR 1,2,14
case "7"
bc4.SendBC4IR 1,2,15
case "8"
bc4.SendBC4IR 1,2,16
case "9"
bc4.SendBC4IR 1,2,17
case "0"
bc4.SendBC4IR 1,2,18
end select
end if
set bc4 = nothing
end sub
Dan
Comment