|
ПОМОГИТЕ!!НИД ПРОГА ДЛЯ СПАМА В ЧАТ - Боты, скрипты и прочий софт для Lineage 2 - Весь софт по Lineage 2 и все, что связано с ботоводством, скриптописанием и брутом - в этом разделе |
06.01.2010, 19:12
|
#1
|
|
|
|
Разведчик
|
Регистрация: 05.01.2010
Сообщений: 12
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
ПОМОГИТЕ!!НИД ПРОГА ДЛЯ СПАМА В ЧАТ
Кто можжет помочь нужна прога чтобы просто орал одно и тоже через опр время!! можно чтото типо автокликера который будет юзать готовый макрос.
|
|
|
06.01.2010, 19:14
|
#2
|
|
|
|
Старший сержант
|
Регистрация: 27.05.2009
Сообщений: 199
Популярность: 643
Сказал(а) спасибо: 207
Поблагодарили 267 раз(а) в 126 сообщениях
|
Re: ПОМОГИТЕ!!НИД ПРОГА ДЛЯ СПАМА В ЧАТ
|
|
|
06.01.2010, 19:36
|
#3
|
|
|
|
Пехотинец
|
Регистрация: 28.10.2009
Сообщений: 61
Популярность: 157
Сказал(а) спасибо: 91
Поблагодарили 84 раз(а) в 32 сообщениях
|
Re: ПОМОГИТЕ!!НИД ПРОГА ДЛЯ СПАМА В ЧАТ
Или же скрипт для phx для флуда в чат)
Код:
const
MaxMessages = 1000;
var
m: TMemo;
frm:TForm;
penel: TPanel;
etext: tedit;
button: tbutton;
box : TCheckBox;
every : TEdit;
_Name : TEdit;
i: Integer;
tm:TTimer;
Message, Name: String;
procedure SendMs(Sender: TObject);
var
Msg, Nm: String;
dd: integer;
begin
if etext.text<>'' then begin
buf:=#$38;
case etext.text[1] of
'!': begin
Msg:=Copy(etext.text,2,1000);
dd:=1;
nm:='';
end;
'$': begin
Msg:=Copy(etext.text,2,1000);
dd:=9;
nm:='';
end;
'+': begin
Msg:=Copy(etext.text,2,1000);
dd:=8;
nm:='';
end;
'"': begin
dd:=pos(' ', etext.text);
Msg:=Copy(etext.text,dd+1,1000);
nm:=Copy(etext.text,2,dd-3);
dd:=2;
end;
'#': begin
Msg:=Copy(etext.text,2,1000);
dd:=3;
nm:='';
end;
'@': begin
Msg:=Copy(etext.text,2,1000);
dd:=4;
nm:='';
end;
else begin
Msg:=etext.text;
dd:=0;
nm:='';
end;
end;
WriteS(Msg);
WriteD(dd);
if nm<>'' then WriteS(Nm);
SendToServerEx(_Name.Text);
end;
end;
procedure onNewCommand(obj:TObject;key:string);
var i:integer;
var symbol:Variant;
var after:string;
begin
if (key[1]=#$0D) then begin
SendMs(obj);
symbol := etext.Text[1];
after := '';
if symbol = '#' then after := '#';
if symbol = '!' then after := '!';
if symbol = '@' then after := '@';
if symbol = '$' then after := '$';
if symbol = '%' then after := '%';
etext.Text := after;
end;
end;
procedure onTimer(Sender:TObject);
begin
tm.Interval := StrToInt(every.Text);
if box.checked = true then SendMs(Sender);
end;
procedure Init;
begin
frm := TForm.Create(nil);
frm.Caption := 'Chat';
frm.BorderStyle := bsSizeable;
frm.Position := poDesigned ;
frm.Width:=400;
frm.Height:=600;
m:=TMemo.Create(frm);
m.parent:=frm;
m.align:=alClient;
m.ReadOnly:=true;
m.ScrollBars:=ssBoth;
penel:=TPanel.Create(frm);
penel.parent:=frm;
penel.align:=alBottom;
penel.height:=48;
etext:=tedit.Create(penel);
etext.parent:=penel;
etext.align:=alTop;
button:=tbutton.Create(penel);
button.parent:=penel;
button.top := etext.height;
button.caption:='Send';
button.onClick:=@SendMs;
box := TCheckBox.Create(penel);
box.parent := penel;
box.Top := etext.height + 2;
box.Left := button.width + button.left +2;
box.Caption := 'Шторм через: ';
every:=tedit.Create(penel);
every.parent:=penel;
every.Left := box.Left + box.Width;
every.Top := button.top;
every.Text := IntToStr(3000);
tm := TTimer.Create(frm);
tm.Interval := 1000;
tm.Enabled := true;
tm.OnTimer := @OnTimer;
etext.OnKeyPress := @onNewCommand;
_Name:=tedit.Create(frm);
_Name.parent:=frm;
_Name.align := alTop;
_Name.Text := '';
frm.Show;
end;
procedure SaveToFile(prefix:string);
var name:string;
begin
name := prefix+'.'+ConnectName+'.'+DateToStr(Date)+'.'+TimeToStr(Time)+'.txt';
while Pos(':',name) <> 0 do begin
name[Pos(':',name)] := '-';
end;
m.Lines.SaveToFile(name);
end;
procedure Free;
begin
SaveToFile('ChatLog');
box.Free;
every.Free;
tm.Free;
etext.Free;
button.Free;
penel.Free;
m.Free;
frm.Free;
end;
var tp:integer;
var ct:string;
var MessageCounter:integer;
begin
if _Name.Text = '' then _Name.Text := ConnectName;
if FromServer and (ConnectName = _Name.Text) and (pck[1]=#$4a) then
begin
i:=10;
name:=ReadS(i);
message:=ReadS(i);
tp := ReadD(6);
ct := '???';
if tp = 0 then ct := 'GNR';
if tp = 8 then ct := 'TRD';
if tp = 3 then ct := 'PRT';
if tp = 4 then ct := 'CLN';
if tp = 9 then ct := 'ALY';
ct := DateToStr(Date) + ' '+ TimeToStr(Time) + ', '+ ct;
if name='' then name:='Объявление: ';
m.Lines.Add('['+ct+'] '+Name+': '+message);
if MessageCounter > MaxMessages then begin
SaveToFile('Backup');
//m.Lines.Add('BACKUPED');
MessageCounter := 0;
end;
MessageCounter := MessageCounter+1;
end;
end.
Последний раз редактировалось Sorceres; 06.01.2010 в 19:39.
|
|
|
07.01.2010, 10:24
|
#4
|
|
|
|
Разведчик
|
Регистрация: 05.01.2010
Сообщений: 12
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: ПОМОГИТЕ!!НИД ПРОГА ДЛЯ СПАМА В ЧАТ
а как и в чем юзать этот скрипт?
|
|
|
07.01.2010, 10:35
|
#5
|
|
|
|
Разведчик
|
Регистрация: 05.01.2010
Сообщений: 13
Популярность: 10
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: ПОМОГИТЕ!!НИД ПРОГА ДЛЯ СПАМА В ЧАТ
Поидее командакоторая отвечает за то что напишет скрипт это writes()
Попробуй поищи сам. Я щас тоже посмотрю если что напишу.
|
|
|
07.01.2010, 10:44
|
#6
|
|
|
|
Сержант
|
Регистрация: 15.08.2009
Сообщений: 149
Популярность: 1012
Сказал(а) спасибо: 74
Поблагодарили 123 раз(а) в 53 сообщениях
|
Re: ПОМОГИТЕ!!НИД ПРОГА ДЛЯ СПАМА В ЧАТ
Скрипт Sorceres'а надо юзать в l2phx, введи в гугле и найдёшь без проблем...
п.с. на вирусы ток проверяй)
|
|
|
07.01.2010, 11:03
|
#7
|
|
|
|
Разведчик
|
Регистрация: 05.01.2010
Сообщений: 13
Популярность: 10
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: ПОМОГИТЕ!!НИД ПРОГА ДЛЯ СПАМА В ЧАТ
Чем тебе не нравитсявышепреведённый скрипт?
|
|
|
07.01.2010, 11:06
|
#8
|
|
|
|
Сержант
|
Регистрация: 15.08.2009
Сообщений: 149
Популярность: 1012
Сказал(а) спасибо: 74
Поблагодарили 123 раз(а) в 53 сообщениях
|
Re: ПОМОГИТЕ!!НИД ПРОГА ДЛЯ СПАМА В ЧАТ
|
|
|
07.01.2010, 11:29
|
#9
|
|
|
|
Разведчик
|
Регистрация: 05.01.2010
Сообщений: 12
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: ПОМОГИТЕ!!НИД ПРОГА ДЛЯ СПАМА В ЧАТ
спс шас поишу скачаю попробую
|
|
|
07.01.2010, 13:55
|
#10
|
|
|
|
Сержант
|
Регистрация: 15.08.2009
Сообщений: 149
Популярность: 1012
Сказал(а) спасибо: 74
Поблагодарили 123 раз(а) в 53 сообщениях
|
Re: ПОМОГИТЕ!!НИД ПРОГА ДЛЯ СПАМА В ЧАТ
|
|
|
07.01.2010, 15:26
|
#11
|
|
|
|
Разведчик
|
Регистрация: 05.01.2010
Сообщений: 12
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: ПОМОГИТЕ!!НИД ПРОГА ДЛЯ СПАМА В ЧАТ
а там то что делать? волкеры старье!!! еше и не качаются!!! и даж если с офф сайта волкеров скачать последний не помогет чистый бот на руоофе пахать не будет никогда!!!!!!!!!!
|
|
|
07.01.2010, 16:13
|
#12
|
|
|
|
Разведчик
|
Регистрация: 23.05.2009
Сообщений: 27
Популярность: 36
Сказал(а) спасибо: 25
Поблагодарили 13 раз(а) в 9 сообщениях
|
Re: ПОМОГИТЕ!!НИД ПРОГА ДЛЯ СПАМА В ЧАТ
Можешь запустить хлапу, крикнуть что тебе надо, поймать пакет и напимер посылать каждые 10000 мс
|
|
|
07.01.2010, 16:28
|
#13
|
|
|
|
Разведчик
|
Регистрация: 05.01.2010
Сообщений: 12
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: ПОМОГИТЕ!!НИД ПРОГА ДЛЯ СПАМА В ЧАТ
эт прредлогали ток я все нашел проблема мне на руофф зашита палит и клиент выкидывает
|
|
|
08.01.2010, 00:03
|
#14
|
|
|
|
Разведчик
|
Регистрация: 05.01.2010
Сообщений: 13
Популярность: 10
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: ПОМОГИТЕ!!НИД ПРОГА ДЛЯ СПАМА В ЧАТ
Вообщем тебе нужно l2phx и скрипт на флуд. Если нужно пиши в личку, щас искать некогда, сессия напрягает
|
|
|
10.01.2010, 15:04
|
#15
|
|
|
|
Разведчик
|
Регистрация: 10.04.2009
Сообщений: 21
Популярность: 22
Сказал(а) спасибо: 42
Поблагодарили 6 раз(а) в 3 сообщениях
|
Re: ПОМОГИТЕ!!НИД ПРОГА ДЛЯ СПАМА В ЧАТ
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 16:18.
|
|