VBS Msgbox Timeout

2012 October 26

Si può utilizzare in VBScript il metodo Popup, il quale ha come proprietà anche l’impostazione del timeout che dopo un determinato tempo fa chiudere la finestra messaggio.

Un esempio:

Const wshYes = 6
Const wshNo = 7
Const wshYesNoDialog = 4
Const wshQuestionMark = 32

Set objShell = CreateObject("Wscript.Shell")

intReturn = objShell.Popup("Test chiusura popup 10 secondi. La presente finestra di chiuderà tra 10 secondi", 10, "Titolo Finestra", wshYesNoDialog + wshQuestionMark)

If intReturn = wshYes Then
    Wscript.Echo "Premuto il tasto Yes."
ElseIf intReturn = wshNo Then
    Wscript.Echo "Premuto il tasto No."
Else
    Wscript.Echo "Nessun tasto premuto."
End If

Per maggiori informazioni:
http://blogs.technet.com/b/heyscriptingguy/archive/2005/03/14/how-can-i-automatically-dismiss-a-message-box-after-a-specified-length-of-time.aspx