Médiaforma

Message vocal Date et heure au démarrage de l’ordinateur

Print Friendly

Dans une rubrique précédente (http://www.mediaforma.com/un-message-vocal-au-demarrage-du-pc/), vous avez appris à émettre un message vocal au démarrage du PC. Un internaute m’a demandé s’il serait possible de dire la date et l’heure au démarrage du PC. Eh bien oui : il suffit pour cela d’utiliser les fonctions VBScript date() et heure(). Si vous avez créé le fichier bonjour.vbs, comme indiqué dans la rubrique « Un message vocal au démarrage du PC », cliquez sur Démarrer, sur Tous les programmes puis sur Démarrage. Cliquez du bouton droit sur le fichier Bonjour.vbs et sélectionnez Modifier dans le menu. Modifiez le fichier comme ceci :

Dim speaks, speech
speaks="Nous sommes le " & date()
Set speech=CreateObject("sapi.spvoice")
speech.Speak speaks
speaks="Il est "& time()
speech.Speak speaks

Sauvegardez ce fichier, puis exécutez-le à partir du menu Démarrer, pour avoir un aperçu de ce que va dire Windows au démarrage.

Bluffant non ?

 

Pour aller plus loin
Toutes les techniques permettant de faire parler votre PC et de lui donner des ordres vocaux sont traitées dans un eBook Mediaforma Learning.

Cliquez ici pour vous le procurer

Vous avez aimé cet article ? Partagez-le avec vos réseaux...
 
Comments

Bonjour
J’ai testé le fichier vbs : la date et l’heure me sont données en anglais
Y-a-t-il un moyen de remédier à ceci ?
Cordialement
Patrick

Bonjour,

Consultez l’article suivant :
http://www.mediaforma.com/faire-parler-windows-en-francais/

Vous verrez comment installer une voix française.

Bravo Michel, ça fonctionne du premier coup sous windows 10. Dommage que la fonction date affiche le mois en nombre au lieu de nommer le mois, mais ça donne une piste d’amélioration à faire soi-même.

Testé sous windows xp, cela donne les mois en toutes lettres. Module fr installé auparavant.
http://www.foad-spirit.net/voix_synthese/RSSolo4French.zip

Bonjour
Une petite amélioration pour la date

speaks= »Nous sommes le « & WeekDayName(WeekDay(date)) & Day(date) & MonthName(Month(date)) & Year(date)

Merci pour ce script
Salut

Leave a Reply