关于Agent 角色代理使用（整理）

'使用控件：Microsoft Agent Control 2.0
Private Sub VbAcs_Click() '菜单 VbAcs单击事件
Dim Genie As IagentCtlCharacter '定义角色变量
Dim DataPath As String '定义角色文件变量
DataPath = App.Path + "/abc.acs"
If Not VbFile_Exist(DataPath) Then
Exit Sub
End If
If VbAcs.Tag = 0 Then
Agent1.Characters.Load "merlin", DataPath '装入角色，并给角色命名（不必和文件中一致）
VBab.Tag = 1
End If
Set Genie = Agent1.Characters("merlin") '定义角色集合变量为装入的角色
Genie.Show
Genie.Speak "欢迎使用*********！"
Genie.Play "Greet" '角色发出动作，需要角色本身支持才行
Genie.Play "Explain"
Genie.MoveTo 400, 400
Genie.Speak "****************************。"
Genie.Play "Confused"
Genie.Play "Decline"
Genie.Play "Read"
Genie.Speak "****************************。"
Genie.Play "ReadContinued"
Genie.Play "ReadContinued"
Genie.Play "Congratulate_2"
Genie.Speak "等着瞧吧……"
Genie.Play "Congratulate"
Genie.Play "Wave"
Genie.Hide
Genie.MoveTo 0, 0
Set Genie = Nothing '释放集合变量
End Sub