MsgBox-Funktion in WinCC flexible

'Deklaration von Skript-Variablen

Dim WSHShell, Text, Duration_in_s, Titel, Buttons, ReturnValue

Text = "This text is displayed." 'Ausgabetext in der Box; displayed text in the box

Duration_in_s = 10 'Anzeigedauer der Box in Sekunden; display duration in seconds

Titel = "Headline" 'Titel des Dialogfensters; Title of the dialogbox

Buttons = 51 'Die einzelnen Werte für Symbole und Buttons müssen addiert werden

' 51 = Ausrufezeichen (Symbol) + Ja + Nein + Abbrechen (Buttons)

'Aufruf der PopUp-Methode als Funktion, damit der Rückgabewert ausgewertet werden kann

Set WSHShell = CreateObject("WScript.Shell")

Ruckgabewert = WSHShell.Popup (Text, Duration_in_s, Titel, Buttons)

'Übergabe des Rückgabewertes (Auswertung des gedrückten Buttons)

ReturnValue_1 = ReturnValue

'ReturnValue = Skript-Variable / only script tag

'ReturnValue_1 = Interne Variable / internal tag

'Verwendeten Speicher wieder freigeben

Set WSHShell = Nothing