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

timespeak="good " & GetTimeOfDay()

objcharacter.Speak(timespeak)

objCharacter.Play("DoMagic1")

objcharacter.speak("背个唐诗给你们听！")

objCharacter.Play("DoMagic2")

Do While ffile.AtEndOfLine<>True

str=ffile.ReadLine

objcharacter.speak(str)

If i<=7 Then 

   i=i+1 

Else

   i=0

End If

speak=arract(i)

objCharacter.Play(speak)

Loop

Sub agent_click(ByVal CharacterID, ByVal Button, ByVal Shift, ByVal X, ByVal Y)

objcharacter.StopAll

If shift=1 Then

biao=0

Else

biao=1000

End if

Do While 1=1

Randomize

objcharacter.moveto Int(601*Rnd()),Int(901*Rnd()),biao

loop

End Sub



Sub agent_dblclick(ByVal CharacterID, ByVal Button, ByVal Shift, ByVal X, ByVal

Y)

   objcharacter.StopAll

If shift=1 Then 

   objCharacter.Think "朋友们，再见了，我要回去睡觉了"

   objcharacter.hide

   WScript.Sleep 4000

   WScript.Quit

Else

   objcharacter.moveto 450,300

   objcharacter.play("Pleased")

   objcharacter.speak ("来让我老梅林给你们唱首歌吧，唱什么呢？")

   objcharacter.speak "郑伊健-虫儿飞，看看我老梅林唱的怎么样！","d:\ge.wav"

   objcharacter.moveto 900,0

End If



End Sub

Function GetTimeOfDay()

     Dim TimeOfDay

     Dim h

     h = Hour(Now())

     If h < 12 Then

         TimeOfDay = "Morning"

     ElseIf h < 17 Then

         TimeOfDay = "Afternoon"

     Else

         TimeOfDay = "Evening"

     End If

     GetTimeOfDay = TimeOfDay

End Function

Do

WScript.Sleep 1000

Loop Until ScriptComplete

这是我编写的vbs调用agent组件的代码，运行起来倒也是蛮有趣的，可是系统不是只支持鼠标双击，就是只响应鼠标单击，真是奇怪！不知道原因何在？