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.


73 posts

Master Geek


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


73 posts

Master Geek


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

Twitter »

Follow us to receive Twitter updates when new discussions are posted in our forums:



Follow us to receive Twitter updates when news items and blogs are posted in our frontpage:



Follow us to receive Twitter updates when tech item prices are listed in our price comparison site:



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.

Alternatively, you can receive a daily email with Geekzone updates.