Apprendre A Programmer En VBScript Partie 4


le code:
si il beuge suivez les instruction de debut (les commentaires)

‘ les lignes qui commence par un ‘ (apostrophe) sont ignorés par l’interpreteur VBScript
‘ si ce programme ne fonctionne pas sur votre ordinateur vous pouvez essayer de:
‘ supprimer le “wscript.sleep 10000”
‘ et decommenter toutes les lignes commencant par un ‘ (supprimer l’apostrophe de debut de ligne)

dim depart
‘ set shell = wscript.createObject(“wscript.shell”)
depart = cint(inputbox(“à quelle heure pars tu?”,”Demande d’information”))

do
if depart = minute(now) then
msgbox “C’est l’heure !, il est “& depart &”!”
wscript.quit
else
wscript.sleep 10000
‘shell.run “ping /n 10 127.0.0.1”,0,true
end if
loop