Axels Homepage

Hinweis: Das ist das Ende der Metanavigation. Es folgt die Kontext-Spalte.

Hinweis: Das ist das Ende der Kontext-Spalte.

Sie sind hier: » PC + Co. » VBScript » Systemzeit stellen

Systemzeit nach Videotext-Zeit stellen

Einleitung

Hinweis:
Dieses Skript funktioniert nur bei Besitzern einer Hauppauge-TV-Karte: Mit Hilfe des mitgelieferten Videotext-Programmes "VTPlus" und dessen Skriptsprache wird die Rechnerzeit aktualisiert.

Wer einen Blick in die Hilfedatei des Videotext-Programmes, der kann dort einen Link zur Skriptsteuerung der Anwendung finden. Mit Hilfe der (sehr einfachen) Skriptsprache kann man "auf magische Weise" einen bestimmten Sender anwählen (Befehl TVSTATION) und eine gewünschte Videotextseite zum Vorschein bringen (Befehl GET) und diese als Textdatei speichern (Befehl EXPORT).
Mit diesem Rüstzeug kann man weiterführend mit Hilfe eines VB-Skripts z.B. sich das TV-Programm seiner Lieblingssender in einer HTML-Datei zusammenfügen oder den Verlauf seiner Börsenkurse in MS EXCEL zusammenstellen lassen.

Seitenanfang

So funktioniert's

Wir benötigen aus dem Sprachumfang des VT-Programmes die Befehle

• TVSTATION - zum Einstellen eines Senders
• SET - zum Setzen der Systemzeit
• EXITAPPL - zum Beenden des VT-Programms

Das VBScript (schliesslich ist das unser Thema!) macht folgendes:
(1) Es zeigt die aktuelle Uhrzeit und fragt zurück, ob die Systemzeit aktualisiert werden soll.
(2) Es generiert eine Textdatei *.vts mit den o.g. Befehlen.
(3) Es startet die generierte vts-Datei. Nach Beendigung des VT-Programes wird die generierte Datei wieder gelöscht.
Anmerkung:
Der Dateityp VTS wird mit der Installation des Videotext-Programmes VTPLUS automatisch registriert.

Innerhalb des VB-Skripts werden folgende Objekte verwendet:

• WScript.Shell - zum Ausführen eines Programmes (hier: in minimiertem Fenster).

    set ws = WScript.CreateObject("WScript.Shell")
    result = ws.Run(vt_script,2,true)
  
    

• Scripting.FileSystemObject - zum Zugriff auf eine (Text-)Datei:
  Zum Einen wird damit die VTS-Datei generiert...

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.OpenTextFile(vt_script, ForWriting, True)
    ts.writeline("[Text...]"
    ts.close
    

  ...zum anderen der Zugriff auf das Dateisystem realisiert und die VTS-Datei wieder gelöscht:

    Set ts=fso.GetFile(vt_script)
    ts.delete
    

Nach einem Download des VBScripts sind ggf. 2 Anpassungen zu machen, bevor es das erste Mal gestartet wird:
Öffnen Sie die VBS-Datei mit einem Texteditor und pruefen Sie, ob die im oberen Teil des Scripts gesetzten Werte auch auf Ihrem System stimmen(weitere Informationen sehen Sie in den Kommentarzeilen):

const Sender="ARD"
const workdir="C:\WINDOWS\TEMP\"

Seitenanfang

Quellcode

Und hier der komplette Quelltext des VB-Skripts:
gesamter Quellcode der stelle_Uhr.vbs

Seitenanfang

Download

Als ZIP-Datei hier nun das unter Quellcode angegebene Skript:
stelle_uhr.zip (1 kB)


Seitenanfang