Программно войти на сайт

@bond95 · Регистрация: 16.04.2009

Студворк — интернет-сервис помощи студентам

Доброго времени суток. Если кто может тогда подскажите как можно сделать чтобы если логин и пароль правильный тогда переменная возвращала true если неправильный тогда false. Хочу сделать вход в вконтакт.

@MikeSoft · 24.08.2010, 01:01

bond95, нужно рассматривать URL, возвращаемую при переходе...
Например, событие OnNavigateComplete2 может выглядеть так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TLoginForm::LoginWebBrowserNavigateComplete2(TObject *ASender, const IDispatch *pDisp,
                    OleVariant &URL)
{
  String CheckURL = URL;
  String Success = "api/login_success";
  String Failure = "api/login_failure";
  if (CheckURL.Pos(Success) > 0) {
    ShowMessage("Авторизированы успешно");
    // остальные действия
  }
  if (CheckURL.Pos(Failure) > 0) {
    ShowMessage("Авторизация прервана");
    // остальные действия
  }
}

Приведенный мною код пригоден для работы с API ВКонтакте при использовании Desktop-type приложений.
Страница авторизации: http://vkontakte.ru/login.php?app=APP_ID&layout=popup&type=browser&settings=1 30
, где APP_ID - номер созданного приложения.

@bond95 · 24.08.2010, 22:47 **[ТС]**

MikeSoft, а можно без использования CppWebBrowser?

Добавлено через 4 часа 21 минуту
Ладно у же не надо уже почти разобрался. Только вот остался небольшой вопрос. Кто может перевести этот код с Delphi на С++.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
begin
  param := TStringList.Create;
  response := TStringList.Create;
  param.Add('email=XXXX@mail.ru');
  param.Add('pass=XXXXXXXXXXXXX');
  response.Text := idhttp1.Post('http://login.vk.com/?act=login', param);
 
  if Pos('value=',response.Text)>0 then
  begin
   param.Clear;
   response.Text := Stringreplace(response.Text,'''',#13,[rfreplaceall,rfignorecase]);
   form1.Memo1.Lines := response;
   for i := 0 to response.Count-1 do
   begin
    response[i]:=trim(response[i]);
    if response[i]='value=' then
    begin
      param.Add('s='+response[i+1]);
    end;
   end;
  response.Text := idhttp1.Post('http://vkontakte.ru/login.php?op=slogin&redirect=1', param);
  param.Free;
  end;
  Memo1.Lines := response;
  if Pos('<b>Online</b>',response.Text)>0
  then showmessage('Залогинились !');
  if Pos('/login.php',response.Text)>0
  then showmessage('Неудачная попытка .');
end;

До этого момента понимаю дальше нет.

Delphi
1
2
3
4
5
6
7
8
9
10
begin
  param := TStringList.Create;
  response := TStringList.Create;
  param.Add('email=XXXX@mail.ru');
  param.Add('pass=XXXXXXXXXXXXX');
  response.Text := idhttp1.Post('http://login.vk.com/?act=login', param);
 
  if Pos('value=',response.Text)>0 then
  begin
   param.Clear;

@bond95 · 25.08.2010, 00:19 **[ТС]**

Я все таки перевел тот код с Delphi на С++ и вот что получилось:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
TStringList *param = new TStringList();
 TStringList *response = new TStringList();
  param->Add("email=XXXXXXXX@mail.ru");
  param->Add("pass=XXXXXXX");
  response->Text = idhttp1->Post("http://login.vk.com/?act=login", param);
 
  if(Pos("value=",response->Text)>0) {
   param->Clear();
   response->Text = StringReplace(response->Text,"\"\"","\n",TReplaceFlags()<<rfReplaceAll);
   Memo1->Lines = response;
   for(int i = 0; i<=(response->Count-1); i++)
   {
    response->Strings[i]=Trim(response->Strings[i]);
    if(response->Strings[i]=="value=")
    {
      param->Add("s="+response->Strings[i+1]);
    }
   }
  response->Text = idhttp1->Post("http://vkontakte.ru/login.php?op=slogin&redirect=1", param);
  param->Free();
  }
  Memo1->Lines = response;
  if(Pos("<b>Online</b>",response->Text)>0)
  ShowMessage("Залогинились !");
  if(Pos("/login.php",response->Text)>0)
  ShowMessage("Неудачная попытка .");

Только теперь при входе оно мне выдает, что делать:

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

@bond95 Мы все БОЛЬШАЯ программа 52 / 52 / 5 Регистрация: 16.04.2009 Сообщений: 489

	Программно войти на сайт 24.08.2010, 00:37. Показов 4039. Ответов 3 Метки нет (Все метки) Доброго времени суток. Если кто может тогда подскажите как можно сделать чтобы если логин и пароль правильный тогда переменная возвращала true если неправильный тогда false. Хочу сделать вход в вконтакт. 0