Оповещатель новых сообщение в VK

[Кольша]

Авторизация Вконтакте

[Mrsqler]

Авторизация вот так выглядит,я её уже кидал здесь когда-то)

procedure TForm2.Button1Click(Sender: TObject);
var
 PageProfile:string;
 begin
   if login.Text='' then messagebox(0,'Введите ваш E-mail','Vk_Infromer',MB_OK or MB_ICONINFORMATION)
   else
      if pass.Text='' then messagebox(0,'Введите пароль!','Vk_Infromer',MB_OK or MB_ICONINFORMATION)
      else
 begin
  TidCookieManager.Create(IdHTTP1);
   IdHTTP1.Request.Host:='http://vk.com';
   IdHTTP1.Request.UserAgent:='Mozila/5.0 (Windows; U; Windows NT 5.1; com; 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.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
   IdHTTP1.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
   IdHTTP1.AllowCookies:=true;
   IdHTTP1.HandleRedirects:=True;

try
  PageProfile:=IdHTTP1.get('http://vkontakte.ru/login.php?email='+login.Text+'&pass='+pass.Text)
except on e : EIDHttpProtocolException do
   Begin
     if e.ErrorCode = 302 then
      showmessage('Err');
   End;
end;

 if Pos ('logout', PageProfile)<>0 then
     begin
      messagebox(0,'Авторизация прошла успешно!','Vk_Message',MB_OK or MB_ICONINFORMATION);
      form2.Close;
     end
 else
   begin
    messagebox(0,'Авторизация не удалась!Попробуйте снова.','Vk_Message|Ошибка!',MB_OK or MB_ICONERROR);
   end;
 end;
   end;

end.

[Кольша]

вы читали статью?

[Mrsqler]

Читал,там всё замудрено...Мой код,мне кажется, намного простым,ну это и понятно почему)
Ошибку исправил,но немного другим способом.Щас перезалью архив.

[Mrsqler]

Вот новый архив

[Кольша]

Сообщение от Mrsqler

Читал,там всё замудрено...Мой код,мне кажется, намного простым,ну это и понятно почему)
Ошибку исправил,но немного другим способом.Щас перезалью архив.

Да конечно ваш код намного лучше блин....вот только кукисы он не отлавливает..следовательно ваша программа скорее всего не работоспособна!

[Mrsqler]

ну,вроде работает) Как говорится:Работает?-Не трогай!

[Кольша]

Ну да..так оно)