Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Числовые значения mегаfона на кнопку... и Post [D7, WinXP]


Jeeb ©   (2007-01-20 18:53:00) 


procedure TFormMain.BtnPostClick(Sender: TObject);
var
 Str: TStringList;
 S: String;
 I: Integer;
begin
 HTTP.Request.Host:='www.megafonnw.ru';
 HTTP.Request.Accept:='text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1';
 HTTP.Request.AcceptLanguage:='ru-RU,ru;q=0.9,en;q=0.8';
 HTTP.Request.AcceptCharSet:='iso-8859-1, utf-8, utf-16, *;q=0.1';
 HTTP.Request.AcceptEncoding:='deflate, gzip, x-gzip, identity, *;q=0';
 HTTP.Request.Connection:='Keep-Alive, TE';
 HTTP.Get(' http://www.megafonnw.ru/site/rus/sms');
 HTTP.Request.Referer:=' http://www.megafonnw.ru/site/rus/sms';
 Str:=TStringList.Create;
 Str.Add('code='+Code.Text);
 Str.Add('prefix=111');
 Str.Add('msisdn=1111111');
 Str.Add('symbols_num=155');
 Str.Add('message=hello');
 Str.Add('russian=on');
 Str.Add('show=on');
 Str.Add('sms_day='+FormatDateTime('dd', Now));
 Str.Add('sms_month='+FormatDateTime('mm', Now));
 Str.Add('sms_year='+FormatDateTime('yy', Now));
 Str.Add('sms_hour='+FormatDateTime('hh', Now));
 Str.Add('sms_minute='+FormatDateTime('nn', Now));
 Str.Add('send_sms.x=52');
 Str.Add('send_sms.y=16');
 try
 S:=HTTP.Post(' http://www.megafonnw.ru/site/rus/sms', Str);
 finally
 HTTP.Free;
 end;
end;


Не понимаю что за строчки:
Str.Add('send_sms.x=54');
Str.Add('send_sms.y=6');
их числовые значения постоянно меняются...

как мне эти значения рассчитать?

Формируется запрос:
code=1227&prefix=111&msisdn=1111111&symbols_num=155&message=hello&russian=on&sho w=on&sms_day=20&sms_month=01&sms_year=07&sms_hour=18&sms_minute=29&send_sms.x=54 &send_sms.y=6&

Как в конце избавиться от символа "&"?


Jeeb   (2007-01-21 22:45:00) [1]

tesseract,

а из cookie можно как-нибудь прочитать их?


tesseract   (2007-01-21 22:44:00) [2]

> А что кроме сеансовых переменных это может быть еще? И если
> это действительно они, то можно как-нибудь перехватить процесс
> их получения от сервера?


Они создаються чтобы тебя не потерять. Они скорее всего хряняться в cookie.


Jeeb   (2007-01-21 22:44:00) [3]

Единственное, что я знаю, что send_sms - это или name формы или name кнопки


Jeeb   (2007-01-21 22:38:00) [4]

tessercat,

> Если это сенасовые переменные то никак- их сервер рассчитывает.


А что кроме сеансовых переменных это может быть еще? И если это действительно они, то можно как-нибудь перехватить процесс их получения от сервера?


tesseract   (2007-01-21 14:14:00) [5]

> Не понимаю что за строчки:
> Str.Add('send_sms.x=54');
> Str.Add('send_sms.y=6');
> их числовые значения постоянно меняются...
>
> как мне эти значения рассчитать?


Если это сенасовые переменные то никак- их сервер рассчитывает.


Jeeb   (2007-01-20 21:58:00) [6]

Anatoly Podgoretsky,

я не брал точно...


Anatoly Podgoretsky   (2007-01-20 20:27:00) [7]

> Jeeb  (20.01.2007 20:13:02)  [2]

А кто то брал на себя такие обязательства?


Jeeb   (2007-01-20 20:13:00) [8]

К "Начинающим" переместили, а ответить - не ответили...


Jeeb   (2007-01-20 18:55:00) [9]

P.S. в сниффере отловил, формируется без этого знака:

code=1227&prefix=111&msisdn=1111111&symbols_num=155&message=hello&russian=on&sho  w=on&sms_day=20&sms_month=01&sms_year=07&sms_hour=18&sms_minute=29&send_sms.x=54  &send_sms.y=6


Наверх

Титульная страница Поиск, карта сайта Написать письмо