|
|
Guide update, if you are running Vista and TV Pack 2008 you will find that the EPG is populated via the PID Stream from the DVB-S source. To update it you have to watch each channel, i've put together this simple vb script that changes channels every 45 seconds enough time to update the guide.
Yes, it is crude to say the least but will work on a more advanced API perhaps to do this. Simply this script just sends a PGDN key so to run it leave the Live TV on a channel and it will issue 60x PGDN every 45 secs so will take 45mins to complete. Run it at night when you are not watching TV works well. I chose to use PGDN key (Channel Down) so it doesn't matter what channel you leave it on in Live TV as 60 channel changes should be enough to loop through every one, if not just add more of the 2 lines.
------------------------------ Script Start -------------------------------------------
'Create the shell object
Set oShell = CreateObject("WScript.Shell")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
WScript.Sleep 45000
oShell.SendKeys("{PGDN}")
--------------------------------- Script End -----------------------------------------
|
|