ANTICHAT Forum
HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
НОВЫЕ ТОРГОВАЯ НОВОСТИ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу [Delphi]/[Pascal] Задай вопрос, получи ответ
   
 
 
Опции темы Поиск в этой теме Опции просмотра
Предыдущая Предыдущее сообщение   Следующее сообщение Следующая

  #11  
Старый 31.05.2009, 10:59
slesh
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами: 10097606

Репутация: 3349


По умолчанию
2 JeDaSe когда то писал, но на PHP. ВОт код, его бес труда сможешь перевести на Delphi (если знаешь php *CRAZY*)

PHP код:

function BuildHeader($method,$page,$host,$ref,$cookie,$data)
{
 $ret="{$method} /{$page} HTTP/1.0\r\n".
      "Host: {$host}\r\n".
      "Referer: {$ref}\r\n";
 if (!empty($cookie)>0)
  { 
   $ret.="Cookie: {$cookie}\r\n";
  } 
 if ($method=='POST')
  {
   $ret.="Content-Length: ".strlen($data)."\r\n".
         "Content-Type: application/x-www-form-urlencoded\r\n\r\n{$data}\r\n";
  } else $ret.="\r\n";
 return $ret;
}


function Login($email,$pass)
{
 $email=htmlspecialchars($email);
 $pass=htmlspecialchars($pass);
 $data="success_url=&fail_url=&try_to_login=1&email={$email}&pass={$pass}";
 $head=BuildHeader('POST','login.php','vkontakte.ru','http://vkontakte.ru/login.php','',$data);
 $page=LoadPage('vkontakte.ru',80,$head);
 if ($page)
 {
  if ($id=okLogin($page))
   {
    if ($cookie=ParseCookie($page))
     {
      $c='';
      for ($x=0;$x<count($cookie);$x++) $c.=$cookie[$x].'; ';
      $_SESSION[$id]=$c;
      header("Location: ?id={$id}");
      die();
     } else ShowError('Get COokie Error',true);
   } else ShowError('Login Error',true);
 } else ShowError('getPage Error',true);
 return false;
} 
 
Ответить с цитированием
 



Предыдущая тема Следующая тема
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ! Alexsize Беспроводные технологии/Wi-Fi/Wardriving 2571 20.06.2026 14:48
[jQuery] - Задай вопрос, получи ответ Isis PHP 62 25.12.2009 03:25



Здесь присутствуют: 2 (пользователей: 0 , гостей: 2)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.