Slideshow mit Internet Explorer zeigen

Sie möchten eine automatische Slide-show Ihrer Website laufen lassen, ohne dabei auf komplizierte Werkzeuge zugreifen zu müssen

Mit dem Windows Scripting Host ist das kein Problem: Ein Beispiel-Skript finden Sie auf der Heft-CD CHIP-Code IESLIDE. Wenn Sie das VB-Programm aufrufen, startet es den Internet Explorer ohne Werkzeugleisten oder Menüs und präsentiert Ihnen – als Beispiel – die Hauptseiten von CHIP Online wechselnd im Takt von einer Minute. Abbrechen können Sie das Programm durch die Tastenkombination [Alt]+[F4].

So setzen Sie das Skript ein: Kopieren Sie es von der CD in einen beliebigen Ordner. Klicken Sie mit der rechten Maustaste darauf und wählen Sie »Bearbeiten«. Das Listing enthält einen Bereich, in dem mehrere Variablen namens »place(x)« festgelegt werden – das sind die Seiten Ihrer Präsentation. In unserem Beispiel sind es Seiten von CHIP Online. Diese Seiten können Sie natürlich nun verändern und auch wei-tere hinzufügen, indem Sie einfach place(8), place(9) und so weiter dazu- schreiben. Gleiches gilt für die Variable »url«. Sie speichert die Domain oder das Verzeichnis.

Dim sec
Dim root
Dim place(7)

x = 2
root = ôhttp://www.chip.deö
place(1) = ä/ô
place(2) = ä/news/ô
place(3) = ä/tests/ô
place(4) = ä/tips/ô
place(5) = ä/shareware/ô
place(6) = ä/community/ô
place(7) = ä/markt/ô

set ie4 = CreateObject(äInternetExplorer.Applicationô)
set shell = CreateObject(äWScript.Shellô)

ie4.visible = true
ie4.Toolbar = false
ie4.Statusbar = false
ie4.FullScreen = true
ie4.navigate(root)
on error resume next

do
sec = Second(now)

   if sec=ô0ô then 
    url = root + place(x)
    ie4.navigate(url)
    x = x + 1 
    if x = 8 then x = 1
    if err.number <> 0 then exit do
    WScript.Sleep 1500
   end if

loop