Les MS-Agents
Les MS agents", c'est une technologie de Microsoft qui semble faire suite au compagnon d'Office. Il s'agit de petit personnages que le programmeur peut animer et faire parler. Comme c'est basé sur la technologie ActiveX, ils peuvent être manipulés aussi bien par VB - VBA que VBScript, C++ etc.
Tu peux aller voir la page d'accueil: http://www.microsoft.com/msagent/
Astuce illustrée par ce classeur
cm-merlin
Auteur : Clément Marcotte
Mots clefs associés à cette page : parler, ms-agent
- Vous devez vous identifier ou créer un compte pour écrire des commentaires

ça semble trés bien MAIS !!!
ça semble trés bien MAIS !!!
Je me bats avec cette connerie d’ordinateur depuis que j’ai téléchargé le fichier « merlin » mais il refuse de me parler (l’ordinateur).
J’ai pourtant téléchargé «sapi » sous Windows et j’arrive à faire parler « C:\Program Files\Microsoft Speech SDK 5.1\Bin\TTSApp » (S’est vrai qu’il a un très fort accent anglais) je n’arrive pas à téléchargé les autres voix sur www.microsoft.com/msagent/downloads.htm - core.
Comment émuler « TTSApp » depuis « Exel VB » ?
De plus j’ai plusieurs caractères de MSagent :
CLIPPIT : Trombine
DOT : Bille de clonw
F1 : MécanOffice
Genie : Bon Génie
LOGO : Logo Office
Merlin : Merlin
MNATURE : Mére Nature
OFFCAT : Tifauve
Peedy : Peedy
Robby : Robby
ROCKY : Toufou
Tous ne supportent pas les mêmes commandes d’animations. Ex : ROCKY «Toufou pour les intimes » ne semble pas être un expert en magie « Play Animation:="DoMagic1" » ne l’inspire pas.
Peut-on trouver les commandes de toutes les animations de tous ces gugusses ?
Je me suis permis une très (trés) légère modification du code car le premier caractère trouvé dans le répertoire étais doublé dans le TextBox :
Private Sub UserForm_Activate()
lenom = Dir("c:\windows\msagent\chars\*.acs")
lenom = Left(lenom, Len(lenom) - 4)
'Combo1.AddItem lenom (La petite modif)
Combo1.Text = lenom
lenom = Dir("c:\windows\msagent\chars\*.acs")
Do
lenom = Left(lenom, Len(lenom) - 4)
Combo1.AddItem lenom
lenom = Dir
Loop Until lenom = ""
Francais.Value = True
End Sub
Bill
pour charger les voix
pour charger les voix françaises LH Pierre et LH Virginie :
http://activex.microsoft.com/activex/controls/agent2/lhttsfrf.exe
--
HTH
;o)))
Pierre et Virginie
Mercie le modeste.
Je n’ai pas réussi à faire marcher ton lien mais j’ai quand même put atteindre Pierre et Virginie en téléchargent « readerTTSInstallFRA »
Cela fonctionne trés bien sous Windows ; Il me reste à les émulé sous Exel VB !!!
Bill