Форум: "Основная";
Текущий архив: 2003.12.19;
Скачать: [xml.tar.bz2];
ВнизРабота с помошником в (*.acm) Найти похожие ветки
← →
DNS (2003-12-06 04:36) [0]При выполнении VBS Scripta
<SCRIPT LANGUAGE="VBScript">
Dim myAgent
Set myAgent = CreateObject("Agent.Control.2")
If IsObject(myAgent) Then myAgent.Connected = True
myAgent.Characters.Load "merlin"
Set merlin = myAgent.Characters("merlin")
merlin.Show
merlin.Speak "Сюрприз!"
merlin.MoveTo 200, 200
merlin.Play "Wave"
merlin.Speak "Выбери меня своим персонажем в Office, пожалуйста!"
</SCRIPT>
загружаеться помощник и болтает...
А ка можно в Delphi загрузить помощника и управлять им ?
← →
DNS (2003-12-06 04:41) [1]Пример выполнения скрипта
http://doctor-nosow.narod.ru/
← →
DNS (2003-12-06 14:57) [2]Никто не сталкивался?
← →
Юрий Федоров (2003-12-06 15:27) [3]да напиши тоже самое на Delphi, и все :-)
Должно заработать
← →
DNS (2003-12-06 21:58) [4]Не заработало :(
Можно пример? Или где инфу почитать по этой теме?
← →
Shirson (2003-12-07 11:45) [5]Правда, что-ли?
Или с адаптацией проблемы? :)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, comobj;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
myAgent,merlin:variant;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
myAgent:=CreateOLEObject("Agent.Control.2");
myAgent.Connected:= True;
myAgent.Characters.Load("Merlin");
merlin:= myAgent.Characters["merlin"];
merlin.Show;
merlin.Speak("Сюрприз!");
merlin.MoveTo(200,200);
merlin.Play("Wave");
merlin.Speak("Выбери меня своим персонажем в Office, пожалуйста!");
end;
end.
Какие проблемы?
← →
DNS (2003-12-07 14:37) [6]Вопрос 1:
Как узнать все возможные действия?
Вопрос 2:
Как сделать так, чтобы текст в Baloon появлялся не по словам а сразу?
Вопрос 3:
Без Active X никак нельзя? А то таскать его собой и ставить в системе... Дольше грузиться :(
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.12.19;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c