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

最新推荐文章于 2025-03-22 00:52:38 发布

早起旺财

最新推荐文章于 2025-03-22 00:52:38 发布

阅读量1.7k

点赞数

分类专栏： VB 文章标签： microsoft string

本文链接：https://blog.youkuaiyun.com/adminlhb/article/details/713878

版权

VB 专栏收录该内容

15 篇文章

订阅专栏

本文介绍了如何使用Microsoft Agent Control 2.0来加载角色并进行交互。通过定义角色变量Genie和角色文件DataPath，加载名为'merlin'的角色，并执行一系列动作和语音对话，包括欢迎语、播放预设动作以及隐藏角色等操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'使用控件：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