Comment faire parler votre ordinateur grâce à un code intégré dans un fichier bloc-note

Sur internet il y a plein d'outils qui transforme votre mot ou phrase en voix, j'ai fais une petite recherche et j'en ai trouvé un; Acapela. Dans notre cas c'est un peu différant, c'est à vous de faire une petite configuration sur le bloc-note pour avoir une portion de voix amusante ;).

 Alors voici comment créer votre propre petit logiciel qui transforme votre texte choisi en voix parlante:
1-Ouvrez votre programme de bloc-note et y insérer cette portion de code (copier-coller) dans le nouveau fichier crée:

Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

2-Enregistrez ce fichier vers votre bureau sous n'importe quel nom mais modifier l'extension par ".vbs" comme sur l'image:

3-Exécutez ce fichier reçu sur votre bureau et écrivez la phrase de votre choix ex: "comment vas-tu?", c'est génial non ;).