[Taemin]

Попытался написать простенький парсер html-кода страницы после удачной авторизации... что-то не удалось
Снифером HTTPAnalyzer посмотрел все GET и POST запросы, вроде бы делаю правильно, а результата нужного нет

Сайт
https://my.kyivstar.ua/
Логин
+380980561942
Пароль
435465

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,   IdTCPClient, IdHTTP, IdIOHandler, IdIOHandlerSocket, IdSSLOpenSSL, httpsend, ssl_openssl,   OleCtrls, SHDocVw, synacode, synautil, Gauges, ExtCtrls, ComCtrls, Grids, DateUtils,   sSkinManager;   type   TForm1 = class(TForm)     btn1: TButton;     lbl1: TLabel;     edt2: TEdit;     mmo1: TMemo;     mmo2: TMemo;     lbl2: TLabel;     procedure btn1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}     function FoundLocationStrNum(Headers: TStringlist): integer; var   FoundStrPos, i: integer; begin   Result := -1;   for i := 0 to Headers.Count do   begin     FoundStrPos := Pos('Location: ', Headers.Strings[i]);     if FoundStrPos > 0 then     begin       Result := i;       exit;     end;   end; end;   function GetHTTPStr(http: THTTPSend): string; var   BodyStream: TStringStream;   BodyS: TStringList; begin   try     BodyS := TStringList.Create;     BodyStream := TStringStream.Create(result);     begin       BodyS.LoadFromStream(http.Document);       result := BodyS.Text;     end;   finally     BodyStream.Free;     BodyS.Free;   end;   http.Document.Seek(0, soFromBeginning); end;   procedure TForm1.btn1Click(Sender: TObject); label   ERRORLabel; var   stream: TStringStream;   httpsend: THTTPSend;   Res: boolean;   n: integer;   KSlink, TOKEN, NewURL: string;   A0,A1,A2,A3:String;   REZ,z2,QW,result,before,after:String;   i,z1,w,t,l:Integer;   Cnt: Integer;   today : TDateTime;   lol1,GONJO:string;   lol2:Integer;   znach:Extended;   //   myDate,Date1,myDateX : TDateTime;   m1 : Integer; begin       httpsend:=THTTPSend.Create;       httpsend.AddPortNumberToHost:= False;       httpsend.HTTPMethod('get', 'https://my.kyivstar.ua/tbmb/login/perform.do');       Application.ProcessMessages;       mmo1.Lines.LoadFromStream(httpsend.Document);       Application.ProcessMessages;    //-S-- Первый POST запрос ---    stream := TStringStream.Create('');    stream.WriteString('action=isCaptchaNeeded&user=%2B380980561942');    Application.ProcessMessages;    httpsend.Clear;    httpsend.MimeType := 'application/x-www-form-urlencoded';    httpsend.Document.LoadFromStream(stream);    Res := httpsend.HTTPMethod('post', 'https://my.kyivstar.ua/tbmb/checkUser');    Application.ProcessMessages;    //-E-- Первый POST запрос ---    //-S-- Второй POST запрос ---    stream := TStringStream.Create('');    stream.WriteString('isSubmitted=true&USERNAME=&USER_NAME=&ORIG_URL=&isInetUser=null&buser=&bpath=&user=%2B380980561942&password=435465&captcha=&value%28jumpTo%29=&value%28jumpToUrl%29=&Submit=%D3%E2%B3%E9%F2%E8');    Application.ProcessMessages;    httpsend.Clear;    httpsend.MimeType := 'application/x-www-form-urlencoded';    httpsend.Document.LoadFromStream(stream);    Res := httpsend.HTTPMethod('post', 'https://my.kyivstar.ua/tbmb/login/perform.do');    Application.ProcessMessages;    //-E-- Второй POST запрос ---    result:=IntToStr(httpsend.ResultCode);            if result = '302' then       begin         lbl2.Caption:='Good!';         Application.ProcessMessages;       end;         if result <> '302' then       begin         lbl2.Caption:='Bad!';       end;             if Res then       case httpsend.ResultCode of         301, 302, 307:           begin             n := FoundLocationStrNum(httpsend.Headers);             if (n >= 0) and (n <= httpsend.Headers.count) then             begin               NewURL := StringReplace(httpsend.Headers.Strings[n], 'Location: ', '', []);               Application.ProcessMessages;               httpsend.Clear;               httpsend.HTTPMethod('GET', NewURL);               Application.ProcessMessages;               mmo2.Lines.Text := GetHTTPStr(httpsend);               Application.ProcessMessages;             end;           end;       end; end; end.