MSAgents
Ayudantes de Microsoft
Publicado: 27/Nov/2001 / Actualizado el
05/Dic/2001
Fecha: 27/11/2001
Autor: Giovanni Notarnicola (giovanninotarnicola@hotmail.com
)
Esto es lo nuevo (05/dic/2001):
Guille,
perdona, pero la colaboración que te mande tiene algunos fallos, por favor,
borra el código e introduce este fichero con un ejemplito que si funciona.
Gracias
Fichero con el código de ejemplo: giovanninotarnicola_agente.zip 1.21 KB
Este era lo que originalmente envió:
Este es un ejemplito muy sencillo sobre cómo
usar los ayudantes de Microsoft.
Éste en concreto es para Merlin, un ayudante que viene instalado en wl W2k.
Si no teneis W2k pero teneis office, solo teneis que sustituir la ruta y el
nombre por el del ayudante de office.
dim Agent dim Path dim Char dim Name Set Name = "Merlin" 'En el caso de office es CLIPPIT Set Path = "C:\WINNT\msagent\chars\" 'En el caso de office es "C:\Program Files\Microsoft Office\Office" Set Agent=CreateObject("agent.control.2") Agent.Connected = "1" Agent.Characters.Load Name, Path & Name & ".acs" Set Char=Agent.Characters.Character(name) With Char .Show .Moveto 320,240 .Speak "Hola Guille" .Moveto 280,450 .Hide End With