Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.02.04;
Скачать: [xml.tar.bz2];

Вниз

Числовые значения mегаfона на кнопку... и Post   Найти похожие ветки 

 
Jeeb   (2007-01-20 18:53) [0]


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-20 18:55) [1]

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


 
Jeeb   (2007-01-20 20:13) [2]

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


 
Anatoly Podgoretsky ©   (2007-01-20 20:27) [3]

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

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


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

Anatoly Podgoretsky,

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


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

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


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


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

tessercat,

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


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


 
tesseract ©   (2007-01-21 22:44) [7]

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


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


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

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


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

tesseract,

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



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.02.04;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.079 c
15-1168590355
Empleado
2007-01-12 11:25
2007.02.04
Календарь менять будем? Аль так оставим?


2-1168863421
Есипенко
2007-01-15 15:17
2007.02.04
Определить оператор слово или нет


15-1168589311
WondeRu
2007-01-12 11:08
2007.02.04
Парсинг


2-1169060896
Pasha L
2007-01-17 22:08
2007.02.04
Ошибка Stream Read Error


15-1168625185
Карелин Артем
2007-01-12 21:06
2007.02.04
Какие колонки сделать тыловыми, какие фронтальными?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский