Hyper-Link aus HTML Quelltext mittels VB-Script auslesen

Categories: VBS
Comments: No Comments
Published on: 31. Oktober 2011

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…)

Aus AG-VIP SQL mit Skype telefonieren und chatten

Categories: AG-VIP SQL
Comments: No Comments
Published on: 22. November 2010

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

Categories: VBS
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
Welcome , today is Montag, 28. September 2020