Agent microsoft (methode createobject)

Contenu du snippet

Et bien c'est un tout petit code Vbs pour appeller un agent Microsoft ,j'ai trouve la class dans la base de registre HKCR\Agent.Control ainsi que son CLSID

Source / Exemple :


Set Agent=CreateObject("Agent.Control")
Agent.connected=True
Agent.Characters.load "A"
Set Merlin=Agent.Characters("A")
Merlin.Show
merlin.play "Announce"
merlin.play "Congratulate"
merlin.play "DomAgic1"
merlin.play "DomAgic2"
merlin.play "Greet"
merlin.play "GetAttention"

merlin.speak "La soupe sera prete dans un an, n'attendez pas,HIHIHi"
merlin.play "Processing"

Wscript.sleep 20000
merlin.Stop
merlin.play "Wave"
merlin.Think "Enfin je peux Partir!!Wof"

Wscript.sleep 5000

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.