CODE: [Copy to clipboard]
set AgentControl=createobject("agent.control")
AgentControl.Connected = True
AgentControl.Characters.Load "Merlin", "Merlin.acs"
Set Merlin = AgentControl.Characters("Merlin")
Merlin.LanguageID = &H0409
Merlin.Get "State", "Showing, Speaking"
Merlin.Get "Animation", "Greet, GreetReturn"
Merlin.Show
Merlin.Get "State", "Hiding"
Merlin.Play "Greet"
Merlin.Speak "est says hello to everyone at cn-dos"
Merlin.Hide
wscript.sleep 10000
理论上所有电脑都能运行成功!应为Xp那个“搜索”功能就用了msagent,其它的应用还有Office助手,xx杀毒精灵等。Merlin是msagent的必备角色,可以根据系统情况改成其它的