Webseite präsentieren

by der_booker
Categories: VBS
Tags: , , , , ,
Comments: No Comments
Published on: 22. November 2010

Wer seine Webseite automatisch ablaufen lassen will, zum Beispiel bei einer Präsentation, für den ist folgendes Makro geeignet. Es dient zur Fernsteuerung des Internet-Explorer und lässt vordefinierte Webseiten automatisch ablaufen.

Set oAppIE = CreateObject("InternetExplorer.Application")
Dim objWshShell
Set objWshShell = CreateObject("WScript.Shell")
Dim varSleep
varSleep = 10000
oAppIE.Visible = True
' Bei arrLine(), den Wert der letzten Line eintragen
Dim arrLine(5),x
arrLine(0) = "http://www.phw-jendreck.de/"
arrLine(1) = "http://www.phw-jendreck.de/seo_suchmaschinenoptimierung/"
arrLine(2) = "http://www.phw-jendreck.de/testberichte/"
arrLine(3) = "http://www.phw-jendreck.de/ventil/"
arrLine(4) = "http://www.phw-jendreck.de/contact/"
arrLine(5) = "http://www.phw-jendreck.de/macrocenter/"
For x=0 to UBound (arrLine)
oAppIE.Navigate2 arrLine(i)
i=i+1
WScript.Sleep varSleep
Next
oAppIE.Quit

page 1 of 1
Recent Posts
  • Hyper-Link aus HTML Quellte… by der_booker

    Der derzeitige Seo-Contest OnkelSeosErbe verlangt viel Phantasie. Dabei kam die Frage auf, ob es nicht möglich sei, einen Hyperlink mittels VBS aus dem HTML-Quelltext auszulesen.

  • Aus AG-VIP SQL mit Skype te… by der_booker

    Die folgenden VB-Scripte zeigen, wie man aus AG-VIP SQL mit Skype telefonieren oder chatten kann. Zunächst brauchen wir das Feld SkypeUser. SkypeUser wird typischerweise als Typ „Text“ angelegt, doch auch die Verwendung von Kennzeichenfeldern ist denkbar. Telefonie mit Skype:‘ Heiko Jendreck – personal helpdesk & webdesign ‚ http://www.phw-jendreck.de ‚ 2009.05.20 ‚ Telefonie Dim WShell Dim[…]

  • Webseite präsentieren by der_booker

    Wer seine Webseite automatisch ablaufen lassen will, zum Beispiel bei einer Präsentation, für den ist folgendes Makro geeignet. Es dient zur Fernsteuerung des Internet-Explorer und lässt vordefinierte Webseiten automatisch ablaufen. Set oAppIE = CreateObject(„InternetExplorer.Application“) Dim objWshShell Set objWshShell = CreateObject(„WScript.Shell“) Dim varSleep varSleep = 10000 oAppIE.Visible = True ‚ Bei arrLine(), den Wert der letzten[…]

Categories
Recent Comments
  • No comments yet.
Welcome , today is Dienstag, 6. Juni 2023