Delphi Indy TIdHTTP 网站识别机器人-6ren

Delphi Indy TIdHTTP 网站识别机器人

转载作者：行者123 更新时间：2023-12-03 15:56:13

28

4

我尝试向网站发送获取请求。问题是，如果请求者是机器人，网站就会被识别

const _URL = 'https://www.URL.com/';
var
  sSessionID:String;
  Params: TStringList;
  IdSSL: TIdSSLIOHandlerSocketOpenSSL;
begin
  IdSSL := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP1);
  try
    IdHTTP1.IOHandler := IdSSL;
    IdHTTP1.AllowCookies := True;
    IdHTTP1.HandleRedirects := True;
    IdHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows NT 10.0; WOW64; rv:42.0) Gecko/20100101 Firefox/42.0';
    IdHTTP1.Request.Accept := 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
    IdHTTP1.Request.AcceptLanguage := 'en-GB,en;q=0.5';
    IdHTTP1.Request.Connection := 'keep-alive';
    IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
    sSessionID := IdHTTP1.Get(_URL);
    {....
        extracting SessionID
            Params.Add('SessionID=' + 'sSessionID');
                IdHTTP1.Post(_URL, Params);
                    .....}
  finally
    IdSSL.Free;
  end;

IdHTTP.get 的结果是 <!DOCTYPE html><head><META NAME="ROBOTS".....它是空的，我无法获取 session ID。

http 请求 header 与我的浏览器发送的相同。

最佳答案

由于我可以获得真实的 URL，这是我最好的猜测:

uses
  Math;
...
    const
      _URL = 'https://www.url.com/';
    var
      sSessionID: string;
      Params: TStringList;
      IdSSL: TIdSSLIOHandlerSocketOpenSSL;
    begin
      IdSSL := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP1);
      try
        IdHTTP1.IOHandler := IdSSL;
        IdHTTP1.AllowCookies := True;
        IdHTTP1.HandleRedirects := True;
        IdHTTP1.Request.CustomHeaders.AddValue('X-Forwarded-For', Format('%d.%d.%d.%d', [Random(255), Random(255), Random(255), Random(255)]));
        IdHTTP1.Request.UserAgent := Format('Mozilla/%d.0 (Windows NT %d.%d; rv:2.0.1) Gecko/20100101 Firefox/%d.%d.%d', [RandomRange(3, 5), RandomRange(3, 5), Random(2), RandomRange(3, 5), Random(5), Random(5)]);
        IdHTTP1.Request.Accept := 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
        IdHTTP1.Request.AcceptLanguage := 'en-GB,en;q=0.5';
        IdHTTP1.Request.Connection := 'keep-alive';
        IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
        sSessionID := IdHTTP1.Get(_URL);
    ...
      finally
        ...
      end;

关于Delphi Indy TIdHTTP 网站识别机器人，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/33608543/

28

4

0

文章推荐： events - eventCategory 和 eventAction 值

文章推荐： razor - @RenderSection 在 Blazor 中等效？

文章推荐： php - 将维度和指标数据添加到数组

