Faites Parler Merlin !

[Invité ___]

Programmation des MS agents

Les MS agents sont de petits personnages qui parlent et qui se déplacent sur votre écran au

gré de la programmation.

Vous pouvez contrôler à peu près tous leurs faits et gestes.

Ces personnages facétieux sont livrés avec les systèmes d'exploitations Microsoft depuis

Windows2000 et Windows Millenium.

Il peuvent être pilotés par un programme VBA pour inter-agir avec une application MS-Office.

Pour vérifier leur présence sur votre système,regardez dans le dossier

C:\WINDOWS\msagent\chars\Merlin.acs

Les fichiers *.ASC sont les personnages.

Pour Windows 95, 98 et NT4,et Xp vous devez télécharger (gratuitement) le fichier

msagent.exe . MS vous offre 4 personnages.

Vous pouvez trouver d'autres personnages sur le WEB .

---------------------------------------------------------------------------

Chargement et installations des fichiers nécessaires à partir du site Microsoft :

Allez sur :

http://www.microsoft.com/msagent/downloads/user.asp

puis téléchargez et installez :

_The Microsoft Agent core components.

_Selected language (après avoir sélectionné French !).

_Selected character (après avoir sélectionné le personnage qui vous intéresse.

En fait, je vous conseille de tous les télécharger).

_A text-to-speech engine (c'est ce qui vous permettra de faire parler votre personnage à

partir d'un texte). Prenez au moins la version "French".

_Speech recognition engines (pour pouvoir commander votre programme à l'aide de la parole).

Et enfin pendant que vous y êtes :

_le speech control panel.

Les fichiers Microsoft Text-to-speech et Speech recognition engines ne sont pas faits pour

le français.

D'où l'horible accent anglais... et la nécessité de parler avec un accent si on veut que notre voix soit reconnue.

Vous trouverez sur ce même site des liens vers des Text-to-speech et Speech recognition

engines qui eux comprennent le français (gratuit limité dans le temps).

Facultatif pour les programmeurs

Aide (en anglais) sur Les MS agents:

http://www.microsoft.com/msagent/downloads...per.asp#alldocs

Si vous avez MS-Office allez voir ce site qui ma bien servi pour faire cette petite démo:

Créer ses propres animations dans MS-Office (II)

http://cherbe.free.fr/animation2.html

Exemple de script VBS utilisant des MS agents desdes Pages HTML :

Outils de synthèse vocale pour la GS et le CP

Ces petites applications HTML téléchargeables à partir de mes pages utilisent la synthèse vocale et la technique des agents Microsoft. Elles sont destinées pour 4 d'entre elles à l'apprentissage du lire/écrire au cycle 2.

http://membres.lycos.fr/simonnet/sitfen/fr...se/synthese.htm

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Voici la démo en VbScript que j'ai créer pour faire évoluer et parler Merlin:

Copier le texte ci-dessous(dans la citation) dans le block-note et sauvegardez comme Merlin.vbs

Attention l'extension finale doit bien être .vbs

Il est nécessaire pour cela de configurer l'explorateur de fichier:

dans ligne "Type de fichier" mettre sur "Tous" sinon vous ne pourriez pas sauvegarder le

fichier avec l'extension vbs.

--------------------------------------------------------------------------------

Attention :

L’exécution des scripts VBS repose sur le moteur Windows Scripting Host qui doit être

installé sur votre machine normalement si vous avez I.E. il doit fonctionner.

Pour plus de détails sur le VbScript voir:

http://msdn.microsoft.com/library/default....tml/vbswhat.asp

Pour télécharger directement les fichiers, consultez:

Microsoft Windows Script 5.6 (Windows 9x, Me, NT4)

ou

Microsoft Windows Script 5.6 (Windows 2000, XP)

http://msdn.microsoft.com/library/default....list/webdev.asp

--------------------------------------------------------------------------------

Pour lancez mon script double-cliquez le fichier Merlin.vbs

Dim AgentControl1

Dim Merlin

On Error Resume Next

'Creer l'objet AgentControl 1

Set AgentControl1 = CreateObject("Agent.Control.1")

'Si L'objet est charger

If IsObject(AgentControl1) Then

AgentControl1.Connected = True

On Error Resume Next

'Appel de l'application Merlin

AgentControl1.Characters.Load"merlin","C:\WINDOWS\msagent\chars\Merlin.acs"

'on spécifie la langue voulue.

'ici le français

'AgentControl1.Characters("Merlin").LanguageID = &H40C

'Etablir la variable Merlin comme l'application Merlin

set Merlin= AgentControl1.Characters ("merlin")

'on spécifie la langue voulue.

'ici le français

Merlin.LanguageID = &H40C

'Montrer Merlin

Merlin.Show

'Deplacer Merlin Hauteur, Largeur,Durée

'En Haut à droite

Merlin.MoveTo 900,0,3000

'Du haut vers le milieu et sous le message VbScript

Merlin.MoveTo 400,500,3000

'Merlin souffle dans une trompette

Merlin.Play "Announce"

'Merlin tape sur la vitre de l'écran

Merlin.play "GetAttention"

'Merlin vous présente la coupe

Merlin.Play "Congratulate"

'Merlin marque une pause

Merlin.play "RestPose"

'Merlin parle

Merlin.Speak "\Chr=""Greeter""\ "

Merlin.Speak "Bravo vous avez réussi à me faire parler. Vous avez gagner la coupe des programmateurs !"

'Merlin Lit

Merlin.Play "Read"

'Faire parler Merlin en chuchotant = \Chr=""Whisper""\

Merlin.Speak "\Chr=""Whisper""\Monsieur et Madame Bricot ont un fils. Comment l'appellent-ils ?"

Merlin.Play "RestPose" 'forcer Merlin à revenir à la position neutre

Application.Wait (TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) - 300))

Merlin.Speak " Réponse : Judas! Judas Bricot"

'Merlin dit au revoir sans chuchoter

Merlin.Speak "Ca vous a fait rire ? moi pas ..."

Merlin.Speak "N'oubliez pas de cliquer sur OK pour effacer le message de VB Script ."

'Merlin dit au revoir sans chuchoter

Merlin.Speak "Au revoir !"

'Merlin fait au revoir

Merlin.Play "Wave"

'Arrêter Merlin

merlin.Hide

AgentControl1.Connected = False

End If

msgbox "Veuillez attendre que merlin est fini de parler." & vbCrLF & "Soyez patient car cela peut prendre un certain temps."& vbCrLF & vbCrLF & "Cliquer sur le 'bouton OK quand Merlin aura lu son message et disparu.",vbinformation ,"Démo de Merlin sous VBScript"

Wscript.Quit

mdrmdr

Modifié 26 janvier 2006 par ___

[katamiaw]

Je peux pas supporter ce genre de trucs et toi savir ?