VBS Msgbox Timeout

2012-10-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