indy - SHA 256 与 Indy
我尝试使用SHA-256加密功能，但没有成功。我需要获取字符串和文件的哈希值。我使用 Delphi 10.1 Berlin 和 Indy for Hash。我的代码: uses System.Cl
indy - 在 Lazarus 上安装最新版本的 Indy 10
是否有关于如何在 Lazarus 中安装 Indy 10 组件的分步指南？我在 https://svn.atozed.com:444/svn/Indy10 查看了最后一个 snv 快照用户名:In
delphi - 如果我编写程序以使用 Indy 9，我的程序能否在客户站点使用 Indy 10？
我在 Delphi 7 中编写了一个程序(包括一个使用 Indy 的 ModBus 组件)。在我的机器上，它使用 Indy 9 并且工作正常。它通过 ModBus 协议(protocol)与其他机器进
indy - 如何处理 Indy TIdTCPClient 超出 MaxLineLength 的情况
我是 indy 新手，使用 CBuilder XE4 附带的任何版本。这是非常简单的代码，在我正在阅读的内容超过 16K 限制之前都可以正常工作...... String Ttcp_mgr::send
hyperledger-indy - Hyperledger Indy : Create genesis transaction file
我在 4 个基于 ubuntu 的机器上设置了 4 个节点。我使用以下命令生成了这些节点所需的 key :init_indy_node VAL1 0.0.0.0 9701 0.0.0.0 9702 1
delphi - Indy 10 与 Delphi 2006 : Workable? 想要使用 Indy 9 应用程序吗？
当前应用程序:Delphi 2006、indy9(大量使用 SOAP 和其他组件) 需要转到 Indy 10 以获得 TLS 支持(poodle 等)。看着 http://www.indyproje
delphi - 将 Delphi 代码的 Indy 10 写入 C++ Builder 的 Indy 10
我是 C++ Builder 的新手。三天前，我安装了 Embarcadero®。 C++Builder® 2010。这门语言对我来说非常有趣。在 Delphi 中，我通常使用 Indy 9 和 1
Delphi Indy - 如何为 Indy 10 的 SSL-TCP 客户端/服务器链接获取 SSL 证书
我对 SSL 和这些加密的东西完全陌生，但我需要让在移动设备上运行的客户端和服务器 Delphi XE6 应用程序进行通信。必须对 TCP 通信进行安全加密。首先，我简单地编写了基于 Win32 客
delphi - Indy，连接过多时访问冲突
我有三个问题: 是否可以通过多个连接破坏IdTCPServer？我尝试测试我的应用程序，并且当我有多个连接时 - 它工作得很好(甚至几天)，但是当有时连接数增加时，应用程序会导致访问冲突。我写的应用
Delphi Indy IdMappedPortTCP
我使用 Delphi XE 5/6，默认 Indy 版本，Windows 7。IdMappedPortTCP(放在表单上的组件)将本地流从 FFmpeg 重定向到 Twitch.tv，并且总是接近 2
delphi - Indy 的强大单向消息
我有一个客户端应用程序，它应该向可选的服务器应用程序发送通知消息。客户端不应受到服务器应用程序是否存在的影响。它应该尝试连接到服务器应用程序并发送通知消息，如果出现错误，它应该默默地忽略所有错误并继续
delphi - Indy，如何知道所需缓冲区的大小？
我在使用Indy(idTCPServer组件)读取客户端发送的数据时遇到一些问题，数据本身是十六进制格式的，所以我不能使用AThread.Connection.ReadLn( )；为此... 这是我的
Delphi Indy 404后无响应内容
当Indy收到404时，我无法获取响应内容，它总是空的。例如使用Indy访问https://www.etsy.com/people/car ，我收到 404 并且内容流(或分配的流)只是空的。对TH
delphi - 我应该将我的网上经纪项目移植到 Indy
很久以前，我使用 Delphi 2007 和 WebBroker (TWebModule) 启动了一些“Web 应用程序”。当时我假设您需要一个 Web 服务器(例如 Apache 或 Microso
delphi - 我怎样才能让我的delphi应用程序使用FTPS而不是FTP(indy)
这是我的程序: Application.FTP.Host:= vHost; Application.FTP.Port:= vPort; try Application.FTP.AutoLogin
delphi - Indy 升级后的编码问题
以下代码请求 OAuth2 token 。它适用于 Indy 10.0.52，但对于 Indy 10 SVN 5412，由于请求凭据无效，它会生成 400 Bad Request 错误。 WXYZUs
Delphi Indy 附件不工作
我有一个应用程序需要从网络驱动器进行一些 FTP 上传。我为此使用 Indy。然后，当文件位于网络驱动器上并成功上传到 FTP 服务器时，我想通过电子邮件将同一文件发送给同事。我正在使用下面的代码来
delphi - Indy UDP读取Adata的内容
我正在使用 Indy UDP Server 读取一串数据。但是，我真的不知道如何使用 Adata 参数。我可以通过使用下面的 ByteToBin 函数将其转换为二进制，然后使用 BintoHex1 将
Delphi indy 将流发送到客户端
我是独立服务器的新手，所以我正在努力完成这个简单的任务。我必须创建一个服务器并上传一个小文件；它的大小始终为 128 字节。然后，当有人打开服务器主页时，文件会自动发送。所以: 在磁盘上上传一个文件(
delphi - Indy UDP发送和响应简单字符串
我正在使用 Delphi 10.0 西雅图。我想向 UDP 服务器发送请求，然后读取服务器响应，这是一个简单的字符串: Client side:send('12345') server side(o

首页

博学

6Ren·AI

商城

Delphi Indy TIdHTTP 网站识别机器人