Popup - Messagebox - Echo

Öffnet ein Pop-Up Fenster mit WSH und zeigt einen Infotext an:

BSP für PopUp:

Option Explicit

Dim WshShell
Dim iReturn
Dim sMessage, sTitel

sMessage = "In Ulm, um Ulm und um Ulm herum."
sTitel = "Spruch des Tages."

Set WshShell = CreateObject("WScript.Shell")
iReturn = WshShell.Popup(sMessage,5 , sTitel , vbYesNoCancel + vbExclamation )

Select Case iReturn

Case -1
  sMessage = "Sie haben nicht innerhalb von 5 Sekunden auf einen Schaltknopf gedrückt."
Case vbYes
  sMessage= "Sie haben Ja angeklickt."
Case vbNo
  sMessage= "Sie haben Nein angeklickt."
Case vbCancel
  sMessage= "Sie haben abbrechen angeklickt."
End select

WshShell.Popup sMessage, , , vbInformation

Syntax:

Es kann ein Rückgabewert geliefert werden:
iButton = WshShell.Popup(sText, [nWartezeitinSekunden], [sFensterTitel], [nType])

Oder einfach nur als Messagebox starten:
WshShell.Popup strText, [nWartezeitinSekunden], [sFensterTitel], [nType]

BSP für MsgBox:

iButton = MsgBox (strText , [nType], [sFensterTitel])

Option Explicit

Dim WshShell
Dim iReturn
Dim sMessage, sTitel

sMessage = "In Ulm, um Ulm und um Ulm herum."
sTitel = "Spruch des Tages."

Set WshShell = CreateObject("WScript.Shell")
iReturn = MsgBox (sMessage, vbYesNoCancel + vbExclamation, sTitel)

Select Case iReturn
Case vbYes
  sMessage= "Sie haben Ja angeklickt."
Case vbNo
  sMessage= "Sie haben Nein angeklickt."
Case vbCancel
  sMessage= "Sie haben abbrechen angeklickt."
End Select

MsgBox sMessage, vbInformation

BSP für Echo:

WScript.Echo("Hallo", "Welt")

Echo gibt Informationen während es Ablaufs des Scripts an den Benutzer aus. Mehrere Argumente können Komma getrennt angegeben werden

cscript gibt das Echo in die Shell aus.

wscript gibt das Echo als Messagebox aus.

Argumente:
sText : Text welcher in der Pop-Up Message-Box angezeigt wird. (Zeilenumbruch mit "Text" & vbCrLf & "Text neue Zeile")

nWartezeitinSekunden: Zeit in Sekunden wie lange die Box angezeigt wird ohne dass der Anwender auf einen Button klickt (Optionale Angabe, default=unbegrenzt)

sFensterTitel: Titel-Text string des Fensterkopfes (Optional)

nType : Welche Buttons und Info-Icons angezeigt werden (Zahl, Optional)

MsgBox-Konstanten (nType)

Wert	Beschreibung der Schaltflächen	Konstante (Visual Basic mit "+" kombinierbar)
0	Nur OK (Voreinstellung)	vbOKOnly
1	OK und Abbrechen	vbOKCancel
2	Abbruch, Wiederholen und Ignorieren	vbAbortRetryIgnore
3	Ja, Nein und Abbrechen	vbYesNoCancel
4	Ja und Nein	vbYesNo
5	Wiederholen und Abbrechen	vbRetryCancel
	Hinweis-Icon	Konstante (Visual Basic )
16	Meldung für kritischen Fehler	vbCritical
32	Warnung mit Abfrage	vbQuestion
48	Warnmeldung	vbExclamation
64	Informationsmeldung	vbInformation
	Voreingestellte aktive Schaltfläche
0	Erste Schaltfläche ist Voreinstellung (Voreinstellung)	vbDefaultButton1
256	Zweite Schaltfläche ist Voreinstellung	vbDefaultButton2
512	Dritte Schaltfläche ist Voreinstellung	vbDefaultButton3
768	Vierte Schaltfläche ist Voreinstellung	vbDefaultButton4
0	An die Anwendung gebundenes Meldungsfeld (Voreinstellung)	vbApplicationModal
4096	An das System gebundenes Meldungsfeld	vbSystemModal
16384	Fügt eine Hilfeschaltfläche zum Meldungsfeld hinzu.	vbMsgBoxHelpButton
65536	Legt das Meldungsfeld als Vordergrundfenster fest.	VbMsgBoxSetForeground
524288	Der Text ist rechtsbündig	vbMsgBoxRight
1048576	Legt fest, daß der Text von rechts nach links dargestellt wird	vbMsgBoxRtlReading

MsgBox-Rückgabewerte