Lavorando anche con l'automazione del test e delle navigazioni in generale mi è capitato di imbattermi in questo argomento. Come creare un popup, con un messaggio, che si chiude da solo, utilizzando il vbscript?
La funzione MsgBox non permette di indicare un parametro di tempo dopo cui la stessa si chiude. Per ovviare a questo bisogna utilizzare l'oggetto "Wscript.Shell". Vediamo come:
L'oggetto Wscript.Shell è un oggetto molto potente in vbscript. Permette molte cose tra cui per l'appunto la creazione di Popup più potenti della msgbox. Scrivo qui del codice che visualizza un messaggio che dura 3 secondi e che ha l'icona del tipo "informazione":
'**********************************************
'******************* MAIN **********************
'**********************************************
Dim MyShell
'istanzio l'oggetto Wscript.Shell
set MyShell = CreateObject("Wscript.Shell")
'una volta creato l'oggetto posso utilizzare i suoi metodi
'tra cui il metodo .Popup
'Argomenti del metodo Popup:
' - Testo (obbligatorio - anche stringa vuota "")
' - Numero Secondi di attesa prima della Chiusura della finestra
' - Titolo della DialogBox
' - Tipo: intero che significa quale tipo di bottone inserire e quale icona
' far comparire
'Si consiglia di vedere il dettaglio del metodo qui
'Scriviamo il Messaggio "Questa finestra si chiuderà dopo 3 secondi" che si chiuderà dopo 3 secondi
MyShell.Popup "Questa finestra si chiuderà dopo 3 secondi", 3, "Questo è il titolo della dialogbox", 64
'Distruggo l'oggetto.
'Questa operazione va sempre fatta per lasciare la memoria pulita
set MyShell = Nothing
'**********************************************
'*********** FINE MAIN **********************
'**********************************************
______________________________________________________________________