Comment faire parler votre ordinateur ?




 Regardez cette astuce:


 1.) Ouvrez le bloc-notes

2.) Copiez le texte ci-dessous et collez-le sur la fenêtre du Bloc-notes 

Dim Message, Speak
Message=InputBox("Enter text","Speak") Set Speak=CreateObj
ect("sapi.spvoice")
Speak.Speak Message

 3.) Enregistrez le fichier avec le nom Speak.vbs sans
 les citations

4.) Ouvrez le fichier créé, et à l'ouverture une fenêtre apparaîtra, écrivez un texte, puis tapez OK.  Avant cela, ouvrez votre haut-parleurs et augmenter le volume ...
Next Post Previous Post
No Comment
Add Comment
comment url