Теперь вроде бы отправляю, но всеравно не логиниться
Код:
procedure TForm1.btn1Click(Sender: TObject);
var
KSlink,TOKEN:string;
log,Response:TStrings;
begin
KSlink:=idhtp1.Get('https://my.kyivstar.ua/tbmb/login/show.do');
TOKEN:=Copy(KSlink, Pos('org.apache.struts.taglib.html.TOKEN', KSlink)+44, 32);
edt4.Text:=TOKEN;
log:=TStringList.Create;
Response:= TStringList.Create;
log.Add('org.apache.struts.taglib.html.TOKEN='+TOKEN);
log.Add('isSubmitted=True');
log.Add('isInetUser=null');
log.Add('user='+edt1.Text);
log.Add('password='+edt2.Text);
log.Add('Submit=Вхід в систему');
Response.Text:=idhtp1.Post('https://my.kyivstar.ua/tbmb/login/show.do',log);
log.Free;
end;