|
|
Post by Guilect on May 9, 2008 13:19:13 GMT -5
Option Explicit
Dim AgentControl
On Error Resume Next
Set AgentControl = CreateObject("Agent.Control.1")
If IsObject(AgentControl) Then
AgentControl.Connected = True
Dim merlin
On Error Resume Next
' You might need to change this line to suit your system
' The Agent name and directory may change.
AgentControl.Characters.Load "merlin", "C:\WINDOWS\Msagent\CHARS\merlin.ACS"
Set merlin = AgentControl.Characters ("merlin")
merlin.Get "state", "Showing"
merlin.Get "state", "Speaking"
merlin.MoveTo 20, 20
merlin.Show
merlin.Get "state", "Moving"
merlin.MoveTo 200, 200
merlin.Speak ("Hello!! I'm merlin!")
pause 1000
merlin.Speak ("Bye!")
merlin.Hide
End If
|
|
|
|
Post by matthew on May 9, 2008 13:27:13 GMT -5
Nice example, it worked fine on my computer.  |
|
|
|
Post by u9 on May 10, 2008 5:51:32 GMT -5
works on xp too |
|
