Set sh = WScript.CreateObject("WScript.Shell") 
if sh.Popup ("bonjour",1,"vous avez une seconde pour cliquer",0)=1 then
msgbox("gagné")
else
WScript.echo("trop tard")
end if