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