Geekzone: technology news, blogs, forums
Guest
Welcome Guest.
You haven't logged in yet. If you don't have an account you can register now.


taylorit

73 posts

Master Geek


#26752 2-Oct-2008 09:50
Send private message

Issues and discussions with setting up your HTPC using ProgDVB and DVBSBridge with Vista MCE etc…

Create new topic
taylorit

73 posts

Master Geek


  #168747 3-Oct-2008 08:23
Send private message

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 -----------------------------------------


Create new topic








Geekzone Live »

Try automatic live updates from Geekzone directly in your browser, without refreshing the page, with Geekzone Live now.



Are you subscribed to our RSS feed? You can download the latest headlines and summaries from our stories directly to your computer or smartphone by using a feed reader.