|
Отловки инфы - Вопросы и ответы, обсуждения - Ваши вопросы по Pascal/Delphi только в данном разделе |
18.06.2011, 16:55
|
#1
|
|
|
|
Сержант
|
Регистрация: 03.04.2011
Сообщений: 128
Популярность: 5379
Сказал(а) спасибо: 137
Поблагодарили 209 раз(а) в 111 сообщениях
|
Отловки инфы
Помогите отловил инфу по адресу
|
Цитата: |
|
|
|
|
|
И нашёл вот что
|
Цитата: |
|
|
|
|
|
|
|
|
<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('&',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
Подскажите как это реализовать .
|
|
|
18.06.2011, 17:18
|
#2
|
|
|
|
Сержант
|
Регистрация: 09.08.2010
Сообщений: 143
Популярность: 4928
Сказал(а) спасибо: 382
Поблагодарили 254 раз(а) в 175 сообщениях
|
Re: Отловки инфы
|
Цитата: |
|
|
|
|
|
|
|
|
|
Помогите отловил инфу по адресу
И нашёл вот что
И как это вставить в вот этот код
Причём в этом коде жуе есть чтобы показывало кредиты а как сделать чтобы показывало кредиты урик жекпот черес ; пример 121231;111;1140
Подскажите как это реализовать .
|
|
|
|
|
|
вот креды
s4:=Copy(html2,Pos('cred',html2)+5,Length(html2));
Delete(s4,Pos('&',s4),Length(s4));
Memo1.Lines.Add(s4);
по такому же приципу делай и урик честь и т.д.
Memo.Lines.Add(+s4+';'+s5+';'+s6);
под s5 s6 s7 имею в виду переменные урик честь и т.д.
|
|
|
18.06.2011, 17:22
|
#3
|
|
|
|
Сержант
|
Регистрация: 03.04.2011
Сообщений: 128
Популярность: 5379
Сказал(а) спасибо: 137
Поблагодарили 209 раз(а) в 111 сообщениях
|
Re: Отловки инфы
так просто заместо cred ставить типа урик русскими словами или как
|
|
|
18.06.2011, 18:12
|
#4
|
|
|
|
Сержант
|
Регистрация: 09.08.2010
Сообщений: 143
Популярность: 4928
Сказал(а) спасибо: 382
Поблагодарили 254 раз(а) в 175 сообщениях
|
Re: Отловки инфы
|
|
|
18.06.2011, 18:23
|
#5
|
|
|
|
Разведчик
|
Регистрация: 27.03.2011
Сообщений: 20
Популярность: 173
Сказал(а) спасибо: 61
Поблагодарили 83 раз(а) в 54 сообщениях
|
Re: Отловки инфы
|
|
|
Пользователь сказал cпасибо:
|
|
18.06.2011, 18:50
|
#6
|
|
|
|
Сержант
|
Регистрация: 03.04.2011
Сообщений: 128
Популярность: 5379
Сказал(а) спасибо: 137
Поблагодарили 209 раз(а) в 111 сообщениях
|
Re: Отловки инфы
Спасибо урик показало только как сделать чтобы урик креды и тп показывало через ;
|
|
|
18.06.2011, 19:28
|
#7
|
|
|
|
Сержант
|
Регистрация: 03.04.2011
Сообщений: 128
Популярность: 5379
Сказал(а) спасибо: 137
Поблагодарили 209 раз(а) в 111 сообщениях
|
Re: Отловки инфы
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('&',s1),Length(s1));
Memo1.Lines.Add(s1);
s2:=Copy(html2,Pos('uid',html2)+5,Length(html2));
Delete(s2,Pos('&',s2),Length(s2));
Memo1.Lines.Add(s2);
s3:=Copy(html2,Pos('jackpot',html2)+5,Length(html2 ));
Delete(s3,Pos('&',s3),Length(s3));
Memo1.Lines.Add(s3);
if Pos('exitURL', html)<>0 then
Label1.Caption:='Вошло'
else
Label1.Caption:='НЕ ВОШЛО';
finally
data.Free;
end;
end; |
|
|
|
|
|
|
|
|
18.06.2011, 19:56
|
#8
|
|
|
|
Разведчик
|
Регистрация: 10.06.2011
Сообщений: 18
Популярность: 59
Сказал(а) спасибо: 7
Поблагодарили 49 раз(а) в 26 сообщениях
|
Re: Отловки инфы
|
Цитата: |
|
|
|
|
|
|
|
|
|
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('&',s1),Length(s1));
s2:=Copy(html2,Pos('uid',html2)+5,Length(html2));
Delete(s2,Pos('&',s2),Length(s2));
s3:=Copy(html2,Pos('jackpot',html2)+5,Length(html2 ));
Delete(s3,Pos('&',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;
|
|
|
|
|
|
Это есть в каждом учебнике
|
|
|
18.06.2011, 21:44
|
#9
|
|
|
|
Разведчик
|
Регистрация: 18.06.2011
Сообщений: 14
Популярность: 973
Сказал(а) спасибо: 106
Поблагодарили 82 раз(а) в 53 сообщениях
|
Re: Отловки инфы
s1:=Copy(html2,Pos('cred',html2)+5,Length(html2));
Delete(s1,Pos('&',s1),Length(s1));
Вот на креды а чтобы на чтото другое просто ставь s2 и заместо cred веди например uid тоесть ид акк
|
|
|
Пользователь сказал cпасибо:
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Похожие темы
|
Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
[Обсуждение] Секрктные лоты на торгах))
|
essoker25 |
Общение и обсуждение |
5 |
15.06.2011 16:50 |
Коты.
|
kompeks |
Общение и обсуждение Perfect World |
4 |
19.02.2010 16:13 |
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 02:53.
|
|