[Помогите!] Отловки инфы

[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:=idHTTP1.Post('http://darkorbit.bigpoint.com/?locale=ru&aid=821&aip=.darkorbit.bigpoint.com', data); html1:=Copy(html,Pos('http://'+Edit3.Text+'.darkorbit.bigpoint.com/GameAPI.php?req=',html),length(html)); Delete(html1,Pos('&ref_pid',html1)-14,length(html1)); html2:=idhttp1.Get(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~]

Цитата: Сообщение от gum_classis Помогите отловил инфу по адресу И нашёл вот что И как это вставить в вот этот код Причём в этом коде жуе есть чтобы показывало кредиты а как сделать чтобы показывало кредиты урик жекпот черес ; пример 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~]

Цитата: Сообщение от gum_classis так просто заместо cred ставить типа урик русскими словами или как

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

[.:BLACK-SHIFT:.]

Цитата: Сообщение от gum_classis так просто заместо 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:=idHTTP1.Post('http://darkorbit.bigpoint.com/?locale=ru&aid=821&aip=.darkorbit.bigpoint.com', data); html1:=Copy(html,Pos('http://'+Edit3.Text+'.darkorbit.bigpoint.com/GameAPI.php?req=',html),length(html)); Delete(html1,Pos('&ref_pid',html1)-14,length(html1)); html2:=idhttp1.Get(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*]

Цитата: Сообщение от gum_classis 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:=idHTTP1.Post('http://darkorbit.bigpoint.com/?locale=ru&aid=821&aip=.darkorbit.bigpoint.com', data); html1:=Copy(html,Pos('http://'+Edit3.Text+'.darkorbit.bigpoint.com/GameAPI.php?req=',html),length(html)); Delete(html1,Pos('&ref_pid',html1)-14,length(html1)); html2:=idhttp1.Get(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;

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

[Муха_]

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