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. (more…)
Makrocenter
Sammlung nützliche Codeschnipsel
Aus AG-VIP SQL mit Skype telefonieren und chatten
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 Call
Call = "skype:" & ActiveAddress.Fields("SkypeUser").Value & "?call"
Set WShell = CreateObject ("WScript.Shell")
WShell.Run Call
Chat mit Skype:' Heiko Jendreck - personal helpdesk & webdesign
' http://www.phw-jendreck.de
' 2009.05.20
' Chat
Dim WShell
Dim Chat
Chat = "skype:" & ActiveAddress.Fields("SkypeUser").Value & "?chat"
Set WShell = CreateObject ("WScript.Shell")
WShell.Run Chat
Der jeweilige Code wird durch einen Button innerhalb von AG-VIP SQL in der Ansicht abgelegt. Die Verwendung eines Hilfsmittels ist nicht zu empfehlen.
Webseite präsentieren
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
Not logged in