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:





News »

Targus set sights on enterprise and consumer growth in New Zealand
Posted 13-Aug-2018 13:47


Huawei to distribute nova 3i in New Zealand
Posted 9-Aug-2018 16:23


Home robot Vector to be available in New Zealand stores
Posted 9-Aug-2018 14:47


Panasonic announces new 2018 OLED TV line up
Posted 7-Aug-2018 16:38


Kordia completes first live 4K TV broadcast
Posted 1-Aug-2018 13:00


Schools get safer and smarter internet with Managed Network Upgrade
Posted 30-Jul-2018 20:01


DNC wants a safer .nz in the coming year
Posted 26-Jul-2018 16:08


Auldhouse becomes an AWS Authorised Training Delivery Partner in New Zealand
Posted 26-Jul-2018 15:55


Rakuten Kobo launches Kobo Clara HD entry level reader
Posted 26-Jul-2018 15:44


Kiwi team reaches semi-finals at the Microsoft Imagine Cup
Posted 26-Jul-2018 15:38


KidsCan App to Help Kiwi Children in Need
Posted 26-Jul-2018 15:32


FUJIFILM announces new high-performance lenses
Posted 24-Jul-2018 14:57


New FUJIFILM XF10 introduces square mode for Instagram sharing
Posted 24-Jul-2018 14:44


OPPO brings advanced technology to the smartphone market with new device
Posted 24-Jul-2018 09:20


Hawaiki Transpacific cable ready-for-service
Posted 20-Jul-2018 11:29



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.