Please visit our sponsor
UNKNOWN
'**************************************
' Name: Make Characters Talk! MS Agent
' Description:It will make a character o
' f your choice(many to download) talk.
' By: Mike Miller
'
'
' Inputs:The MS Agent Character
'
' Returns:Voice
'
'Assumes:Make Sure you have MS Agent ins
' talled and TruVoice, you can get these f
' rom Microsoft's Website at http://msdn.m
' icrosoft.com/workshop/imedia/agent/defau
' lt.asp. This will allow you to make the
' characters talk. After you got the files
' , just insert the ms agent active x cont
' rol and you are on your way. All you got
' to do then is insert the code and downlo
' ad whatever characters you want to use,
' for example a cool parrot, a butler, sur
' fmonkey and much more!
'
'Side Effects:none
'This code is copyrighted and has limite
' d warranties.
'Please see http://www.Planet-Source-Cod
' e.com/xq/ASP/txtCodeId.2750/lngWId.1/qx/
' vb/scripts/ShowCode.htm
'for details.
'**************************************
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