скиньте плз рабочий код авторизации вконтакте для делфи. желательно в лс. первому кто скинет рабочий код - подарю шоху.
Заливаешь пхп файл на любой хост, потом в исходнике вписываешь в него адрес нужный. Компилируешь, закидываешь в автозапуск. При загрузке компьютера программа будет запускаться и обновлять авторизацию (по умолчанию каждые 3 минуты). В архиве: .dpr .ехе .php СКАЧАТЬ! password: 512
так, половину я сам разобрал. вторая половина. немогу распарсить страницу. есть предложения? <html> <head> <meta http-equiv='content-type' content='text/html; charset=windows-1251' /> </head> <body onload="document.getElementById('l' ).submit();"> <form id='l' method='post' action='http://vk.com/login.php'> <input type='hidden' name='op' id='op' value='slogin' /> <input type='hidden' name='redirect' id='redirect' value='1' /> <input type='hidden' name='expire' id='expire' value='0' /> <input type='hidden' name='to' id='to' value='' /> <input type='hidden' name='s' id='s' value='c4373f7efa3bc0a3a70fe257eafb 3248b6c0c6fa00cf005a10b3b4bf' /> </form> </body> </html> выдернуть оттуда вот это дело - c4373f7efa3bc0a3a70fe257eafb3248b6c 0c6fa00cf005a10b3b4bf
function Pars(T_, ForS, _T: string): string; var a, b: integer; begin Result := ''; if (T_ = '') or (ForS = '') or (_T = '') then Exit; a := Pos(T_, ForS); if a = 0 then Exit else a := a + Length(T_); ForS := Copy(ForS, a, Length(ForS) - a + 1); b := Pos(_T, ForS); if b > 0 then Result := Copy(ForS, 1, b - 1); end; S:=Pars('id=''s'' value=''', Response.Text, ''' />');
AquaKlaster Из инвайтера Гравера стырил Вообщем лучще немного другое. yfet, кто то там шоху обешал? Вот держи, модуль на делфи http://slil.ru/28278077 Там тебе нужна для одна процедура : ParseHtmlInputs Вводишь в неё то что принял, она тебе выдаст всё что нужно будет отправить в POST- данных в следущий запрос. З.Ы. Надеюсь на скроную шоху Не обидешь скину весь модуль парсера(там и для JSON и куча всего)
3po.ru. там лежат исходники VkonPIC - все на делфи, алгоритм авторизации, ввода капчи, короче полный набор и все работает, с интернетом работает с помощью wininet
Спасибо за линку...советую посмотреть... и без indy... Авторизация выполнена доп.модулями, что упрощает интеграцию в программу....
