Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Delphi Java Вконтакте (https://forum.antichat.xyz/showthread.php?t=158605)

Sin3v 23.11.2009 06:44

Delphi Java Вконтакте
 
Может кто привести пример как отправить тут пароль на мыло, ну т.е. ввести текст и отправить его
http://vkontakte.ru/login.php?op=forgot

там этот JS я не шарю(
что то не понятно как это работает)

Пуховой 23.11.2009 07:25

Набросал от руки, работает менее 1 сек.

Код:

function retrieve (email : string) : integer;
var
  coo : tidcookiemanager;
  http : tidhttp;
  post : tstringlist;
begin
  coo := tidcookiemanager.create;
  http := tidhttp.create; http.allowcookies := true; http.cookiemanager := coo; http.request.useragent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)';
  post := tstringlist.create;

  post.add ('op=a_retrieve');
  post.add ('email=' + email);
  http.request.referer := 'http://vk.com/login.php?op=forgot';
  http.post ('http://vk.com/login.php', post);

  http.free; post.free; coo.free;
  result := 1;
end;


~FoX~ 23.11.2009 08:50

Пуховой у меня вопросик по авторизации вконтакте (написал вам в аську)


Время: 05:28