Нужна Авторизация Вконтакте Через Пк, А У Меня Через Андроид То Есть Через Телефон.

[Андрей]

Delphi хочу чтобы вконтакте отображало, что я сижу не с телефона а с компа

procedure TForm1.sButton1Click(Sender: TObject);
var
temp, login, pass: string;
begin
  login:=sEdit1.Text;
  pass:=sEdit2.Text;
  response:=send('GET', 'https://oauth.vk.com/token?grant_type=password&client_id=2274003&client_secret=hHbZxrka2uZ6jB1inYsH&username='+login+'&password='+pass+'&captcha_key=&captcha_sid=');
  if Pos('token', response)<>0 then begin
    temp:=copy(response, pos('access_token":"', response), pos('","expires_in', response)-3);

 

[Андрей]

Всем приветhacker. Не могу никак успокоится, все же хочу сделать онлайн через ПК. Вот код обычной авторизации через Android.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, httpsend, lib, Vcl.ExtCtrls,
  Vcl.StdCtrls, sCheckBox, sSkinManager, sButton, sEdit, sComboBox, sLabel, syncobjs,
  Vcl.OleCtrls, SHDocVw, acWebBrowser;

type
  TForm1 = class(TForm)
    sComboBox1: TsComboBox;
    sEdit1: TsEdit;
    sButton1: TsButton;
    sSkinManager1: TsSkinManager;
    sCheckBox1: TsCheckBox;
    Timer1: TTimer;
    sLabel1: TsLabel;
    sWebBrowser1: TsWebBrowser;
    Timer2: TTimer;
    sLabel2: TsLabel;
    Timer3: TTimer;
    procedure sButton1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure sWebBrowser1NewProcess(ASender: TObject; lCauseFlag: Integer;
      const pWB2: IDispatch; var Cancel: WordBool);
    procedure Timer2Timer(Sender: TObject);
    procedure sCheckBox1Click(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  HTTP:thttpsend;
  response, token:string;
  STRTime:string;
  Work:boolean;
  CS:TCriticalSection;
  Acc, Thread:integer;

implementation

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
CS.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
CS:=TCriticalSection.Create;
end;

procedure TForm1.sButton1Click(Sender: TObject);
var
i:integer;
temp, login, pass:string;
begin
STRtime:=TimetoStr(Time);
login:=sComboBox1.text;
pass:=sEdit1.text;
HTTP:=thttpsend.Create;
response:=send('GET', 'https://oauth.vk.com/token?grant_type=password&client_id=2274003&client_secret=hHbZxrka2uZ6jB1inYsH&username='+login+'&password='+pass+'&captcha_key=&captcha_sid=' + token);
  if Pos('token', response)<>0 then begin
    temp:=copy(response, pos('access_token":"', response), pos('","expires_in', response)-3);
    delete(temp, 1, 15);
    token:=temp;
    sCheckBox1.Visible:=true;
    sLabel1.Visible:=true;
    Timer2.Enabled:=true;
  end
  else ShowMessage('[' + STRtime + '] Ошибка авторизации' + response);
  end;

procedure TForm1.sCheckBox1Click(Sender: TObject);
begin
if sCheckBox1.Checked then begin Timer1.Enabled:=true;
end
else
Timer1.Enabled:=false;

end;

procedure TForm1.sWebBrowser1NewProcess(ASender: TObject; lCauseFlag: Integer;
  const pWB2: IDispatch; var Cancel: WordBool);
begin
sWebBrowser1.ShowAboutBox;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
temp:string;
begin
response:=send('GET', 'https://api.vk.com/method/friends.deleteAllRequests?q='+'&access_token='+ token);
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
sWebBrowser1.Navigate('https://vk.com/');
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
sLabel2.Caption:= (' ')+ DateToStr(Now)+' '+TimeToStr(Now);
end;

end.

После успешной авторизации таймер начинает свою работу

procedure TForm1.Timer2Timer(Sender: TObject);
begin
sWebBrowser1.Navigate('https://vk.com/');
end;

Как вы поняли, я добавил компонент WebBrowser.

Вот что я хочу сделать. Мне нужно чтобы из ComboBox1 копировался логин, и вставлялся в браузер. После этого был клик Enter как в хроме, чтобы в браузере с email был переход на строку Пароль. Копируем с Edit1 пароль и вставляем в браузере в строку пароля, и снова Enter. Вошли на сайт в браузере. Таймер будет переходить по ссылке vk.com соответственно онлайн будет через ПК. К тому же можно использовать методы Api через Android. Браузер нужно будет скрыть за форму. Есть конечно и минус, так можно авторизовать только один аккаунт. Но может и с этим можно что-то решитьformula!!
В общем помогите мне пожалуйста с копированием Логина и Пароля.

 

[Lomanu4]

Я вижу прошло много времени,вы уже нашли ответ на свой вопрос ?