Малолетние задроты! Пошли вон из моей аси! Ещё раз напишете "Почему я захожу новичком, а твоя прога не сажает в тюрьму" я вам такй флуд в асю устрою!
Вы с телефона тоже новичком умеете сажать?
\\
Повторяю для всех - БАНЛИСТ - ЭТО ЧЁРНЫЙ СПИСОК.
И РЕДАКТИТЬ ЕГО ВЫ СМОЖЕТЕ ТОКА ЕСЛИ ВЫ КОРОЛЬ ИЛИ У ВАС ЕСТЬ СМОТР!
\\
ПРЕКРТИТЕ ПРОСИТЬ ИСХОДНИКИ! максимум получите ИГНОР в исходном коде!
\\
КАК Я НАПИСАЛ ПРОГУ? РУКАМИ ВЗЯЛ И В ДЕЛЬФЕ НАПИСАЛ!
\\
ДОСТАЛИ ПРЕДЛАГАТЬ МНЕ ДЕНЬГИ ЗА ФУНКЦИЮ "ВЗЛАМАТЬ МИЛЬЁН БАКСАВ В ГАЛЕ"!
ЮЗАЙТЕ СМСКИ НА 4030 ИЛИ ТЕРМИНАЛЫ!
\\
КАКИЕ Я ЕЩЁ ПРОГРАММЫ НАПИСАЛ? ДОХРЕНА! НО ВЫ ИХ ВСЁ РАВНО НЕ УВИДИТЕ!
ЧТО? ЖЕЛАЕТЕ СКАЧАТЬ? ДА РАДИ БОГА! ВОТ ВАМ ССЫЛКА - D: \d\Delphi\ КАЧАЙТЕ НА ЗДОРОВЬЕ!
\\
НЕ НАДО МНЕ В ПРЕДЛОЖЕНИЯ ПИСАТЬ ДОБАВИТЬ ВЗЛОМ ИЛИ БРУТ ЧУЖОГО КОДА ВОССТАНОВЛЕНИЯ! ЮЗАЙТЕ ПРОГУ КРЕМАТОРА! АВОСЬ ЛЕТ ЭДАК ЗА 300 ВЗЛОМАЕТЕ!
\\
КАК ФЛУДИТЬ НА ПОПУЛЯРНЫХ ПЛАНЕТАХ? ДА ТАК - ПТИЧКА ФЛУДИТЬ ПРИ СТАРТЕ, И ПЛАНЕТА ПО УМОЛЧАНИЮ ТА НА КОТОРОЙ ХОТИТЕ ФЛУДИТЬ, А ПОТОМ ПРОСТО РУКАМИ ЩЁЛКАЕТЕ ПЛАНЕТЫ НА КОТОРЫХ ВЫ ХОТИТЕ ФЛУДИТЬ.
\\
АРИФМЕТИКУ НАЧАЛ ДЕЛАТЬ! если кому интересно, заходим на арифметику, включаем флудер, интервал 550, текст - желательно все смайлы, и флудим.
а сами через вкладку ЧАТ регаемся (111) и неспеща считаем ответ, и отсылаем. ВСЕ ОСТАЛЬНЫЕ МАКСИМУМ ЧТО ОТОШЛЮТ ТАК ЭТО "ВИС".
так что ваши шансы практически 100 процентов.
НЕДОТАТКИ: в окне чата вы наверняка получите столько матов в свой адрес, сколько на небе звёзд, что может подпортить ваше эмоциональное самочуствие!.
Так же есть шанс что нерадивый галактянин вас посадит. но.. кнопка СЛЕДУЮЩИЙ БОТ исправит ситуацию!
\\
Ну а теперь самое главное- свежая версия!
http://slil.ru/27774428
http://depositfiles.com/ru/files/t22t9jm22
\\
В воскресенье я отдыхаю, версии не ждите!
\\
ДА, чуть не забыл! В архиве утилитка ИМПОРТЕР - позволяет объединять несколько списков ботов в один.
\\
исходный код импортера ловите -
Код:
Procedure Import(str: string);
var
n: integer;
begin
for n:=0 to Form1.ListBox1.Count do begin
if Form1.ListBox1.Items.IndexOf(str)=-1 then Form1.ListBox1.Items.Add(str);
Application.ProcessMessages;
Form1.Label1.Caption:= 'Всего: '+ IntToStr( Form1.ListBox1.count);
end;
Form1.ProgressBar1.Position:= Form1.ProgressBar1.Position+1;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Ini: TiniFile;
n: integer;
begin
ProgressBar1.Position:= 0;
OpenDialog1.FilterIndex:= 0;
If OpenDialog1.Execute then begin
Ini := TIniFile.Create( OpenDialog1.FileName );
try
ProgressBar1.Max:= Ini.ReadInteger('Main', 'SavingBots', 0);
For n:= 1 to Ini.ReadInteger('Main', 'SavingBots', 0) do begin
Import(Ini.ReadString('SavingBots', IntToStr(n), ''));
end;
finally
ini.Free
end;
end;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
var
n: integer;
t: TStringList;
begin
ProgressBar1.Position:= 0;
OpenDialog1.FilterIndex:= 2;
If OpenDialog1.Execute then begin
try
t:= TStringList.Create;
t.LoadFromFile(OpenDialog1.FileName);
ProgressBar1.Max:= t.Count;
for n:=0 to t.Count-1 do begin
Import(t[n]);
end;
finally
t.Free;
end;
end;
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
SaveDialog1.FileName:= 'Bots.txt';
if SaveDialog1.Execute then ListBox1.Items.SaveToFile(SaveDialog1.FileName);
end;
procedure TForm1.BitBtn4Click(Sender: TObject);
var
Ini: TIniFile;
n: integer;
begin
SaveDialog1.FileName:= 'FGSB.ini';
Ini:= TIniFile.Create(SaveDialog1.FileName);
try
Ini.WriteInteger('Main', 'SavingBots', ListBox1.Count);
For n:= 1 to ListBox1.Count do begin
Ini.WriteString('SavingBots', IntToStr(n), ListBox1.Items[n-1] );
end;
finally
ini.Free
end;
end;