Андрей
Принятый Кодер
- Регистрация
- 17 Дек 2015
- Сообщения
- 58
- Баллы
- 60
Код:
unit Unit2;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, sButton,
sEdit, httpsend, lib;
type
TForm2 = class(TForm)
sEdit1: TsEdit;
sEdit2: TsEdit;
sButton1: TsButton;
Timer1: TTimer;
sEdit3: TsEdit;
procedure sButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
temp:string;
end;
type
TPotok = class(TThread)
private
protected
public
response, token, uid: string;
procedure Execute; override;
procedure SetsButton1Click;
procedure SetTimer1Timer;
end;
var
Form2: TForm2;
tim:integer;
implementation
{$R *.dfm}
{ TPotok }
procedure TPotok.Execute;
var
i:integer;
begin
end;
procedure TForm2.sButton1Click(Sender: TObject);
var
I: Integer;
begin
Tpotok.Create(false);
for I := 1 to 3 do
end;
procedure TPotok.SetsButton1Click;
var
temp, login, pass: string;
begin
login:=Form2.sEdit1.Text;
pass:=Form2.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);
delete(temp, 1, 15);
token:=temp;
end
else ShowMessage('Ошибка авторизации');
end;
procedure TPotok.SetTimer1Timer;
var temp:string;
begin
response:=send('GET', 'https://api.vk.com/method/account.setOnline?v=5.24&access_token=' + token);
end;
end.
