VBA / VBScript

VBA / VBScript
Seminar Skriptsprachen SS09
Hendrik Wolf / Mnr: 25202540
19.06.2009 1

Inhalt
• VBA
– Einführung
– Sicherheit
– Verbreitung
– Beispiel
• VBScript
– Einführung
– Anwendungsbereiche
– Vor- und Nachteile
– Beispiele
– Email Verifizierung
19.06.2009 2

Visual Basic for Application
• Skriptsprache von MS Office
• Steuerung von Abläufen
• Von Visual Basic abgeleitet
• Seit 1990 Nachfolger von versch. Makro
Sprachen
19.06.2009 3

VBA-Unterstützung
• VBA wird unterstützt von
– MS Office
– Visio
– Outlook
– Corel
– AutoCAD
– Mindmanager
• Apple Macintosh bietet keine VBA-Unterstützung
19.06.2009 4

VBA - Sprache
• VBA ist eine interpretierende Sprache
• Interpretierung über Wirtsprogramm (Word,
Excel)
• Reduzierte Leistungsfähigkeiten gegenüber
Visual Basic
• Keine Kompilierung bis zu ausführbaren
Maschinencode
• wenig Unterstützung für Klassen und Objekte
19.06.2009 5

VBA - Sicherheit
• VBA unterstützt wesentliche Funktionen von VB
• VBA-Anwendungen können daher schädlichen
Code enthalten
• MS bietet keine präventive Maßnahmen bei der
Code Entwicklung
• Nur im Nachhinein wird versucht die Ausführung
abzusichern
• Eigener Code kann mit einem Kennwort
geschützt werden
19.06.2009 6

VBA - Verbreitung
• In der Industrie wird VBA verwendet um schnelle
einfache IT-Lösungen zu entwickeln
• Durch die geringe Unterstützung und
Funktionsumfang von VBA ist die
Weiterentwicklung von Programmen schwierig
19.06.2009 7

19.06.2009 8

Projekt Explorer
Zeigt alle Objekte der
Arbeitsmappe an
Eigenschaften der
Formulare
19.06.2009 9

Über F2 erhält man eine Übersicht
der Klassen und deren Elemente
19.06.2009 10

UserForm
Formulare:
Programmierbare
Dialogfelder
Module
Prozeduren:
Häufig verwendete
Funktion
Klassenmodul
Objekte der Arbeitsmappe
-Diese Arbeitmappe
-Tabelle1…
19.06.2009 11

19.06.2009 12

19.06.2009 13

19.06.2009 14

UserForm1
Option Explicit
Private Sub CommandButton1_Click()
TextBox3.Text = Bere_Verbrauch(TextBox1.Text, TextBox2.Text)
End Sub
Private Sub CommandButton2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
19.06.2009 15

19.06.2009 16

19.06.2009 17

Modul1
Option Explicit
Public Function Bere_Verbrauch(km As String, liter As String) As String
Dim gefahrene_km As Double
Dim tank_liter As Double
Dim ergebnis As Double
gefahrene_km = CDbl(km)
tank_liter = CDbl(liter)
ergebnis = (tank_liter / gefahrene_km) * 100
Bere_Verbrauch = CStr(ergebnis)
End Function
19.06.2009 18

19.06.2009 19

Das Endergebnis
19.06.2009 20

Visual Basic Script
• VBS ist ebenfalls eine Interpretierende Sprache
die 1990 von Microsoft entwickelt wurde
• Funktionsumfang ist geringer als bei VBA
• VBS ermöglicht den Zugriff auf:
– Bibliotheken von MS Office und des Betriebssystems
– Access, SQL-Server
– Auch Bios Status bis hin zu Laufwerke ausfahren
• VBS hat in der Praxis 3 Anwendungsbereiche:
19.06.2009 21

