Para DJ Miao

En referencias tendrás que añadir la referencia del "agente", (en la
solapa/ficha COM selecciona Microsoft Agent Control 2.0), la dll en sí, la crea
el Visual Studio

Nos vemos.
Guillermo
Microsoft VB MVP desde 1997
Te invito a mi sitio dedicado al VB y más...
http://www.elguille.info/
http://www.mundoprogramacion.com/
(puede que el correo usado sea anti-spam)


"Toni" wrote in message
news:2c8e01c49c8f$fbc5ff10$
Gracias Guille, ante todo agradecerte tu atencion. He
buscado esa dll en agregar componente COM y con la opcion
de busqueda del explorador y en mi disco no esta. Uso la
version 2003 de VS. Te agradezco si me haces alguna
indicacion o me puedes enviar la dll la verdad es que me
vendria bien añadir un agente a la app que hago.
Un saludo

esa DLL te la crea automáticamente, lo que tendrás que

hacer antes es añadir

una referencia a la dll COM que es la que te permitirá

usar los "agentes" en

tus aplicaciones.

Nos vemos.
Guillermo
Microsoft VB MVP desde 1997
Te invito a mi sitio dedicado al VB y más...
http://www.elguille.info/
http://www.mundoprogramacion.com/
(puede que el correo usado sea anti-spam)


"Toni" wrote in

message

news:2b5401c49b35$c6acc580$
No encuentro la dll asi que he buscado por google
Interop.AgentObjects.dll y me sale solo una pagina
francesa que no me lo deja bajar sin un registro previo
que no consigo hacer, (esta todo en frances) Me harias el
favor de pasarmela por correo?
Te lo agradezco.

Vi un post tuyo mas abajo sobre como poner un agente.
El caso es que despues de ponerlo me da un error
"El tipo agentobjects.agentclass no esta definido" ¿Me
falta algo?


Public Agente As New AgentObjects.AgentClass

If flagPeedy = False Then
flagPeedy = True
Agente.Characters("peedy").Show()
Agente.Characters("peedy").MoveTo(10, -2)
Agente.Characters("peedy").Play("Greet")
Agente.Characters("peedy").Think("Hola
bienvenido. Voy a estar monitoreando que todo te saga
bien.")
Me.RadioButton2.Checked = True
Else

flagPeedy = False
Agente.Characters("Peedy").Hide()
Me.RadioButton1.Checked = True
End If
.

.