Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.07.2010, 23:46   #1
Константин007
 
Регистрация: 28.12.2008
Сообщений: 3
По умолчанию авторизация+постинг сообщения

Прошу пнуть меня в правильном направлении, а лучше поделлиться исходником т.к. я в Веб программинге не силен.
Хочу сделать прогу для организации постинга в своих любимых форумах. Есть прога ForumPilot но она добавляет в сообщения инфу о себе (падла).
Никто из знающих не поможет авторизоваться и запостить сообщение на форум
login: petrik
pass: petru44o
Из того, что пробовал:
Код:
   tMs := TMemoryStream.Create;
   IDHttp1.Request.Host := 'bc-city.com';
   IDHttp1.Request.AcceptLanguage := 'ru,ru-RU';
   IDHttp1.Request.UserAgent :='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
   IDHttp1.Request.Accept :='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
   IDHttp1.Request.AcceptCharSet:='windows-1251';
                                            
   data := TIdMultiPartFormDataStream.Create;
   data.AddFormField('UserName', 'petrik');
   data.AddFormField('PassWord', 'petru44o');
   IDHttp1.Post('http://bc-city.com/index.php?act=Login&CODE=01&CookieDate=1', data, tMs);
Авторизуется успешно.
К примеру надо запостить анекдот сюда: http://bc-city.com/index.php?showtopic=7049&st=30
Пробую так:
Код:
 tMs := TMemoryStream.Create;
 data := TIdMultiPartFormDataStream.Create;
 data.AddFormField('st', '0');
 data.AddFormField('act', 'Post');
 data.AddFormField('s', '');
 data.AddFormField('f', '18');
 data.AddFormField('auth_key', p_md5_check);
 data.AddFormField('removeattachid', '0');
 data.AddFormField('MAX_FILE_SIZE',   '5120000');
 data.AddFormField('CODE', '03');
 data.AddFormField('t', '9793');
 data.AddFormField('post_key', post_key);
 data.AddFormField('parent_id', '');
 data.AddFormField('ffont', '0');
 data.AddFormField('fsize', '0');
 data.AddFormField('Post', 'Любой текст');
 data.AddFormField('enableemo', 'yes');
 data.AddFormField('enablesig', 'yes');
 data.AddFormField('FILE_UPLOAD', '');
 data.AddFormField('iconid', '0');
 data.AddFormField('dosubmit', 'Отправить');

 IDHttp1.Post('http://bc-city.com/index.php?', data, tMs);

 dump2.free;
 data.free;
В сниффере:


На форуме ничего не появляется, даже вопросиков. Может-ли быть такое, что из-за неправильной кодировки и не появляется???
На самом деле я даже не уверен в правильности авторизации, т.к. в сниффере моя прога и Опера дают разные действия.
В общем прошу помощи.
Константин007 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Прямой постинг в MySQL %$PROregRAMi$t% PHP 9 08.09.2010 11:25
Постинг на форумы с помощью delphi eFail Работа с сетью в Delphi 2 25.07.2010 09:36
Как в WORDPRESS запретить постинг без указания заголовка и тегов? Рыжая_Бестия WordPress и другие CMS 2 11.09.2009 15:44