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 hCHIP-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 = CreateObjectt (äInternetExplorer.Applicationô) set shell = CreateObjectt (ä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 t exit do WScript.Sleep 1500 end if loop Und so funktioniert das Skript: Zuerst dimensioniert das Programm eine Variable mit dem Namen ╗root½. Sie nimmt das Hauptverzeichnis auf û im Beispiel ist es die Site von CHIP Online. Im Array ╗place½ finden dann die einzelnen Seiten oder Unterverzeichnisse Platz. Als nΣchstes legt das Skript Objekte an: Zum einen fⁿr den Zugriff auf den Internet Explorer, zum anderen fⁿr die Wartefunktion ╗Sleep½ weiter unten. Das Listing weist Windows dann an, den Internet Explorer zu ÷ffnen, ohne dass dabei irgendwelche Werkzeugleisten oder Adressleisten erscheinen. Gleichzeitig setzt das Programm den Browser bereits auf eine Startseite. Dann geht es in die Endlos-Schleife fⁿr die PrΣsentation: In der Variable ╗sec½ steht stets die aktuelle Sekundenzahl. Ist sie wieder bei Null angelangt, Σndert sich die Seite, indem die neue URL aus ╗root½ und ╗place(x)½ gebildet wird û das ⁿberprⁿft jeweils die If-Abfrage. Danach zΣhlt die Schleife die Variable x eins h÷her, bis es an die Feldgrenze st÷▀t. Eine If-Abfrage setzt x dann wieder auf eins. www.chip.de/forum/win98