无法通过这个"检查"

时间:2015-09-21 02:45:42

标签: delphi indy delphi-xe7

我在这个网站上的第一篇文章是关于我想为一个网站编写的下载程序...我已经完成了,之后,他们编写了我用base32的链接(或类似的东西)那之后我解码了链接,让我的程序再次运行......

现在,他们在您第一次访问网站之前会运行某种检查程序(这会创建会话密钥或在x小时后过期的某种类型)

相关网站为Kissanime

关于我的问题,我怎样才能使我目前的解决方案绕过这个检查? ,它说这个过程需要5秒钟才能完成,而且我已经让我的程序等了10秒才安全,无济于事(没想到它会如此简单)

我目前在手机上,但是一到我的电脑就会添加我当前的代码

通过使用Chrome的开发工具查看相关页面,我收集的内容是"检查"最有可能创建的目的是阻止程序访问它,但我看到其他程序使用该网站从中提取数据,所以必须有一种方法...

总之,我对使用Delphi的Indy组件与网站进行交互缺乏经验,所以这对我来说都是新的理由(注意:这仅仅是为了学习,我不打算通过这样做进行非法活动)

编辑:添加代码

procedure TForm1.btnParseClick(Sender: TObject);      // Clicking on the POST login info button
var
  Params : TStringList;
  UserName , Password : string;
begin
  Username := edtUsername.Text;       // Save the username
  Password := edtPassword.Text;       // Save the password
  IdHTTP := TIdHTTP.Create(self);     // Create HTTP component
  IdHTTP.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';       // Set user agent
  IdHTTP.HandleRedirects := True;     // Set flag to automatically handle any redirects

  IdHTTP.Get('http://kissanime.com/Login');       // Get the login page
  Sleep(1200);
  // now submit the webform...
  Params := TStringList.Create;         // Create a stringlist
  try
    Params.Add('username=' + UserName);     // add username
    Params.Add('password=' + Password);     // add password
    Params.Add('btnSubmit=');               // add simulation of "btnSubmit" click
    Params.Add('redirect=');                // Redirection

    IdHTTP.Post('http://kissanime.com/login', Params);        // Post information
  finally
    Params.Free;          // Free parameter stringlist
    mmoOutputTest.Lines.Add('Login Sucessfull');      // output
    mmoOutputTest.Lines.Add('--------------------------');
    mmoOutputTest.Lines.Add('Step Two : Enter the Anime Episode List Link');
    mmoOutputTest.Lines.Add('--------------------------')
  end;
end;

运行我的程序时,出现以下错误:HTTP / 1.1 503 Service暂时不可用。

0 个答案:

没有答案