26.04.2010, 15:25
|
|
Постоянный
Регистрация: 20.01.2010
Сообщений: 338
С нами:
8582863
Репутация:
69
|
|
да вот рабочий пример!!!!!
Код:
var HTTP : TidHTTP;
procedure VK_Login(email, pass: string);
var
cookie : TidCookieManager;
uns : string;
Data : TStringList;
begin
Cookie := TidCookieManager.Create(nil);
HTTP := TidHTTP.Create(nil);
Data := TStringList.Create;
HTTP.CookieManager := Cookie;
HTTP.AllowCookies := True;
HTTP.HandleRedirects := True;
HTTP.Request.UserAgent := 'Mozilla/5.0';
Data.Add('email='+email);
Data.Add('pass='+pass);
Uns := HTTP.Post('http://login.vk.com/?act=login', Data);
Uns := Copy(uns, 286, 56);
Cookie.AddCookie('remixsid=' + Uns + '; path=/;', 'vkontakte.ru');
Cookie.AddCookie('remixchk=5; path=/;', 'vkontakte.ru');
end;
чорт1!!!!1!!1 все!!! закройте вы эту тему!!! сколько уже можно в ней писать??? или вам еще примеры какието привести??? |
|
|
27.04.2010, 13:41
|
|
Banned
Регистрация: 09.04.2010
Сообщений: 181
С нами:
8468331
Репутация:
12
|
|
Сообщение от RedFern.89
да вот рабочий пример!!!!!
Код:
var HTTP : TidHTTP;
procedure VK_Login(email, pass: string);
var
cookie : TidCookieManager;
uns : string;
Data : TStringList;
begin
Cookie := TidCookieManager.Create(nil);
HTTP := TidHTTP.Create(nil);
Data := TStringList.Create;
HTTP.CookieManager := Cookie;
HTTP.AllowCookies := True;
HTTP.HandleRedirects := True;
HTTP.Request.UserAgent := 'Mozilla/5.0';
Data.Add('email='+email);
Data.Add('pass='+pass);
Uns := HTTP.Post('http://login.vk.com/?act=login', Data);
Uns := Copy(uns, 286, 56);
Cookie.AddCookie('remixsid=' + Uns + '; path=/;', 'vkontakte.ru');
Cookie.AddCookie('remixchk=5; path=/;', 'vkontakte.ru');
end;
чорт1!!!!1!!1 все!!! закройте вы эту тему!!! сколько уже можно в ней писать??? или вам еще примеры какието привести??? ураа заработале спасибо добрый человек)
|
|
|
|
27.04.2010, 01:04
|
|
Участник форума
Регистрация: 20.02.2009
Сообщений: 183
С нами:
9063843
Репутация:
50
|
|
Ага))) Можно подробнее)))))
|
|
|
|
27.04.2010, 04:20
|
|
Постоянный
Регистрация: 20.01.2010
Сообщений: 338
С нами:
8582863
Репутация:
69
|
|
люди!11!1!1! ололо!!!!1!1! запомните!
HTTP/1.1 302 Found - это не ошибка!!!! это просто перенаправление!!!!! вываливаеца в виде эксепшена! уууууххххххххх.... закройте пожалуйста эту тему....
|
|
|
|
29.04.2010, 18:37
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
С нами:
8686406
Репутация:
265
|
|
Подскажите если в этой авторизации вылезла капча
begin
if Flag then Break;
idhttp1.HandleRedirects := True;
log:=copy(memo1.lines[0],1,pos(':',memo1.lines[0])-1);
pass:=copy(memo1.lines[0],pos(':',memo1.lines[0])+1,20);
uns:=idhttp1.get('http://login.vk.com/?act=login&email='+log+'&pass='+pass+'&expire=&vk= ');
s:=Copy(uns,Pos('value=',uns)+7,56);
memo4.lines.add(log + ' Авторизируемся' );
try
idhttp1.get('http://vk.com/login.php?op=slogin&redirect=1&expire=0&to=&s='+s) ;
uns := idhttp1.Get('http://vk.com/');
memo1.Lines.Delete(0) ;
memo4.lines.add(log + ' Валидный' );
memo2.lines.add(log + ':' + pass);
except
On E: Exception do begin
memo4.lines.add(log + ' Невалид' );
memo3.lines.add(log + ':' + pass);
memo2.Lines.Delete(memo2.Lines.Count);
memo1.Lines.Delete(0);
end;
end;
Как её спарсить и вывести в картинку на форму? текст вводить в edit при нажатии на кнопку что бы продолжался цикл.  |
|
|
|
29.04.2010, 19:28
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
С нами:
8686406
Репутация:
265
|
|
Lovemachine, Это точно не то
upd
анти-каптчу можно сюда пристроить?
Последний раз редактировалось stepashka_; 29.04.2010 в 19:42..
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
