Delphi Support

всё сделал неработает всёравно
кстати вот эти dll http://rghost.ru/47797940

 

Значит что-то не так делаешь...Юзер агент укажи. Через мобилку авторизуйся, меньше мороки.

 

TryCoder39, создай переменную HTML типа String и делай запрос в этой переменной, а слово "Новости" ищи в этой же переменной. Если все равно ошибка, то используй DLL файлы OpenSSL, чтобы работать с протоколом SSL.

 

Не парситься токен, библиотеку подключил. Все равно

 

if HTTP.Response.Location = '/' then
Пробуй так.

 

Да не в етом дело, там все норм, и по кукам пробовал. Токен не парситься почемуто.

 

Только что попробовал, всё парсится.

 

У меня почемуто кидает в бед все.

 

Ты увепен что не в бэд кидает именно из-за того что не парсится?

 

всёравно неробит :(

Код:

data:=Tstringlist.create;
     data.Add('act=login');
     data.Add('role=al_frame');
     data.Add('expire=');
     data.Add('captcha_sid=');
     data.Add('captcha_key=');
     data.Add('origin=http://vk.com');
     data.Add('ip_h=2f1640aab691ea9515');
     data.Add('email='+FAcc);
     data.Add('pass='+FPas);

     try
      HTTP.Post('https://login.vk.com/?act=login', data);  // Куда отпрfвляем запрос
      Rez:=-1;
     except
[COLOR="#FF0000"]s:=http.get('http://vk.com');
 if Pos('Новости', s)<>0 then[/COLOR]

       Rez:=1  //good
      else
       Rez:=0; //BAAAADDD
     end;
     HTTP.Free;
    data.Free;

     Synchronize(Sync);
    end;
  end;

 

Пробуй по всякому, сейчас я с планшета и ничего проверить не могу.

 

А из-за чего? Оно парситься но неправильно вроде я читал что надо через Copy

 

TryCoder39, s := HTTP.Post('https://login.vk.com/?act=login', data);