Windows-Betriebssystem
• Automatisierung von Standartaufgaben über
Windows Scripting Host (WSH)
• WSH akzeptiert VBS Dateien der Form *.vbs
und *.wsf (reine Textdateien)
• Internet Explorer akzeptiert VBS Dateien der
Form *.hta und *.chm (HTML-Dateien)
• *.hta bestehen aus VBS, JavaScript und HTML
Elementen
• *.chm sind Windows Hilfe Dateien
19.06.2009 22

Browser (Client-seitiges VBS)
• VBS wird verwendet um den Browser zu steuern
– Browser führt VBS aus
• VBS kann damit dynamische Inhalt in eine
Webseite integrieren
– Konkurrenz für JavaScript
• Nachteile:
– VBS: Nur von Internet Explorer, Mozilla (Plugins)
unterstützt
– JavaScript: Von allen Browsern akzeptiert
19.06.2009 23

Webserver (Server-seitiges VBS)
• Für Windowsserver ist VBS ein Bestandteil der
Microsoft Active Server Pages
• VBS Code wird in einer HTML Datei integriert
(*.asp).
– Konkurrenz zu PHP
• Über ASP wird ein Programm auf der Serverseite
ausgeführt und das Ergebnis wird in HTML Form
wiedergegeben.
– Konkurrenz zu dem freien Apache Webserver
19.06.2009 24

VBS – Vor- und Nachteile
• Vorteile:
– Geringe Dateigröße da Interpreter Sprache
– Auf allen Windows Systemen verfügbar
• Nachteile:
– Keine Abschottung für schädliche VBS-Programme
– Inzwischen wird VBS als Email Anhang von allen
Clients blockiert (auch von Outlook)
– BSP: Networm.win32.Sasser, EMail-Wurm.Netsky,
ILOVEYOU-Virus
19.06.2009 25

VBS - Beispiel
• Einfachste Form:
MsgBox “Nachricht“ ,0, “Titel“
– Ergebnis:
19.06.2009 26

VBS - MsgBox
• Argument ,0, = Art des Fensters
– 0 = OK-Fenster
– 1 = OK; Abbrechen -Fenster
– 2 = Abbrechen; Wiederholen; Ignorieren -Fenster
– 3 = Ja; Nein; Abbrechen -Fenster
– 4 = Ja; Nein -Fenster
– 5 = Wiederholen; Abbrechen -Fenster
– 16 = Anzeigen des Stopp-Symbols
– 32 = Anzeigen des Fragezeichen-Symbols
– 48 = Anzeigen des Symbols Warnung
– 64 = Anzeigen des Symbols Information
19.06.2009 27

