|
Вопрос # 5 689/ вопрос закрыт / |
|
Здравствуйте! Доброе время суток Уважаемые эксперты.
нужна Авторизация Вконтакте, очень нужна Ваша помощь.
Сейчас стоит обычная авторизация (2 поля Edit для ввода email + pass), как сделать чтобы когда загружаю аккаунты формата email+pass (вконтакте) и при нажатии на кнопку Старт происходила авторизация, ниже код всё нормально, только чтобы авторизация с помощью файла .txt, а не полей Edit .. И еще вопрос, есть сайты где стоит авторизация через Вконтакте, как можна сделать чтобы при вводе ссылки в поле Edit и загрузики файла .txt авторизация происходила именно через сайт??
К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)
Приложение: Переключить в обычный режим-
-
- var PageProfile:string;
- begin
- IdHTTP1.HandleRedirects:=true;
- try
- PageProfile:=IdHTTP1.Get('http://vkontakte.ru/login.php?email='+sEdit1.Text+'&pass='+sEdit2.Text);
- except
- end;
- if Pos('logout', PageProfile)<>0 then
-
- else
-
- end;
-
- end.<code>
-
-
-
 |
Вопрос задал: RusSun (статус: Посетитель)
Вопрос отправлен: 23 октября 2011, 16:01
Состояние вопроса: закрыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 14; последнее сообщение — 24 октября 2011, 08:21; участников в обсуждении: 4.
|
min@y™ (статус: Доктор наук), 23 октября 2011, 16:05 [#1]:
А чо за файл .txt? Что в нём хранится? Почему я его не вижу здесь, а?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
6oPoDa4 (статус: Посетитель), 23 октября 2011, 16:30 [#2]:
я попросил RusSun создать вопрос, интересует только авторизация Вконтакте, не получается сделать, пробовал уже несколько способов и всё равно не работает, помогите пожалуйста..
|
|
bugmenot (статус: 3-ий класс), 23 октября 2011, 17:25 [#3]:
Цитата (RusSun):
if Pos('logout', PageProfile)<>0 then
sMemo1.Lines.Add('Авторизация удалась')
else
sMemo1.Lines.Add('Авторизация удалась');
лол, крутой код
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
|
|
6oPoDa4 (статус: Посетитель), 23 октября 2011, 17:31 [#4]:
да там опечатка, там где else
sMemo1.Lines.Add('Авторизация НЕ удалась'); =)
|
|
|
min@y™ (статус: Доктор наук), 23 октября 2011, 18:25 [#5]:
Цитата (6oPoDa4):
помогите пожалуйста..
Как на счёт ответа на мой скромный вопрос?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
6oPoDa4 (статус: Посетитель), 23 октября 2011, 18:39 [#6]:
в .тхт файле будут хранится login;pass аккаунты Вконтакте, но важно то что не получается сделать Авторизацию
|
|
|
min@y™ (статус: Доктор наук), 23 октября 2011, 18:46 [#7]:
Цитата (RusSun):
ниже код всё нормально
Это как понимать?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
6oPoDa4 (статус: Посетитель), 23 октября 2011, 18:57 [#8]:
да вот так что было скопировано с другого форума где тоже создал тему чтобы помогли, и там нельзя было отредактировать, попросил RusSun создать тему здесь и он незнал и скопировал как есть =) Кто то поможет с Авторизацией?
|
|
|
min@y™ (статус: Доктор наук), 23 октября 2011, 19:07 [#9]:
Цитата (6oPoDa4):
да вот так что было скопировано с другого форума где тоже создал тему чтобы помогли, и там нельзя было отредактировать, попросил RusSun создать тему здесь и он незнал и скопировал как есть
Я не понимаю, что здесь написано. Расставь, хотя бы, запятые. А то "казнить нельзя помиловть". И запишись на курсы русского языка. Ну это ж просто пипец и ужас. Албанский проще.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
6oPoDa4 (статус: Посетитель), 23 октября 2011, 19:20 [#10]:
Я с Украины и мне курсы русского не нужны =)
|
|
|
6oPoDa4 (статус: Посетитель), 23 октября 2011, 19:57 [#11]:
вобщем я так понял никто не поможет
|
|
Толяныч (статус: 4-ый класс), 23 октября 2011, 21:17 [#12]:
Конечно, не поможет. Ты на русскоязычном форуме, русский язык, чтобы внятно изложить свою мысль, тебе не нужен, а телепаты все уволились. Демонстрировать неуважение к сообществу и ждать от него помощи - не знаю, как по украински, а по белорусски называется "нахабства" .
|
|
|
6oPoDa4 (статус: Посетитель), 23 октября 2011, 21:20 [#13]:
Я вроде как по русски обьяснил
|
|
|
min@y™ (статус: Доктор наук), 24 октября 2011, 08:21 [#14]:
Цитата (6oPoDa4):
вобщем я так понял никто не поможет
Сюда ходи.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
24 октября 2011, 09:29: Вопрос закрыт (решение принял автор вопроса — RusSun): В следствии некорректности формулировки вопроса.
24 октября 2011, 23:33: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Работа с сетями и протоколами модератором Ерёмин А.А.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
