PDA

Просмотр полной версии : как отослать пакеты скриптом?


Ribnadzor
14.05.2011, 06:05
Из клиента запускается bbs (Command:_bbshome), в ней встроенный баффер. Пакеты я выловил. Задача в том, чтобы отослать их не из клиента, а из бота (L2NET). То есть нужен скрипт, который посылал бы пакеты с некоторой задержкой. Если кому не лень - ткните пожалуйста носом в то место, где уже кто-то решал подобную задачу?:search:

wimax
14.05.2011, 07:44
ты пакеты отпровляиеш не из бота а из l2phx так что разницы нету что ето бот либо клиент.
ну скрипт чтота типа такого хз будет работать или нет ибо писал быстро =)

Const
Name='Avrelio'; //ник
paket='0000000000'; //сам пакет на бафф
var
Timer01: TTimer;
procedure Init;
begin
Timer01:=TTimer.Create(nil); //выделяем памать и т.п.
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=true; //врубаем сразу таймер после запуска
Timer01.interval:=250000; //пишем как часто будет слатса пакет
end;

procedure Free;
begin
Timer01.free;
end;



procedure OnTimer01(Sender: TObject);
begin
pck:='';
buf:=HStr(paket);
SendToServerEx(Name);
end;

begin
end.

Ribnadzor
14.05.2011, 21:43
Баальшое пасибо! А то я так примерно и представлял, что кроме собственно "послать пакет" еще нужно какое-то оформление, в котором я пока не копенгаген=)