Horloge parlante W10 W11

[Marcel_By_mtr]

Vu l’intérêt porté par la communauté pour le post de Manoa, nous vous proposons un tuto complet.

Test "OK" sur : Windows 10 21H1 1043.1110
Test "OK" sur : Windows 11 22000.100 Dev

1- Créer un fichier VBS
-Dans "Bloc-notes" copier/coller le code ci-dessous.

Dim speaks, speech
speaks="Il est "& hour(time) & "heures"
Set speech=CreateObject("sapi.spvoice")
speech.Speak speaks

-Sauver le fichier en ajoutant l'extension "vbs". Exemple : Horloge_parlante.vbs


2-Automatiser la Tâche.
-Ouvrer le "Planificateur de tâches" en mode ADMINISTRATEUR
-Sélectionner... Créer une tâche

-Dans l'ongle "Général"... Entrer le nom de la tâche que vous voulez créer.
-Configurer pour... Windows 10 via le sélecteur

-Dans l'onglet "Déclencheurs"
-Sélectionner "Nouveau"

-Entrer les paramètres ci-dessous
-Valider avec "OK"

-Dans l'onglet "Actions"
-Sélectionner "Nouveau"
-Sélectionner "Parcourir"
-Sélectionner le fichier "vbs" que vous avez créer
-Valider avec "OK"

Fermer la fenêtre Windows... Votre tâche est planifiée.

Note:
Dans ce tutoriel, je n'ai activé que les fonctions minimales. D'autres paramètres restent possibles.

 

[Marcel_By_mtr]

Pour Tester ou pour supprimer votre Tâche.

 

[NewKiwi]

Merci.

 

[Manoa]

oui c'est ça sauf que lorsque je clique sur executer il me demande quel logiciel pour ouvrir le fichier .vbs

 

[Manoa]

ah oui pardon
suis sous windows 11 build 22000.100.
quand je clique sur exécuter j'ai ça...

21/31/qif1.jpeg - Visionneuse Zupimages

zupimages.net

en revanche quand je double clique en manuel sur le fichier vbs j'entends bien la voix

 

[Marcel_By_mtr]

Via le planificateur : lorsque je clique sur executer il me demande quel logiciel pour ouvrir le fichier .vbs
En Direct : Double clic sur le fichier "vbs" = Horloge vocale OK

Faite le test suivants:
Exécuter le "Planificateur de Tâche" en mode Administrateur et tester le vbs.
-------------------------------------
Note *1: Il nous reste beaucoup a découvrir sur ce W11
Note *2: Voir post #7 --> Fonctionnement = OK

 

[txuku]

Bonjour

On s amuse comme on peut !!!

Le code du post de Manoa foire chez moi
celui de Marcel_By_MTR
fonctionne bien !
En cherchant un peu j ai trouve celui ci qui interesse le clavier :

Dim Message, Speak Message=InputBox("Ketik kata yang ingin di ucapkan","ILFEN") Set Speak=CreateObject("sapi.spvoice") Speak.Speak Message

 

[tequila71]

Merci

 

[pepère]

Merci pour ce partage

 

[Ali56]

Très bien merci

 

[Maverick3862]

Merci les amis ..

 

[Pierre]

Merci.

 

[justot]

merci