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

ir al índice