Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

 / 
WebService-AntiCaptcha-0.02
River stage zero No dependents
/ WebService::AntiCaptcha

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

https://anticaptcha.atlassian.net/wiki/spaces/API/pages/325877766/FunCaptchaTaskProxyless+-+funcaptcha+without+proxy


            

              
              
my $res = $wac->createTask({
    type => 'FunCaptchaTaskProxyless',
    websiteURL => 'https://client-demo.arkoselabs.com/solo-animals',
    websitePublicKey => $public_key
});

FunCaptchaTask

https://anticaptcha.atlassian.net/wiki/spaces/API/pages/65634347/FunCaptchaTask+-+rotating+captcha+funcaptcha.com


            

              
              
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

https://anticaptcha.atlassian.net/wiki/spaces/API/pages/8290316/getQueueStats+obtain+queue+load+statistics


            

              
              
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.

SEE ALSO