Отправка смс

[gamer123]

Добрый вечер. Уже не соображаю как собрать в кучу, помогите плиз. Программа рассылки смс через шлюз оператора. Вводим в личный кабинет логин и пароль и имеем доступ отправлять смс без капчи со своего номера.

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, IdIOHandler, IdIOHandlerStream, IdIOHandlerSocket, IdIOHandlerStack,
  IdServerIOHandler, IdServerIOHandlerSocket, IdServerIOHandlerStack, IdSSL,
 IdSSLOpenSSL, IdCookieManager;

type

  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
    IdCookieManager1: TIdCookieManager;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  PostData:TStringList;
begin
  IdHTTP1.AllowCookies:=True;
  PostData:=TStringList.Create;
  PostData.Add('ctl00$MainContent$tbPhoneNumber=login123');
  PostData.Add('ctl00$MainContent$tbPassword=pass123');
  IdHTTP1.Post('https://ihelper.mts.ru/selfcare/logon.aspx',PostData);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  PostData:TStringList;
begin
  IdHTTP1.HandleRedirects:=True;
  PostData:=TStringList.Create;
  PostData.Add('ctl00$tbPhoneNumber=79161234567');
  PostData.Add('ctl00$tbMessage=кукуку');
  IdHTTP1.Post('http://messages.mts.ru/ND/messages.aspx',PostData);
end;

end.

первая процидура должна логиница с куками, вторая должна посылать post запрос на страницу отправки смс.

При авторизации (батон1) ошибка IOHandler value is not valid. Кидал на форму компонент HandlerSocket - не помогает. Вторая кнопка дает такую же ошибку. Если компонент убрать - то будет ошибка HTML 1.1 302

[DeDoK]

302 - включи редиректы

[gamer123]

Сообщение от DeDoK

302 - включи редиректы

а куки подключил правильно?

[DeDoK]

версия инди какая? 9 или 10? обнови до 10 если 9 стоит.

[gamer123]

Сообщение от DeDoK

версия инди какая? 9 или 10? обнови до 10 если 9 стоит.

10я, delphi 2010

[gamer123]

с этим вроде разобрался. Возникла новая ошибка - 405 method not allowed. Менял версии ssl - на версии 2.3 ошибка меняется на socket error 10054

[Der_G()RuNu(h]

Сообщение от gamer123

IdHTTP1.Post('https://ihelper.mts.ru/selfcare/logon.aspx',PostData);

а для других операторов сотовой связи адреса есть?