20130725
but du jeu:
créer un "fenêtre" d'information non bloquante pour wscript!
solution: tout est dans le nom de fichier
Set WshShell = WScript.CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
prev=""
info "bonjour"
wscript.sleep 10000
info "bonsoir"
wscript.sleep 1000
sub info (quoi)
if len(prev)>0 then
oFso.deletefile(prev)
end if
stamp=now
tampon=""
for i=1 to len(stamp)
c=mid(stamp,i,1)
if instr("/\: ",c)>0 then c="_"
tampon=tampon & c
next
prev="Info_" & tampon & "_" & quoi
ofso.createtextfile (prev)
end sub