Новая авторизация на UCOZ

unit main;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdHTTP, IdCookieManager, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    Edit3: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure wbotCook(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  HTTP: TIdHTTP;
  Cook :TidCookieManager;
  Data:TStringList;
  gt, pt, ngt, l: string;
 
implementation
 
{$R *.dfm}
 
function Pars(T_, ForS, _T: string): string;
var
  a, b: integer;
begin
  Result := '';
  if (T_ = '') or (ForS = '') or (_T = '') then
    Exit;
  a := Pos(T_, ForS);
  if a = 0 then
    Exit
  else
    a := a + Length(T_);
  ForS := Copy(ForS, a, Length(ForS) - a + 1);
  b := Pos(_T, ForS);
  if b > 0 then
    Result := Copy(ForS, 1, b - 1);
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if HTTP=TIdHTTP.Create(self) then begin
if HTTP.Connected=True then begin
HTTP.Disconnect;
HTTP.Free;
end;
end;
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
wbotCook(Sender);
end;
 
procedure TForm1.wbotCook(Sender: TObject);
begin
  HTTP:=TIdHTTP.Create(self);
  Cook:=TidCookieManager.Create(HTTP);
  HTTP.CookieManager:=Cook;
  HTTP.AllowCookies:=true;
  HTTP.HandleRedirects:=true;
  HTTP.Request.Host:='ваш сайт без http//';
  HTTP.Request.Connection:='keep-alive';
  HTTP.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8';
  HTTP.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/34.0.1847.116 Safari/537.36';
  HTTP.Request.AcceptLanguage:='ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4';
  HTTP.GET('ваш сайт');
  gt:= HTTP.GET('ваш сайт');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Data:=TStringList.Create;
  HTTP.Request.Host:='ваш сайт без http//';
  HTTP.Request.Connection:='keep-alive';
  HTTP.Request.Accept:='application/xml, text/xml, */*; q=0.01';
  HTTP.Request.CustomHeaders.Add('X-Requested-With: XMLHttpRequest');
  HTTP.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/34.0.1847.116 Safari/537.36';
  HTTP.Request.ContentType:='application/x-www-form-urlencoded; charset=UTF-8';
  HTTP.Request.Referer:='http://wbot.at.ua/';
  HTTP.Request.AcceptLanguage:='ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4';
  Data.Add('user='+Edit1.Text);
  Data.Add('password='+Edit2.Text);
  Data.Add('a=2');
  Data.Add('ajax=2');
  Data.Add('_tp_=xml');
  pt:= HTTP.POST('http://ваш сайт/index/sub/',Data);
  if Pos('Неправильный логин или пароль',pt) <> 0 then begin
  ShowMessage('Авторизация провалилась');
end else
 ShowMessage('Авторизация прошла успешно');
  ngt:=pars('setTimeout("window.location.href=''"+ad+"', pt, '''",''1000'')]]>' );
  HTTP.GET('http://wbot.at.ua/'+ngt);
  l:=HTTP.GET('http://wbot.at.ua/'+ngt);
end;
 
end.