Comment faire parler votre ordinateur / parlez ce que vous tapez


Il existe une fonctionnalité intéressante dans Windows qui vous permet de faire parler ou parler votre ordinateur, peu importe ce que vous lui dites! Cette méthode tire parti d'une API intégrée installée sur Windows XP, Vista, 7, 8 et 10 appelée SAPI (Speech Application Programming Interface).

L'API Microsoft Speech est ce qui est utilisé pour le texte. fonctionnalité d'accessibilité to-speech intégrée à Windows. Vous pouvez également écrire des programmes qui appellent l'API, ce qui vous permet de laisser parler vos applications, mais c'est pour les développeurs.

Faire en sorte que votre ordinateur dise ce que vous voulez est vraiment facile! Dans cet article, je vais vous montrer comment créer un script VBS qui prendra une entrée de texte d'un utilisateur et ensuite le parler. Je vais également mentionner comment coder en dur le texte que vous voulez parler, puis programmer ce script pour qu'il s'exécute sur des événements spécifiques comme le démarrage de Windows ou la déconnexion.

Texte d'entrée, message de discussion

Commençons par un script simple qui fera apparaître une boîte de dialogue dans laquelle vous pourrez taper ce que Windows veut dire. Tout d'abord, allez-y et ouvrez le Bloc-notes.

Étape 1:Collez le texte suivant dans un nouveau document:

Dim message, sapi
message = InputBox ("Entrez le texte que vous voulez parler", "Speak This")
Définissez sapi = CreateObject ("sapi.spvoice")
message sapi.Speak

Notez que lorsque vous copiez du texte depuis votre navigateur Web et que vous le collez dans le Bloc-notes, les citations génèrent des problèmes . Avant de sauvegarder le fichier, vous devez passer et supprimer chaque citation (") et retaper le devis. Dans l'exemple ci-dessous, il y a six citations. Il devrait ressembler à l'image ci-dessous.

make computer speak

Maintenant, quand vous allez enregistrer le fichier, donnez-lui un nom, mais assurez-vous aussi tapez .VBSaprès le nom. Ensuite, pour la zone Enregistrer en tant que type, choisissez Tous les fichiersà la place des documents texte par défaut.

make computer talk

Maintenant double-cliquez sur le fichier VBS et vous devriez voir une boîte de saisie où vous pouvez taper le texte que vous voulez parler! Tapez quelque chose et cliquez sur OK.

speak dialog box

Si vous avez tout fait correctement, vous devriez entendre une voix masculine ou féminine prononcer votre phrase. Si vous obtenez un message d'erreur, assurez-vous de copier et coller à nouveau le texte et de remplacer ces citations.

Configurer les paramètres SAPI Voice

C'est amusant, mais nous pouvons aussi configurer notre petit ordinateur parlant avec des paramètres différents. Nous pouvons changer le volume, la rapidité ou la lenteur de la voix et changer le genre entre homme et femme. Voici un exemple de code où j'ai ajouté quelques lignes supplémentaires.

Dim message, sapimessage = InputBox ("Entrez le texte que vous vouloir parler "," Parler ceci ")
Définir sapi = CreateObject (" sapi.spvoice ")
Définir sapi.Voice = sapi.GetVoices.Item (1)
sapi.Rate = 0
sapi.volume = 100
message sapi.Speak

Le taux par défaut est 0 et la plage va de -10 à 10. -10 la voix parlera super lentement et 10 parlera super vite. Le volume est défini par défaut sur 100 et la plage est comprise entre 0 et 100. La ligne commençant par Set sapi.Voicevous permet de passer à une autre voix, si elle est installée sur votre système.

Notez que le nombre de voix que vous pouvez choisir dépend du système d'exploitation. Dans Windows 7, il n'y a qu'une seule voix, Microsoft Anna.

installed voices

Dans Windows 10, il y a deux voix: Microsoft David et Microsoft Zira ci-dessous.

microsoft davis voice

Microsoft Zira voix

S'il n'y a qu'une seule voix installée sur votre système , vous devez changer cela dit sapi.GetVoices.Item (1)à sapi.GetVoices.Item (0), sinon vous obtiendrez un message d'erreur lorsque vous essayez d'exécuter le script. Vous pouvez également créer un autre document Bloc-notes et collez le code ci-dessous, qui vous indiquera quelles voix sont installées. Enregistrez-le en tant que fichier .VBS comme indiqué ci-dessus et exécutez-le.

Définissez VObj = CreateObject ("SAPI.SpVoice")
pour chaque Voix dans VObj.getvoices
I = I + 1
msgbox "" & amp; (I - 1) & amp; "-" & amp; Voice.GetDescription
Suivant

Jusqu'à présent, nous utilisions cette boîte de dialogue pour entrer du texte, mais vous pouviez simplement taper votre message dans le fichier de script. Cela serait utile si vous vouliez planifier le script pour qu'il s'exécute automatiquement. Évidemment, cela peut être utilisé pour blaguer vos amis et votre famille et ça marche très bien.

Imaginez quelqu'un qui allume son ordinateur et entend l'ordinateur lui dire «Bonjour John, je suis très endormi, s'il vous plaît don ne me dérange pas aujourd'hui! "quand il démarre! Je peux vous promettre de l'expérience, c'est hystérique et vous devriez certainement essayer.

Pour coder en dur le message, changez simplement la dernière ligne à quelque chose comme ceci:

sapi.Speak "Bonjour John, je suis très fatigué aujourd'hui!"

Fichier de script Schedule

Maintenant que vous avez codé en dur votre message pour votre cible, vous devez simplement l'exécuter quand vous le voulez. Si vous êtes technophile, vous pouvez utiliser un programme comme AutoIt, qui vous permettra de faire des choses extrêmes comme exécuter votre fichier script quand un certain programme est ouvert ou quand une fenêtre est agrandie ou réduite.

Je n'ai pas le temps d'entrer dans tout ça dans ce post, mais heureusement, Microsoft a une fonctionnalité intégrée appelée Task Scheduler qui vous permet de faire facilement des choses compliquées avec des scripts.

Mon article précédent s'intéresse à comment planifier un fichier de script à exécuter lorsque certains événements se produisent dans Windows. Si vous avez des difficultés à faire fonctionner votre script, n'hésitez pas à poster un commentaire et je vais essayer de vous aider. Profitez-en!

Comment dicter vos textes avec un outil déjà présent sur votre PC ?

Articles Similaires:


8.09.2015