MSAgents

Ayudantes de Microsoft

Publicado: 27/Nov/2001 / Actualizado el 05/Dic/2001
Fecha: 27/11/2001
Autor: Giovanni Notarnicola ([email protected] )

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