NAME
WebService::AntiCaptcha - anti-captcha.com API
SYNOPSIS
use WebService::AntiCaptcha;
my $wac = WebService::AntiCaptcha->new(
clientKey => 'your_client_key'
);
my $res = $wac->getBalance or die $wac->errstr;
print $res->{balance};
DESCRIPTION
WebService::AntiCaptcha is for https://anticaptcha.atlassian.net/wiki/spaces/API/pages/196635/Documentation+in+English
NOTE
Note we don't raise error for API response errorId > 0. You should handle those yourself.
# after each method call
die $wac_res->{errorDescription} if $wac_res->{errorId};
METHODS
createTask
https://anticaptcha.atlassian.net/wiki/spaces/API/pages/5079073/createTask+captcha+task+creating
my $res = $wac->createTask($task, $softId, $languagePool);
ImageToTextTask
my $res = $wac->createTask({
type => 'ImageToTextTask',
body => "BASE64_BODY_HERE!",
}) or die $wac->errstr;
NoCaptchaTaskProxyless
recaptcha solving. check xt/recaptcha.pl for a working example.
my $res = $wac->createTask({
type => 'NoCaptchaTaskProxyless',
websiteURL => "http://mywebsite.com/recaptcha/test.php",
websiteKey => "6Lc_aCMTAAAAABx7u2N0D1XnVbI_v6ZdbM6rYf16"
}) or die $wac->errstr;
NoCaptchaTask
with proxy
my $res = $wac->createTask({
type => 'NoCaptchaTask',
websiteURL => "http://mywebsite.com/recaptcha/test.php",
websiteKey => "6Lc_aCMTAAAAABx7u2N0D1XnVbI_v6ZdbM6rYf16",
"proxyType" => "http",
"proxyAddress" => "8.8.8.8",
"proxyPort" => 8080,
"proxyLogin" => "proxyLoginHere",
"proxyPassword" => "proxyPasswordHere",
"userAgent" => "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_11_6) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/52.0.2743.116 Safari/537.36"
}) or die $wac->errstr;
FunCaptchaTaskProxyless
my $res = $wac->createTask({
type => 'FunCaptchaTaskProxyless',
websiteURL => 'https://client-demo.arkoselabs.com/solo-animals',
websitePublicKey => $public_key
});
FunCaptchaTask
my $res = $wac->createTask({
type => 'FunCaptchaTask',
websiteURL => 'https://client-demo.arkoselabs.com/solo-animals',
websitePublicKey => $public_key,
"proxyType" => "http",
"proxyAddress" => "8.8.8.8",
"proxyPort" => 8080,
"proxyLogin" => "proxyLoginHere",
"proxyPassword" => "proxyPasswordHere",
"userAgent" => "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_11_6) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/52.0.2743.116 Safari/537.36"
});
getTaskResult
https://anticaptcha.atlassian.net/wiki/spaces/API/pages/5079103/getTaskResult+request+task+result
my $res = $wac->getTaskResult($taskId) or die $wac->errstr;
getBalance
https://anticaptcha.atlassian.net/wiki/spaces/API/pages/6389791/getBalance+retrieve+account+balance
my $res = $wac->getBalance or die $wac->errstr;
print $res->{balance};
getQueueStats
my $res = $wac->queueId($queueId) or die $wac->errstr;
reportIncorrectImageCaptcha
my $res = $wac->reportIncorrectImageCaptcha($taskId) or die $wac->errstr;
AUTHOR
Fayland Lam <fayland@gmail.com>
COPYRIGHT
Copyright 2017- Fayland Lam
LICENSE
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.