Отловки инфы

[gum_classis]

Помогите отловил инфу по адресу [Ссылки могут видеть только зарегистрированные и активированные пользователи]
И нашёл вот что
<item id="label_misc">
<![CDATA[Джекпот:
Кредитов:
Уридиума:]]>
</item>
И как это вставить в вот этот код procedure TForm1.Button1Click(Sender:TObject);
var
html,html1,html2,s1,s2,s3,s4:string;
data:tstringlist;
begin
try
data:=TStringList.Create;
data.Add('loginForm_default_username='+UTF8Encode( Edit1.Text));
data.Add('loginForm_default_password='+UTF8Encode( Edit2.Text));
data.Add('loginForm_default_login_submit=Вход');
html:=id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]', data);
html1:=Copy(html,Pos('[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+Edit3.Text+'.darkorbit.bigpoint.com/GameAPI.php?req=',html),length(html));
Delete(html1,Pos('&ref_pid',html1)-14,length(html1));
html2:=id[Ссылки могут видеть только зарегистрированные и активированные пользователи](html1);
s4:=Copy(html2,Pos('cred',html2)+5,Length(html2));
Delete(s4,Pos('&amp',s4),Length(s4));
Memo1.Lines.Add(s4);
if Pos('exitURL', html)<>0 then
Label1.Caption:='Вошло'
else
Label1.Caption:='НЕ ВОШЛО';
finally
data.Free;
end;
end;
Причём в этом коде жуе есть чтобы показывало кредиты а как сделать чтобы показывало кредиты урик жекпот черес ; пример 121231;111;1140
Подскажите как это реализовать .

[Steam~]

Помогите отловил инфу по адресу
И нашёл вот что

И как это вставить в вот этот код
Причём в этом коде жуе есть чтобы показывало кредиты а как сделать чтобы показывало кредиты урик жекпот черес ; пример 121231;111;1140
Подскажите как это реализовать .

вот креды
s4:=Copy(html2,Pos('cred',html2)+5,Length(html2));
Delete(s4,Pos('&amp',s4),Length(s4));
Memo1.Lines.Add(s4);

по такому же приципу делай и урик честь и т.д.
Memo.Lines.Add(+s4+';'+s5+';'+s6);


под s5 s6 s7 имею в виду переменные урик честь и т.д.

[gum_classis]

так просто заместо cred ставить типа урик русскими словами или как

[Steam~]

так просто заместо cred ставить типа урик русскими словами или как

нет, ищи на главной странице ( на акке) в исходнике , дапустим урик это xcred

[.:BLACK-SHIFT:.]

так просто заместо cred ставить типа урик русскими словами или как

на главной странице в исходном коде есть всё что нам нужно..

[gum_classis]

Спасибо урик показало только как сделать чтобы урик креды и тп показывало через ;

[gum_classis]

doctor_flasher если не сложно покажи в коде

procedure TForm1.Button1Click(Sender:TObject);
var
html,html1,html2,s1,s2,s3,s4:string;
data:tstringlist;
begin
try
data:=TStringList.Create;
data.Add('loginForm_default_username='+UTF8Encode( Edit1.Text));
data.Add('loginForm_default_password='+UTF8Encode( Edit2.Text));
data.Add('loginForm_default_login_submit=Вход');
html:=id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]', data);
html1:=Copy(html,Pos('[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+Edit3.Text+'.darkorbit.bigpoint.com/GameAPI.php?req=',html),length(html));
Delete(html1,Pos('&ref_pid',html1)-14,length(html1));
html2:=id[Ссылки могут видеть только зарегистрированные и активированные пользователи](html1);
s1:=Copy(html2,Pos('cred',html2)+5,Length(html2));
Delete(s1,Pos('&amp',s1),Length(s1));
Memo1.Lines.Add(s1);
s2:=Copy(html2,Pos('uid',html2)+5,Length(html2));
Delete(s2,Pos('&amp',s2),Length(s2));
Memo1.Lines.Add(s2);
s3:=Copy(html2,Pos('jackpot',html2)+5,Length(html2 ));
Delete(s3,Pos('&amp',s3),Length(s3));
Memo1.Lines.Add(s3);
if Pos('exitURL', html)<>0 then
Label1.Caption:='Вошло'
else
Label1.Caption:='НЕ ВОШЛО';
finally
data.Free;
end;
end;

[*xalyava*]

procedure TForm1.Button1Click(Sender:TObject);
var
html,html1,html2,s1,s2,s3,s4:string;
data:tstringlist;
begin
try
data:=TStringList.Create;
data.Add('loginForm_default_username='+UTF8Encode( Edit1.Text));
data.Add('loginForm_default_password='+UTF8Encode( Edit2.Text));
data.Add('loginForm_default_login_submit=Вход');
html:=id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]', data);
html1:=Copy(html,Pos('[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+Edit3.Text+'.darkorbit.bigpoint.com/GameAPI.php?req=',html),length(html));
Delete(html1,Pos('&ref_pid',html1)-14,length(html1));
html2:=id[Ссылки могут видеть только зарегистрированные и активированные пользователи](html1);
s1:=Copy(html2,Pos('cred',html2)+5,Length(html2));
Delete(s1,Pos('&amp',s1),Length(s1));

s2:=Copy(html2,Pos('uid',html2)+5,Length(html2));
Delete(s2,Pos('&amp',s2),Length(s2));

s3:=Copy(html2,Pos('jackpot',html2)+5,Length(html2 ));
Delete(s3,Pos('&amp',s3),Length(s3));
Memo1.Lines.Add(s1+';'+s2+';'+s3);
if Pos('exitURL', html)<>0 then
Label1.Caption:='Вошло'
else
Label1.Caption:='НЕ ВОШЛО';
finally
data.Free;
end;
end;


Это есть в каждом учебнике/facepalm

[Муха_]

s1:=Copy(html2,Pos('cred',html2)+5,Length(html2));
Delete(s1,Pos('&amp',s1),Length(s1));
Вот на креды а чтобы на чтото другое просто ставь s2 и заместо cred веди например uid тоесть ид акк