Парсер Ников С Форума World Of Tanks

  • Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

Lomanu4 Оффлайн

Lomanu4

Команда форума
Администратор
1 Мар 2015
1,117
215
155
VK
#1
Код:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP, ExtCtrls, sSkinProvider, sSkinManager;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Edit1: TEdit;
Button2: TButton;
Memo2: TMemo;
Label1: TLabel;
IdHTTP1: TIdHTTP;
Edit2: TEdit;
Button3: TButton;
Label2: TLabel;
Label3: TLabel;
Edit3: TEdit;
Button4: TButton;
Button5: TButton;
Timer1: TTimer;
Button6: TButton;
sSkinManager1: TsSkinManager;
sSkinProvider1: TsSkinProvider;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
t:integer;
x,pars,temp:string;
coded:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
x:=IdHTTP1.Get(edit1.text);
Memo1.Text:=x;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
pars:=x;
for i:=1 to 20 do
begin
if pos('hovercard-id="',pars)<>0
then
begin
delete(pars,5,pos('hovercard-id="',pars));
delete(pars,1,pos('"',pars));
temp:=copy(pars,1,pos('"',pars)-1);
Memo2.Lines.Add(''+temp+''+edit2.text+'');
end;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
form1.Width := StrToInt(Edit3.Text);
form1.Edit2.visible:=true;
form1.Label2.Visible:=true;
form1.Label3.Visible:=true;
form1.Button4.Visible:=true;
form1.Button5.Visible:=true;
form1.Button6.Visible:=true;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
memo2.Clear;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
case coded of
0:Memo3.Text:='C';
1:Memo3.Text:=Memo3.Text+'o';
2:Memo3.Text:=Memo3.Text+'d';
3:Memo3.Text:=Memo3.Text+'e';
4:Memo3.Text:=Memo3.Text+'d';
5:Memo3.Text:=Memo3.Text+' ';
6:Memo3.Text:=Memo3.Text+'b';
7:Memo3.Text:=Memo3.Text+'y';
8:Memo3.Text:=Memo3.Text+' ';
9:Memo3.Text:=Memo3.Text+'T';
10:Memo3.Text:=Memo3.Text+'r';
11:Memo3.Text:=Memo3.Text+'a';
12:Memo3.Text:=Memo3.Text+'i';
13:Memo3.Text:=Memo3.Text+'d';
14:Memo3.Text:=Memo3.Text+'e';
15:Memo3.Text:=Memo3.Text+'n';
16:Memo3.Text:=Memo3.Text+'T';

17:Timer1.Enabled:=false;
end;
inc(coded);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
coded:=0;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
Memo2.Lines.SaveToFile('login.txt');
end;

procedure TForm1.Button5Click(Sender: TObject);
var
SL : TStringList;
i, i2 : integer;
flag : Boolean;
begin
SL := TStringList.Create;
SL.AddStrings(Memo2.Lines);
for i := Memo2.Lines.Count - 1 downto 0 do
begin
flag := False;
for i2 := SL.Count - 1 downto 0 do
begin
if Memo2.Lines[i] = SL.Strings[i2] then
if flag then
SL.Delete(i2)
else
flag := True;
end;
end;
Memo2.Clear;
Memo2.Lines.AddStrings(SL);
SL.Free;
end;
 
Lomanu4 Оффлайн

Lomanu4

Команда форума
Администратор
1 Мар 2015
1,117
215
155
VK
#3