VBS - Hallo Welt
• Popup Fenster, das 3 Sekunden lang angezeigt wird
• CreateObject(„Art des Objektes")
Dim Beispiel
Set Beispiel = CreateObject("WScript.Shell")
Beispiel.Popup "Hallo Welt" ,"3", "Testprogramm"
– Ergebnis:
19.06.2009 28

VBS - Grundlagen
• 2 Verschiedene Arten von Befehlen:
– Befehle die mit einer definierten Variable
eingeleitet werden
– Befehle die von VBS vordefiniert sind
• "On Error Resume Next" in die erste Zeile, damit
nicht jede Fehlermeldung angezeigt wird
19.06.2009 29

VBS - Rechenbeispiel
On Error Resume Next
dim a
set a = CreateObject("WScript.Shell")
a = InputBox( "Bitte Wert 1 eingeben","Eingabebox","Hier die
Zahl eingeben" )
dim b
set b = CreateObject("WScript.Shell")
b = InputBox( "Bitte Wert 2 eingeben","Eingabebox","Hier die
Zahl eingeben„ )
dim c
set c = CreateObject("WScript.Shell")
c = a * b
MsgBox "Das Ergebnis ihrer Rechnung lautet: " & c,64,""
19.06.2009 30

VBS - Rechenbeispiel
19.06.2009 31

VBS - Systembefehle
• Dateien Löschen:
dim Beispiel
set Beispiel = CreateObject( "Scripting.FileSystemObject" )
Beispiel.DeleteFile "d:\test\Müll.txt" , true
• Operation im Dateisystem
• True = Operation Bestätigen
• Weitere Befehle:
– Beispiel.copyFile “Urpfad“, “Zielpfad“, True
19.06.2009 32

Email Validation in VBS
dim theAddress
set theAddress = CreateObject("WScript.Shell")
theAddress =
InputBox("Bitte Email Adresse eingeben","Email Validation","Email")
dim atCnt
atCnt = 0
dim Emailvalid
Emailvalid = 0
' Anzahl der "@"
' Emailvalid = 0 Email gueltig
' Emailvalid = 1 Email ungueltig
19.06.2009 33

Email Validation in VBS
if len(theAddress) < 5 then
Emailvalid = 1
elseif instr(theAddress,"@") = 0 then
Emailvalid = 1
elseif instr(theAddress,".") = 0 then
Emailvalid = 1
elseif len(theAddress) - instrrev(theAddress,".") > 3 then
Emailvalid = 1
elseif instr(theAddress,"_") 0 and _
instrrev(theAddress,"_") > instrrev(theAddress,"@") then
Emailvalid = 1
' Minimale Laenge = 5 (a@b.c )
' mindestens ein "@"
' mindestens ein ".„
' nicht mehr als 3 Zeichen nach Letztem "."
' kein "_" nach "@"
19.06.2009 34

Email Validation in VBS
else
for i = 1 to len(theAddress)
if mid(theAddress,i,1) = "@" then
atCnt = atCnt + 1
end if
next
' Nur ein "@”
if atCnt > 1 then
Emailvalid = 1
end if
for i = 1 to len(theAddress)
if not isnumeric(mid(theAddress,i,1)) and _
(lcase(mid(theAddress,i,1)) < "a" or _
lcase(mid(theAddress,i,1)) > "z“) and _
mid(theAddress,i,1) "_" and _
mid(theAddress,i,1) "." and _
mid(theAddress,i,1) "@" and _
mid(theAddress,i,1) "+" and _
mid(theAddress,i,1) "-" then
Emailvalid = 1
end if
next
end if
' Prüfe jedes Zeichen auf Gueltigkeit
19.06.2009 35

Email Validation in VBS
if Emailvalid = 1 then
msgbox "Email Adresse ist ungültig ",0,"Email"
else
msgbox "Email Adresse ist gültig ",0,"Email"
end if
19.06.2009 36

Email Validation in VBS
• InStr([start,]string1,string2[,compare])
– Durchsucht einen String nach einem Zeichen und gibt die Position des ersten
Vorkommnisses wieder
• InStrRev(string1,string2[,start[,compare]])
– wie InStr, fängt jedoch am Ende des Strings an zu suchen und gibt die Position
des ersten Vorkommnisses vom Anfang des gezählt zurück
• mid(string,start,length)
– ein oder mehrere Zeichen aus einem String herauslesen
• IsNumeric(expression)
– Wenn ein Ausdruck eine reine Zahl ist wird True wiedergegeben ansonsten
False
• LCase(string)
– Konvertiert einen String komplett in Kleinbuchstaben
19.06.2009 37

Quellenangaben
• Folie: 3 bis 7
– http://de.wikipedia.org/wiki/Visual_Basic_for_Applications
• Folie: 15 und 18
– http://www.activevb.de/tutorials/tut_vbatutorial/tut_vbatutorial.html#anchor4
• Folie: 21 bis 25
– http://de.wikipedia.org/wiki/Visual_Basic_Script
• Folie: 26 bis 33
– http://de.wikibooks.org/wiki/VBS
• Folie: 34 bis 35
– http://www.aspfaqs.com/webtech/051999-1.shtml
• Folie: 37
– http://www.w3schools.com
19.06.2009 38