Script Yes or No Question avec Timeout

Code Script

' Accéder à WScript.Shell

set wshshell = CreateObject("WScript.Shell")

' posez la question et attendre 5 secondes pour avoir la réponse:

ask = "Vous êtes un homme ou une femme?"

timeout = 5

title = "Test psychologique!"

constants = vbExclamation + vbOkCancel

result = wshshell.Popup(ask, timeout, title, constants)

if result = vbCancel then

MsgBox "OK, Bienvenue Madame!"

elseif result = true then

MsgBox "Vous avez pris beaucoup de temps pour décider!!!!!!!"

else

MsgBox "Ok, Bienvenue Monsieur!"

end if

Exemple D’illustration

* Le script vous demande si vous êtes un Homme ou Une Femme

*Si la réponse est OUI, le Script vous dit « Bienvenue Monsieur »

*Si La réponse est NON, le script vous dit « Bienvenue, Madame »

*Si vous dépassez plus de cinq secondes pour répondre, le script vous signale que avez pris beaucoup de temps pour répondre :