- Регистрация
- 1 Мар 2015
- Сообщения
- 1,184
- Баллы
- 155
Код:
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,httpsend,ssl_openssl,lib;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
email,pass,response,msg:string;
{ Public declarations }
end;
var
Form1: TForm1;
token:string;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
s2,userid:string;
begin
email:=Edit1.Text;
pass:=Edit2.Text;
response:=send('GET','https://oauth.vk.com/token?grant_type=password&client_id=2274003&client_secret=hHbZxrka2uZ6jB1inYsH&username='+email+'&password='+pass+'&captcha_key=&captcha_sid=');
msg:=response;
if Pos('token',response) <> 0 then
begin
s2:=copy(response, pos('access_token":"', response), pos('","expires_in', response)-3);
delete(s2, 1, 15);
token:=s2;
Memo1.Lines.Add(msg);
msg:=token;
userid:=s2;
s2:=Copy(response,Pos('user_id":',response),Pos('}',response));
Delete(s2,1,9);
Delete(s2,Pos('}',s2),1);
userid:=s2;
Memo1.Lines.Add(msg);
msg:=userid;
Memo1.lines.add (msg);
end else
begin
memo1.lines.add('Error');
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
response:= send ('GET','https://api.vk.com/method/friends.get?uid=95921229&access_token='+token);
msg:=response;
Memo1.Lines.Add(msg)
end;
end.[HIDE=1]Guardianelinks.com[/HIDE]
Последнее редактирование:
