Сообщение от anton_obuhov
Привет всем!
С 2011 годом вас всех.
Теперь собственно вопрос. Я делаю программу для проекта wmmail.ru точнее делаю ее по пунктам.
1. Авторизация
2. Чтение писем
3. Серфинг и Автосерфинг
3. Шаг я полностью сделал
Теперь необходимо выполнить 1 шаг. В общем ситуация следующая:
Я использую компонент Indy чтобы послать post запрос на сайт, при этом авторизация проходит успешно авторизацию, но как только я пытаюсь перейти на сайт wmmail.ru в компоненте webbrowser мне пишут что я не авторизирован. Помогите исходный код ниже
procedure TForm1.Button3Click(Sender: TObject); var list: TStringList; begin list := TStringList.Create; WebBrowser1.Navigate('http://wmmail.ru/'); list.Add('cf=akk-login'); list.Add('ulogin=Мой логин'); list.Add('pass=Мой пароль'); list.Add('x=16'); list.Add('y=18'); list.Add('remember=on'); try memo1.lines.text := IdHTTP1.Post('http://wmmail.ru/index.php',list); memo1.Lines.SaveToFile('aaa.htm'); WebBrowser1.Navigate(extractfilepath(application.exename)+'aaa.htm'); finally list.Free; IdHTTP1.Disconnect; end; end;
Как сделать так чтобы я мог быть до конца авторизирован ?
Сразу говорю я не программист поэтому если можете пожалуйста помогите строчками кода, мне в них легче разбираться чем в литературе. А если возможно просто исправьте код на правильный. Большое спасибо
|
Может и некропост, но все же, если память не изменяет, компонент Indy и компонент WebBrowser между собой связи не имеют и следовательно кука для авторизации на сайте не проставляется. Тут или извращаться с дочерними окнами в WebBrowser либо на время авторизации "тушить" его и делать авторизацию им.