RunDll32 Shell32,Control_RunDLL
Openen van het Configuratiescherm.
RunDll32 Shell32,Control_RunDLL <cpl-bestand>
Openen van een onderdeel van het Configuratiescherm.
<cpl-bestand>: naam bestand, [@instantie], nr tabblad
RunDll32 Shell32,OpenAs_RunDLL
Activeren van het venster Openen met.
RunDll32 User32, CascadeChildWindows
Vensters trapsgewijs schikken.
RunDll32 User32, TileChildWindows
Minimaliseren van alle vensters
RunDll32 User32, RepaintScreen
Bureaublad hernieuwen.
RunDll32 Keyboard, Disable
Uitschakelen toetsenbord.
RunDll32 Mouse, Disable

{BACKSPACE} BackSpace
{BREAK} Break
{CAPSLOCK} Caps Lock
{DELETE} Delete
{END} End
{ENTER} Enter
{ESC} Escape
{F} Functietoets f5 bijvoorbeeld
{HELP} Help
{HOME} Home
{INSERT} […]

Dim oShell
Dim titel_kladb, titel_paint
titel_kladb = “Naamloos - Kladblok”
titel_paint = “naamloos - Paint”
set oShell=WScript.CreateObject(”WScript.Shell”)
oShell.Run “mspaint.exe”
WScript.Sleep 800
oShell.Run “notepad.exe”
WScript.Sleep 800
oShell.AppActivate titel_paint
WScript.Sleep 3000
oShell.AppActivate titel_kladb

WScript.Sleep 500
Tijd dat er moet gewacht worden vooraleer de volgende instructie moet uitgevoerd worden. De waarde wordt opgegeven in milliseconden.

Dim oShell
set oShell=WScript.CreateObject(”WScript.Shell”)
oShell.Run “notepad.exe”

Dim WshShell, oShellLink
Dim pad
pad = “c:\scripting\oplossingen\wsh\snelkoppeling”
set WshShell = WScript.CreateObject(”WScript.Shell”)
set oShellLink = WshShell.CreateShortcut(pad & “\Kladblok.lnk”)
oShellLink.TargetPath = WshShell.ExpandEnvironmentStrings(”%WINDIR%\Notepad.exe”)
oShellLink.WindowStyle = 1
oShellLink.Hotkey = “Ctrl+Alt+E”
oShellLink.IconLocation = “shell32.dll, 27″
oShellLink.Description = “Snelkoppeling naar kladblok”
oShellLink.WorkingDirectory = WshShell.ExpandEnvironmentStrings(”%WINDIR%\temp”)
oShellLink.Save

Voorbeelden van speciale mappen (Windows XP):

C:\Windows\fonts (Fonts)
Documents and Settings\All Users

Bureaublad (AllUsersDesktop)
Menu Start (AllUsersStartMenu)
Menu Start\Programma’s (AllUsersPrograms)
Menu Start\Programma’s\Opstarten (AllUsersStartup)

Documents and Settings\

Bureaublad (Desktop)
Application Data
Mijn Documenten (MyDocuments)
Programma’s (Programs)
Start Menu (StartMenu)
Opstarten (Startup)
Netwerkprinteromgeving (PrintHood)
Sjablonen (Templates)
SendTo (SendTo)
Onlangs geopend (Recent)
Favorieten (Favorites)
Nethood (NetHood)

WScript

WshArguments

WshNamed
WshUnnamed

WshController

WshRemote

WshRemoteError

WshNetwork
WshShell

WshShortCut
WshUrlShortCut
WshEnvironment
WshSpecialFolders
WshScriptExec

Belangrijke methoden:

Echo: wordt gebruikt om tekst af te beelden in een boodschappenvenster.
Quit: wordt gebruikt om een script vroegtijdig te verlaten. Dit is bijvoorbeeld handig wanneer aan een bepaalde voorwaarde niet is voldaan.
CreateObject: om een object aan te maken.
Sleep: vertragen van een programma (zie later).
…

Enkele belangrijke eigenschappen:

FullName: dit is het pad […]

