Help, quick.

How can i set the character ID:

Private Sub Form_Load()
Form1.Agent1.Characters("Wizard").Commands.Add "Exit", "Quit", "(Quit|Exit|End)", True, True

End Sub

it gives me an eroro sayind that the ID is not valid.Pelas help me, bacause i have to present my program with a least of ten function by monday.

numibesi

[dimava]

I got this code from an example project that I downloaded from microsoft:

Dim Genie As IAgentCtlCharacterEx
Const DATAPATH = "genie.acs"


Private Sub Form_Load()
    Agent1.Characters.Load "Genie", DATAPATH
    Set Genie = Agent1.Characters("Genie")
    Genie.LanguageID = &H409
    TextBox.Text = "Hello World!"
End Sub

Private Sub Button_Click()
    Genie.Show
    Genie.Speak TextBox.Text
    Genie.Hide
End Sub

also, dont forget to add the ms agent ocx.

It say´s "The system can´t find the given path", and the debug goes to:

Agent1.Characters.Load "Genie", DATAPATH

Any ideas.

numibesi

[dimava]

do you have the Genie Character? if not goto microsoft.com/msagent
and download the Genie (or other characters)

[dsy5]

Make sure you are pointing to the full path where the character is stored.
e.g.

DATAPATH = "C:\windows\msagent\chars\genie.acs"
Agent1.Characters.Load "Genie", DATAPATH

[dimava]

I dont think that thats nessesary as long as its in the c:\windows\msagent\chars folder

[dsy5]

Dimava:

You're right you don't need to specify it - I just tried it.
Perhaps he has them in a different folder or, as you mentioned earlier, hasn't downloaded it.