◎Vbs调用MsAgent组件的新代码，可是问题是，为什么双击单击不能同时支持？

arract=array("Read","RestPose","Write","Process","Pleased","Idle3_1","Idle1_1","Show","GestureUp")

Set fso=CreateObject("scripting.filesystemobject")

Set ffile=fso.OpenTextFile("d:/shi.txt")

 

strAgentName = "Merlin"

strAgentPath = "C:/Windows/Msagent/Chars/" & strAgentName & ".acs"

Set objAgent = WScript.CreateObject("Agent.Control.2","agent_")

objAgent.Connected = TRUE

objAgent.Characters.Load strAgentName, strAgentPath

Set objCharacter = objAgent.Characters.Character(strAgentName)

objCharacter.LanguageID = &H409

objcharacter.MoveTo 900, 600

objcharacter.Show

objcharacter.MoveTo 900, 0

i=0