Detail: Präsentation einer Kundenwebseite im Internet Explorer

14.10.2009 - Präsentation einer Kundenwebseite im Internet Explorer

Als Webdesigner möchte man natürlich seine Arbeit beim Kunden präsentieren. Dafür gibt es verschiedene Lösungsansätze. Mit dem folgenden Makro möchte ich aufzeigen, wie der InternetExplorer ferngesteuert werden kann und eine Webpräsentation völlig automatisch abläuft. Hierzu verwende ich das Objektmodell des InternetExplorers.

' Heiko Jendreck - personal helpdesk & webdesign
' http://www.phw-jendreck.de
' 2009.10.14 Vers 1.0
' Präsentation einer Webseite mit InternetExplorer.Application

Dim oAppIE
Set oAppIE = CreateObject("InternetExplorer.Application")
Dim objWshShell
Set objWshShell = CreateObject("WScript.Shell")
Dim varSleep
varSleep = 5000
oAppIE.Visible = True

' An dieser Stelle wird ein Container, auch Array genannt, gebildet
' Bei arrayLine(), den Wert der letzten Line eintragen
Dim arrayLine(18),x,i

arrayLine(0) = "http://www.phw-jendreck.de"
arrayLine(1) = "http://www.phw-jendreck.de/contact"
arrayLine(2) = "http://www.phw-jendreck.de"
arrayLine(3) = "http://www.phw-jendreck.de/faq"
arrayLine(4) = "http://www.phw-jendreck.de"
arrayLine(5) = "http://www.phw-jendreck.de/news"
arrayLine(6) = "http://www.phw-jendreck.de/news/show.php?id=NTgw"
arrayLine(7) = "http://www.phw-jendreck.de/news"
arrayLine(8) = "http://www.phw-jendreck.de/news/show.php?id=NDAx"
arrayLine(9) = "http://www.phw-jendreck.de/news"
arrayLine(10) = "http://www.phw-jendreck.de/news/show.php?id=Mzk5"
arrayLine(11) = "http://www.phw-jendreck.de/news"
arrayLine(12) = "http://www.phw-jendreck.de/macrocenter"
arrayLine(13) = "http://www.phw-jendreck.de/macrocenter/vb"
arrayLine(14) = "http://www.phw-jendreck.de/macrocenter"
arrayLine(15) = "http://www.phw-jendreck.de/macrocenter/grutzeck"
arrayLine(16) = "http://www.phw-jendreck.de/macrocenter/grutzeck/show.php?id=MjI="
arrayLine(17) = "http://www.phw-jendreck.de/macrocenter"
arrayLine(18) = "http://www.phw-jendreck.de/macrocenter/show.php?id=Mjg="

' Nun durchlaufen wir den Array und zeigen den jeweiligen URL im Browser an
For x=0 to UBound (arrayLine)
oAppIE.Navigate2 arrayLine(i)
i=i+1
WScript.Sleep varSleep
Next

' Wir beenden unsere Präsentation
oAppIE.Quit

Makro-Sample:
Präsentation einer Kundenwebseite im Internet Explorer

zurück

Copyright © 2003 - 2011, Heiko Jendreck, All rights reserved
http://www.phw-jendreck.de / Heiko Jendreck; Friedrichstrasse 20; 68782 Brühl