Cet article va vous montrer comment être accueilli par une phrase aléatoire lorsque vous démarrez une nouvelle session de Windows. Voici le code VBScript à mettre en place :
Const nombre=6
ReDim s(nombre)
s(0)= »Phrase 1″
s(1)= »Phrase 2″
s(2)= »Phrase 3″
s(3)= »Phrase 4″
s(4)= »Phrase 5″
s(5)= »Phrase 6″
Randomize
Dim speaks
speaks = s(Int(Rnd*nombre))
Dim speech
Set speech=CreateObject(« sapi.spvoice »)
speech.Speak speaks
Ici, six phrases sont définies dans le tableau s(). Si vous voulez définir, disons, 30 phrases, vous devrez modifier l’instruction suivante :
Const nombre=30
Et vous devrez définir les trente phrases dans le tableau s() :
s(0)= »Phrase 1″ …
s(29)= »Phrase 30″
Ouvrez le bloc-notes de Windows. Copiez-collez le code précédent en remplaçant les chaînes Phrase 1 à Phrase 6 par vos propres phrases. Sauvegardez ce code dans un fichier d’extension .vbs et insérez-le dans le dossier suivant :
C:\Users\nom\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup
Où nom est votre nom d’utilisateur sous Windows.
