Question

我想知道如何在我的脚本中插入solvemedia captcha。我确实从他们的网站安装了该模块（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};
}

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

Answer 1

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

您将Perl代码放在子程序中，这些子程序生成您希望显示验证码的页面。并且您将代码调用处理在处理您在打印验证码的页面上提交表单的代码中。

使用perl集成solvemedia验证码

1 个答案: