Привет всем!
С 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;
Как сделать так чтобы я мог быть до конца авторизирован ?
Сразу говорю я не программист поэтому если можете пожалуйста помогите строчками кода, мне в них легче разбираться чем в литературе. А если возможно просто исправьте код на правильный. Большое спасибо