0

我想知道如何在我的脚本中插入solvemedia验证码。我确实从他们的网站（https://portal.solvemedia.com/media/download/WWW-SolveMedia-1.1.tar.gz）安装了模块，但不知道在哪里添加这个（他们的说明）：

安装插件后，您可以开始调用 Solve Media API。 显示小部件

要在您的一个表单上显示 Solve Media 小部件，请实例化 SolveMedia 类，并为其提供您的 API 密钥。然后调用 get_html 函数。您可以在我的帐户中找到您的 API 密钥：

use WWW::SolveMedia;
my $c = WWW::SolveMedia->new( 'my challenge key',
            'my verification key',
            'my hash key' );

# output widget
print $c->get_html();

处理答案

您可以通过调用 SolveMedia.check_answer(...) 检查用户的响应。

# check answer
my $result = $c->check_answer( $ENV{REMOTE_ADDR}, $challenge, $response );

if( $result->{is_valid} ){
    print "Yay!";
}else{
    print "Dang it :-(\n";
    print "Error: ".$result->{error};
}

这就是我卡住的地方，因为我不知道如何/在哪里插入该代码。如果你们中的任何人愿意提供帮助，请回复。我愿意付几块钱。

4

1 回答 1

1

您创建新对象，然后将 get_html 的结果保存到一个变量中，然后将其粘贴到某个网页中，或者内联打印它。

您将 Perl 代码放在生成您希望验证码出现的页面的子例程中。并且您将调用 process 放在处理您打印验证码的页面上的表单提交的代码中。

于 2012-11-02T23:03:09.483 回答