![]() |
|
Модераторы: Snowy, Poseidon, MetalFan |
![]()
|
|
| AlexeyShestchenko |
|
||||
|
Шустрый ![]() Профиль Группа: Участник Сообщений: 59 Регистрация: 7.2.2008 Репутация: нет Всего: нет |
читал топики на по этой теме но ничего не выходит :(
есть страничка на login.asp вот код страницы
возращает просто страницу http://www.mysite.ru/panel/login.asp у вас много опыта, подскажите че делать. |
||||
|
|||||
| MetalFan |
|
|||
![]() Аццкий Сотона ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 3815 Регистрация: 2.10.2006 Где: Moscow Репутация: 14 Всего: 128 |
посмотри с пом.какого-нибудь софта, что реально отсылает браузер при авторизации. я для этих целей испjльзую бесплатный и мощны й Fiddler2
-------------------- There are always someone smarter than you... |
|||
|
||||
| tratata |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 5 Регистрация: 7.2.2008 Репутация: нет Всего: нет |
lData.Add('txtUserName=MyName');
lData.Add('txtpassword=MyPass'); lData.Add('Flag=2'); lData.Add('cmdLogin=Login!!'); Вродь так должно ехать -) |
|||
|
||||
| AlexeyShestchenko |
|
|||
|
Шустрый ![]() Профиль Группа: Участник Сообщений: 59 Регистрация: 7.2.2008 Репутация: нет Всего: нет |
не фурычит, например если ввести пароль не правильно,то редиректа не будет,он показывает ошибку на той же login.asp,но я и ее получить не могу.
var lData: TStringList; begin lData := TStringList.Create; http := TIdHTTP.Create(nil); HTTP.HandleRedirects := True; HTTP.ProtocolVersion := pv1_0; HTTP.ProtocolVersion := pv1_0; HTTP.Request.BasicAuthentication:=True; try lData.Add('txtUserName=anн'); lData.Add('txtpassword=any'); lData.Add('Flag=2'); lData.Add('cmdLogin=Login!!'); HTTP.Post('http://www.site.ru/login.asp', lData); AdvMemo1.Lines.Text := http.Get('http://www.site.ru/login.asp'); finally lData.Free; end; http.Free; AdvMemo1.Lines.SaveToFile('c:\xz.html'); |
|||
|
||||
| MetalFan |
|
|||
![]() Аццкий Сотона ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 3815 Регистрация: 2.10.2006 Где: Moscow Репутация: 14 Всего: 128 |
попробуй вместо TStringList запользовать индийски TIdMultipartFormData
-------------------- There are always someone smarter than you... |
|||
|
||||
| AlexeyShestchenko |
|
|||
|
Шустрый ![]() Профиль Группа: Участник Сообщений: 59 Регистрация: 7.2.2008 Репутация: нет Всего: нет |
txtUserName=123&txtpassword=fff&Flag=2&cmdLogin=Login%21%21
вот что передает |
|||
|
||||
| bagos |
|
|||
|
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 275 Регистрация: 17.6.2006 Репутация: нет Всего: 1 |
подсобите люди!
мне тоже это интересно) Это сообщение отредактировал(а) bagos - 10.2.2008, 16:38 |
|||
|
||||
| MetalFan |
|
|||
![]() Аццкий Сотона ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 3815 Регистрация: 2.10.2006 Где: Moscow Репутация: 14 Всего: 128 |
а теперь проверь, что передает твоя программа (есть у idHTTP возможность настройки прокси)
и добейся идентичности -------------------- There are always someone smarter than you... |
|||
|
||||
| bagos |
|
|||
|
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 275 Регистрация: 17.6.2006 Репутация: нет Всего: 1 |
из IE
txtUserName=f&txtpassword=d&Flag=2&cmdLogin=Login%21%21 из программы ----------021008170015796 Content-Disposition: form-data; name="txtUserName" f ----------021008170015796 Content-Disposition: form-data; name="txtpassword" d ----------021008170015796 Content-Disposition: form-data; name="Flag" 2 ----------021008170015796 Content-Disposition: form-data; name="cmdLogin" Login!! ----------021008170015796-- не фурычит :( Добавлено через 12 минут и 32 секунды все получилось наконец таки спасибо за ответы! |
|||
|
||||
| AlexeyShestchenko |
|
|||
|
Шустрый ![]() Профиль Группа: Участник Сообщений: 59 Регистрация: 7.2.2008 Репутация: нет Всего: нет |
настранице есть кнопка, по нажатию которой открывается новое маленькое окошко с данными
<form> <table border="0" cellpadding="0" cellspacing="0"> <tr> <td valign="middle"> <INPUT TYPE="button" NAME="butt1" VALUE="OK" onClick="OK()" class="button"> </td><td valign="middle"><b>Put me</b> <td> </tr> </table> </form> как мне нажать на нее и получить данные из того окошка не пойму :( |
|||
|
||||
| AlexeyShestchenko |
|
|||
|
Шустрый ![]() Профиль Группа: Участник Сообщений: 59 Регистрация: 7.2.2008 Репутация: нет Всего: нет |
+функция OK() содержится в самой странице,но она кривая не понятная...
|
|||
|
||||
![]()
|
| Правила форума "Delphi: Сети" | |
|
|
Запрещено: 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делится вскрытыми компонентами
Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Сети | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |