Форум АНТИЧАТ - sms на beeline?

sms на beeline?

18.04.2010, 22:23

logger

Новичок

Регистрация: 15.01.2010

Сообщений: 28

Провел на форуме:
466864

Репутация: 3

sms на beeline?

Пытаюсь сделать отправку смс на билайн делаю так:

PHP код:


		
			
unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, 

  IdHTTP, ExtCtrls, StdCtrls, IdMultipartFormData, OleCtrls, SHDocVw, XPMan,

  IdCookieManager;



type

  TForm1 = class(TForm)

    Button1: TButton;

    IdHTTP1: TIdHTTP;

    WebBrowser1: TWebBrowser;

    XPManifest1: TXPManifest;

    Button2: TButton;

    Edit1: TEdit;

    Edit4: TEdit;

    Edit5: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    sms_text: TMemo;

    Memo1: TMemo;

    Edit6: TEdit;

    Edit2: TEdit;

    IdCookieManager1: TIdCookieManager;

    WebBrowser2: TWebBrowser;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;

  s: string;



implementation



{$R *.dfm}



function ParserBlock(const Str:string; const Param1,Param2:string):string; 

var 

  BeginPos, 

  EndPos:integer; 

  TempStr:string; 

Begin

TempStr:=Str; 

  BeginPos:=AnsiPos(Param1,TempStr)+length(Param1);

  delete(TempStr,1,beginPos-1); 

  BeginPos:=AnsiPos(Param1,TempStr)+length(Param1); 

  EndPos:=AnsiPos(Param2,TempStr); 

  Result:=copy(TempStr,1,EndPos-1); 

end;

procedure TForm1.Button1Click(Sender: TObject);

var

str:string; fs:tfilestream;

begin

str:=idhttp1.get('http://www.beeline.ru/sms/index.wbp');

s:=(ParserBlock(Str, 'ddle"><img src="','" alt="Êîä"><'));

webbrowser1.Navigate ('http://www.beeline.ru/'+s+'');

Edit5.Text := s;

end;

procedure TForm1.Button2Click(Sender: TObject);

var

str: string;

data: TStringList;

Http  : TidHttp;

CM    : TidCookieManager;

sPos: integer;

begin

data := TStringList.Create;

try

    Http := TIdHTTP.Create(Self);

    Data := TStringList.Create;

    CM := TidCookieManager.Create(Http);

    Http.AllowCookies := true;

    Http.CookieManager := CM;

    Http.HandleRedirects := true;

data.Add('send=' );

data.Add('smstext='+sms_text.Text);

data.Add('smstoprefix=' +Edit2.Text);

data.Add('smsto=' +edit1.Text);

data.Add('dirtysmstext=' +sms_text.Text);

data.Add('translit=' +Edit6.Text);

data.Add('confirm_key=');

data.Add('confirmcode='+Edit4.Text);

data.Add('x=35');

data.Add('y=11');

str := HTTP.Post('http://www.beeline.ru/sms/index.wbp', data);

finally

    Data.Free;

    CM.Free;

    Http.Free;

  end;

end;

end.

Смс не приходит.

Последний раз редактировалось logger; 18.04.2010 в 22:26..