Question

我希望导航到TWebBrowser组件中的随机网站。网上有数百万个网站，但如何选择随机网站并在网页浏览器中导航到它。

我打算制作一个非常基本的应用程序。其中一个按钮是随机网站按钮，将用户带到随机网站。

我正在使用Delphi XE6。我该怎么做？

Answer 1

您需要一个可供选择的网站来源。您可以自己制作一个列表，也可以使用websites that make you jump to a random web site之一，例如The Useless Web（正如它所说的是无用的网站的选择）或Random Website Machine在WhatsMyIp.com。

如果您可以自行删除中间站点的代码，则可以自行使用，否则必须加载它并执行按钮单击。

我也试过了Randomwebsite但是如果加载失败了。这显示了这种方法的缺点：您依赖于中间站点的可用性但是，如果您使用自己的列表，那么您还必须检测已经消失的网站并提供新的网站。

Answer 2

你可以使用谷歌“我很幸运”链接：

WebBrowser.Navigate('http://www.google.com/search?q=TEST&btnI');

这实际上是一个搜索，因此请使用您喜欢的任何值更改 TEST 搜索字符串： book ， kitten ，蓬松+动物，...

Answer 3

所以5年后，我终于决定正确回答自己的问题。这是我编写的用于导航到互联网上的随机网站的功能：

procedure RandomWebsite;
const
  A = 'qwertyuioplkjhgfdsazxcvbnm';
var
  i: Integer;
  s: String;
begin
  s := '';
  for i := 1 to random(20) do
    s := s + A[random(A.Length)];
  s := s + '.com';

  try
    IdIcmpClient1.Host := s;
    IdIcmpClient1.Ping();
    Webbrowser1.Navigate(s);
  except
    RandomWebsite;
  end;
end;

我正在使用INDY的TIdIcmpClient组件来对主机执行ping操作，以查看网站是否存在。如果该网站存在，那么我导航至该网站。如果不存在，请尝试使用其他主机网址。

我的书面程序非常简单。您当然可以修改它以满足您的需求，并使它更加“随机”。我的示例仅适用于.com域，且其中包含字母。

对于大多数正在寻找如何使用Delphi TWebBrowser导航到随机网站的解决方案的人来说，此示例就足够了。

使用Delphi中的TWebBrowser组件导航到随机网站

3 个答案: