Agents Microsoft (Découverte et Contrôle)

By | 20 September 2009

exagent

Agents Microsoft (Découverte et Contrôle)

Vous ne savez peut être pas se que sont les agents microsoft. Vous avez du les voir surement déja
Il se trouve physiquement sur votre ordinateur C:WINDOWSmsagentchars, si vous vous trouvez sous XP merlin est disponible par défaut sur votre système.

Voici un le code vbscript pour lancer et manipuler cette agent :

 strAgentName = "Merlin"
strAgentPath = "c:windowsmsagentchars" & strAgentName & ".acs"
Set objAgent = CreateObject("Agent.Control.2")
objAgent.Connected = TRUE
objAgent.Characters.Load strAgentName, strAgentPath
Set objCharacter = objAgent.Characters.Character(strAgentName)
objCharacter.Show
objCharacter.Play "GetAttention"
objCharacter.Speak "Salut, Comment vas tu ?"
objCharacter.Play "LookDown"
objCharacter.Think "Regarde comme je vole ...."
objCharacter.MoveTo 500,400
objCharacter.Play "Pleased"
objCharacter.Play "Congratulate"
objCharacter.Play "Congratulate_2"
objCharacter.Play "Decline"
objCharacter.Play "DoMagic1"
objCharacter.Play "GetAttentionReturn"
objCharacter.Speak "Au revoir."
objCharacter.Hide
Do While objCharacter.Visible = TRUE
Wscript.Sleep 100 Loop

Après avoir testé, on peut voir les possibilités pour rendre ces scripts plus attrayant, ils peuvent servir d’aide à l’utilisateur…

Site Web officiel de Microsoft consacré aux agents

Site Microsoft regroupant les différents code correspondant au comportement de l’agent ici

Leave a Reply

Your email address will not be published. Required fields are marked *