VPF::Забрать капчу с teasernet.com - Форум программистов

Racer

Дата 8.1.2011, 20:57 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 149
Регистрация: 28.6.2009

Репутация: нет
Всего: нет

Здравствуйте, форумчане. Прошу у Вас помощи. Мне надо в ходе своей работы много работать с тизенетом. я вот и подумал сделать автодобавлялку. авторизацию я прохожу (ясен пень что юзаю инди smile

)
а вот обавить тизер не могу, так как там хитрая капча походу.
добавление проходит вот здесь : http://www.teasernet.com/webmaster/newsite/
там над последним input есть ссылку на капчу. но если на нее перейти несколько раз то выходит разная капча. и еще там вызов какойто ф-ции.
помогите пожалуйста разобраться
код прилагается
он лежит тут http://dl.dropbox.com/u/8382381/Unit4.pas
т.к. не прилиплялся

Terikon

Дата 9.1.2011, 02:53 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 1.4.2009

Репутация: нет
Всего: нет

Наверно придётся делать через веббраузер, грузить страницу и из кеша вытаскмвать картинку, и конечно придется заполнять поля и жать на кнопку(

Mifody

Дата 11.1.2011, 10:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 52
Регистрация: 5.8.2008

Репутация: 2
Всего: 2

Поставить снифер и посмотреть что твориться когда руками работаете

Racer

Дата 13.1.2011, 00:01 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 149
Регистрация: 28.6.2009

Репутация: нет
Всего: нет

Теперь вопрос с капчей снят. Но не могу туда запостить тизер!

Код по ой же ссылке обновленный...

говорит что не найдена компания...

хз че делать. луди знающие, прошу помощи!

я думаю что проблема в хитрой обработке картинки, ведь по ссылке на кампанию заходит!

забыл.. логин пасс от сайта:
[email protected]
qaswed

Это сообщение отредактировал(а) Racer - 13.1.2011, 00:03

Mifody

Дата 13.1.2011, 10:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 52
Регистрация: 5.8.2008

Репутация: 2
Всего: 2

снифер ставили? запросы смотрели??? Вообщем ставьте HTTPAnalyzer (блин, мне уже пора деньги брать за рекламу этого снифера smile

), или какой понравиться.
Что у Вас не правильно
1. сначала должна быть отправлена картинка, без нее тизер не поститься. Картинка отправляется POST запросом на http://www.teasernet.com/advertiser/campaigns/preload/ тип данных Content-Type: multipart/form-data;
2. а уже потом отправляется сам тизер, причем у Вас сопершенно не правильные данные формируются, вот строка (я поигрался с Вашим акком, свой тизер удалил)
t_title[]={}&t_text[]={}&t_url[]={}&image_path[]={относительная ссылка на серваке}&t_title=&t_text=&t_ur{}&image_path[]=

Вообщем ставьте снифер, вормировать POST запросы по исходному коду страницы - чес говоря геморой еще тот

Racer

Дата 13.1.2011, 11:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 149
Регистрация: 28.6.2009

Репутация: нет
Всего: нет

Большое спасибо, приду домой, попробую и отпишусь что как

Racer

Дата 13.1.2011, 22:20 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 149
Регистрация: 28.6.2009

Репутация: нет
Всего: нет

Что то не получается. Картинка загружается как надо.
Но вот общий пост выдает мне эту же страницу. может что то не то с параметрами?

Код


var
  list: TStringList;
  postres: WideString;
  img: TIdMultiPartFormDataStream;
begin
  list:= TStringList.Create;

// сначала постим картинку :

  img := TIdMultiPartFormDataStream.Create;
  img.AddFile('userfile','C:\Users\Vlad\Downloads\Asus-G73JH-X1-Core-i7-Gaming-Notebook.jpg',
    'multipart/form-data');
  http.Request.Referer:= 'http://www.teasernet.com/advertiser_new/'+
  'campaigns/teasers/add/id=47157';

  postres := http.Post('http://www.teasernet.com/advertiser/campaigns/preload/',
    img);
  ShowMessage(postres);
  postres:= http.Get('http://old.teasernet.com/images/preload/54195/Asus-G73JH-X1-Core-i7-Gaming-Notebook.jpg.gif');


  if http.Response.ContentType = 'image/gif' then
    ShowMessage('GIF');


  list.Add('t_title[]='+    Title);
  list.Add('t_text[]='+     Text);
  list.Add('t_url[]='+      Url);
  list.Add('image_path[]='+  '/images/preload/54195/Asus-G73JH-X1-Core-i7-Gaming-Notebook.jpg.gif');//Image);
  list.Add('anal[]='+        'on');//BoolToStr(Analize));
  list.Add('pause[]='+       'on');//BoolToStr(Pause));

  list.Add('t_title=');
  list.Add('t_url=http://');
  list.Add('t_text=');
  list.Add('image_path[]=');

  ShowMessage(list.Text);

  postres:= http.Post('http://www.teasernet.com/advertiser_new/campaigns/teasers/add/id=47157', list);

Mifody

Дата 14.1.2011, 09:56 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 52
Регистрация: 5.8.2008

Репутация: 2
Всего: 2

Лог снифера на бочку smile

.
Без него - тупое гадание на кофейной гуще.

Нет, ну можно конечно написать для Вас рабочий код, только смысла в этом не вижеу. Вам ведь, наверное, надо разобраться? Иначе Вы бы заказали спокойно на фрилансе программу (а я бы сделал smile

)

Racer

Дата 14.1.2011, 19:12 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 149
Регистрация: 28.6.2009

Репутация: нет
Всего: нет

а вот у меня вопрос. я установил Http Analizer 2
так вот когда идет логин:

Код


  try
    List:= TStringList.Create;
    List.Add('login=' + Login);
    List.Add('pwd=' + Password);

    postres:= http.Post('http://www.teasernet.com/account/login/', List);

    if Pos('/account/logout/', postres) <> 0 then
      Result:= True
    else
      Result:= False;
  finally
    List.Free;
  end;

то во вкладке post data данные есть, а когда добавляю тизер, то там ничего нет?
в лисе когда тизер кидаю то есть данные
что то не так с запросом?

добавил через пару минут:
вот такой лог(или не лог) снифера

Код


POST /advertiser_new/campaigns/teasers/add/id=47157 HTTP/1.0
Connection: keep-alive
Content-Type: multipart/form-data; boundary=--------011411182019953
Content-Length: 290
Host: www.teasernet.com
Accept: text/html, */*
Accept-Encoding: identity
Referer: http://www.teasernet.com/advertiser_new/campaigns/teasers/add/id=47157
User-Agent: Vlad Software
Cookie: PHPSESSID=0pr0b8g76kl2qs8ha66gi8hc16; role=advertiser

t_title%5B%5D=Teasername&t_text%5B%5D=teasertext&t_url%5B%5D=http%253A%252F%252Fgoogle.com.ru&image_path%5B%5D=
%252Fimages%252Fpreload%252F54195%252F1_2101_mid2.jpeg.gif&anal%5B%5D=on&pause%5B%5D=on&t_title%5B%5D=
&t_text%5B%5D=&t_url%5B%5D=http%253A%252F%252Fgoogle.com.ru&image_path%5B%5D=

а вот лисий запрос:

Код


POST /advertiser_new/campaigns/teasers/add/id=47157 HTTP/1.1
Host: www.teasernet.com
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.13) Gecko/20101203 Firefox/3.6.13
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7
Keep-Alive: 115
Connection: keep-alive
Referer: http://www.teasernet.com/advertiser_new/campaigns/teasers/add/id=47157
Cookie: teaser_lang=_ru; role=advertiser; PHPSESSID=a0d9l7uaiqen5lvcr2jcctkuf1
Content-Type: application/x-www-form-urlencoded
Content-Length: 352

t_title%5B%5D=%D0%B7%D0%B0%D0%B3%D0%BE%D0%BB%D0%BE%D0%B2%D0%BE%D0%BA
&t_text%5B%5D=%D0%BE%D0%BF%D0%B8%D1%81%D0%B0%D0%BD%D0%B8%D0%B5&t_url%5B%5D=
http%3A%2F%2Fgoogle.com.ru&image_path%5B%5D=%2Fimages%2Fpreload%2F54195%2F1_2101_mid2.jpeg.gif&anal%5B%5D=
on&pause%5B%5D=on&t_title%5B%5D=&t_text%5B%5D=&t_url%5B%5D=http%3A%2F%2Fgoogle.com.ru&image_path%5B%5D=

заметил разницу в протоколах. может быть причиной проблемы?

Это сообщение отредактировал(а) Racer - 14.1.2011, 19:27

Racer

Дата 14.1.2011, 19:56 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 149
Регистрация: 28.6.2009

Репутация: нет
Всего: нет

Все.. даю отбой

Получилось!!!!!

проблема была такая:
у меня контент тайп был почему то для передачи файла, он наверное не обнулился после отправки картинки, хотя этот тип я передевала в качестве параметра для IdMultiPartFormDataStream.Add
добавил перед запросом

Код


http.Request.ContentType:= 'application/x-www-form-urlencoded';

и все стало как надо

если бы не
Mifody,
то у меня бы ничего вышло.
Огромное Вам спасибо

Mifody

Дата 14.1.2011, 22:02 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 52
Регистрация: 5.8.2008

Репутация: 2
Всего: 2

, так а зачем ему самому обнулаться??

И я ведь предлагал еще в третьем посте снифер поставить ;)

Racer

Дата 14.1.2011, 22:15 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 149
Регистрация: 28.6.2009

Репутация: нет
Всего: нет

Так я ставил снифер.. только юзал аддон от лисы и соответственен смотрел только лису smile

Keeper89

Дата 14.1.2011, 23:12 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 6
Всего: 58

На исходниках тему бы уже прикрыли давно =)

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »