Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Движок бота (https://forum.antichat.xyz/showthread.php?t=69021)

-Hormold- 01.05.2008 21:55
Движок бота
 
Помогите найти движок бота(dll)...
Что-то типо SmartBot.
Могут быть подобные?

Amoura 01.05.2008 21:57
Цитата:
Сообщение от -Hormold-
Помогите найти движок бота(dll)...
Что-то типо SmartBot.
Могут быть подобные?
__http://boltunstyle.narod.ru/smartbot/index.htm оно?

-Hormold- 01.05.2008 22:00
Это SmartBot...
Он неработает у меня что-то...

[HEX]Ice 01.05.2008 23:00
В компоненте TICQClient есть пример простого бота,который создан с использованием функций компонента.
_http://sourceforge.net/projects/ticqlib

-Hormold- 01.05.2008 23:22
Разобрался.
Работает Smartbot.
Кинадем listbox,edit и кнопку.
Вот код:
Цитата:
unit bot;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
ListBox1: TListBox;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
function GetReplyTo(const InText: PChar; OutText: PChar; Len: integer): PChar;stdcall;external 'smartbot.dll' name 'GetReplyTo';
function LoadMind(MindFile: PChar): integer;stdcall;external 'smartbot.dll' name 'LoadMind';
function SaveMind(MindFile: PChar): integer;stdcall;external 'smartbot.dll' name 'SaveMind';
procedure TForm1.FormCreate(Sender: TObject);
var
MindFile: pchar;
begin
MindFile := 'mind.dat';
LoadMind(MindFile);

end;

procedure TForm1.Button1Click(Sender: TObject);
var
otvet:array[0..255] of char;

begin
if GetReplyTo(PansiChar(Edit1.text),otvet,High(otvet) ) = @otvet then begin
ListBox1.Items.Add('Ты: '+Edit1.text);
ListBox1.Items.Add('Бот: '+otvet);
end;
end;

end.


Время: 07:22