Форум АНТИЧАТ - [В]контакте авторизация

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - [В]контакте авторизация (https://forum.antichat.xyz/showthread.php?t=196788)

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

http://vkontakte.ru/login.php?m=1&email=
народ где здесь значение входа,е мейл и пароль подстовляет а про вход даже незнаю где подцепить(подобие чекера пишу)

опять эту тему подняли! ищите в поиске по ачату) тут есть))

там через id http а я так
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
s:string;
html_tag: variant;
begin
html_tag:=WebBrowser1.OleObject.Document.forms.ite m(0).elements;
for i:=0 to (html_tag.length-1) do
begin
if (html_tag.item(i).name='email') then
html_tag.item(i).value:=edit1.text;

if (html_tag.item(i).name='pass') then
html_tag.item(i).value:=edit2.text ;

if (html_tag.item(i).value='quick_login()') then
html_tag.item(i).click;
подругому не умею(

пробуй тaк vkontakte.ru/login.php?email=имейл&pass=пароль

софт в поля подстовляет как имено войти нажатие реализовать

Код:

function re(wHost, wRequest: string):string;

var

hSocket: TSocket;

hHost: PHostEnt;

hAddr: TSockAddrIn;

hTimeout: TTimeVal;

iRead: integer;

hBuffer: array[0..1024] of char;

hData:string;

begin



 hSocket := socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);

 hHost := gethostbyname(PChar(wHost));

 hAddr.sin_family := AF_INET;

 hAddr.sin_port := htons(80);

 hAddr.sin_addr := pinaddr(hHost^.h_addr^)^;

 hTimeout.tv_usec := 0;

 hTimeout.tv_sec := 2000;

 setsockopt(hSocket, SOL_SOCKET, SO_RCVTIMEO, @hTimeout, sizeof(ttimeval));

 connect(hSocket, hAddr, SizeOf(hAddr));



 Send(hSocket, wRequest[1], length(wRequest), 0);

 while (TRUE) do

 begin

  FillChar(hBuffer, SizeOf(hBuffer), 0);

  iRead := Recv(hSocket, hBuffer, length(hBuffer), 0);

  hData := hData + copy(hBuffer, 0, iRead);

  if (iRead <= 0) then break;

 end;

 CloseSocket(hSocket);

result := hData;

end;

Код:

re('login.vk.com','POST /?act=login HTTP/1.1'#13#10+

   'Host: login.vk.com'#13#10+

   'Referer: http://vkontakte.ru/index.php'#13#10+

   'Content-Type: application/x-www-form-urlencoded'#13#10+

   'Content-Length: ' + cl + #13#10#13#10+

   'email=' + e-mail + '&pass=' + password + '&expire=&vk='));

из ответа надо вытащить ключ s и передавать его в следующем запросе:

Код:

re('vkontakte.ru','POST /login.php HTTP/1.1'#13#10+

   'Host: vkontakte.ru'#13#10+

   'Referer: http://login.vk.com/?act=login'#13#10+

   'Content-Type: application/x-www-form-urlencoded'#13#10+

   'Content-Length: ' + cl + #13#10#13#10+

   's=' + s +'&op=slogin&redirect=1&expire=0&to='));

из заголовка надо вытащить remixsid и в дальнейшем использовать его для загрузки нужных станиц

эмм для меня это тупо код в которым я не мыслю) расстолкуйте

http://forum.antichat.ru/thread151017.html

WebBrowser1.navigate('vkontakte.ru/login.php?email=имейл&pass=пароль');

[быдло_оффтоп_коммент]TWebBrowser - это кошмарнейшее уныние, с которым вы прое6ете кучу трафика и веремени. [/быдло_оффтоп_коммент]

как минимум idHTTP используйте а лучше всего сокеты или вининет