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