On Error Resume Next :
loopt verder zonder stoppen
Err.Description
omschrijving weergeven
On Error Goto 0
afhandelen.

Declaratie van een functie die geen waarde terug geeft.
Sub <naamprocedure>
< instructie(s)>
End Sub
Oproep van de functie
Call <naamprocedure>
Declaratie van een functie die wel een waarde terug geeft.
Function <naamprocedure> (argumenten)
End Function
Oproep:
var = <naamprocedure>(argumenten)
Ingebouwde functies:
CInt(<variabele>)      een variant wordt omgezet in een type Integer
CLng(<variabele>)     een varinant wordt omgezet in een type Long
CDbl(<variabele>)     een variant wordt omgezet in […]

Dim getallen(5) - iedere array moet gedeclareerd worden.
toegankelijk
getallen(0) = 1
getallen(1) = 10
getallen(3) = 125
getallen(5) = 456
of array met meerdere dimensies
getallen(2,3)=8
Er is een mogelijkheid om array opnieuw dynamisch te declareren.
Redim Preserve getallen(aantal)

For <tellervariabele>= <waarde1> To <waarde2> [Step <waarde>]
<instructie(s)>
Next

Exit - wordt gebruikt om loop of functie te beëindigen.
sub ()
exit sub
‘deze regel zal nooit uitgevoerd worden
end sub
exit is een analog van break in andere talen.

Do Until <voorwaarde>
<instructie(s)>
Loop
Do
<instructie(s)>
Loop Until <voorwaarde>

Hetzelfde als “While” maar in iedere geval wordt tenminste een keer uitgevoerd.
Do
getal2=InputBox(”Geef het tweede getal: “, “invoeren getal2″)
getal2=CDbl(getal2)
Loop While getal2 = 0

Select Case <voorwaarde>
{Case <waarde>
<instructie(s)>}
[Case Else
<instructie(s)>]
End Select
Const basis = 1000
Dim naam, cat, factor, premie
naam = InputBox(”Geef jouw naam: ” ,”Inlezen naam”)
cat = InputBox(”Geef jouw categorie: ” ,”Inlezen categorie”)
Select Case cat
Case “1″
factor = 1.05
Case “2″
factor = 1.03
Case “3″
factor = 1.01
Case Else
factor = 1
End Select
Premie = basis * factor
Msgbox “Jouw premie is gelijk aan: ” & premie, ,”Premie […]

In sommige gevallen kan het zijn dat een actie meerdere malen moet uitgevoerd worden, afhankelijk van een bepaalde voorwaarde. Stel dat je bijvoorbeeld twee getallen wenst in te lezen, en vervolgens getal1 wil delen door getal2, dan mag getal2 niet gelijk zijn aan 0. Je kan […]

If <voorwaarde> Then
<instructie(s)>
{ElseIf <voorwaarde> Then
<instructie(s)>}
End If
Const basis = 1000
Dim naam, cat, factor, premie
naam = InputBox(”Geef jouw naam: ” ,”Inlezen naam”)
cat = InputBox(”Geef jouw categorie: ” ,”Inlezen categorie”)
If cat = “1″ Then
factor = 1.05
ElseIf cat = “2″ Then
factor = 1.03
ElseIf cat = “3″ Then
factor = 1.01
ElseIf cat “3″ Then
factor = 1
End If
Premie = basis * […]

If <voorwaarde> Then
<instructie(s)>
[Else
<instructie(s)>]
End If
Voorbeeld:
Dim getal1, getal2, result
getal1=InputBox(”Geef het eerste getal: “, “Invoeren getallen”)
getal1=CDbl(getal1)
If getal1

Een expressie langs de rechterkant van een toekenning wordt steeds van links naar rechts uitgevoerd.
Voorbeeld:
result = 3 + 4 + 5
In eerste instantie wordt de getallen 3 en 4 samengeteld, en vervolgens wordt aan het resultaat het getal 5 bijgevoegd. Het resultaat wordt vervolgens toegekend aan de variabele result.
Er zijn echter operatoren die eerst moeten […]