Каратель12
Юзер
Каратель12
Юзер
- 21 Окт 2015
- 299
- 102
модуль для разгадывания обычной и гугл каптчи сразу через 2 сервиса: anti-captcha.com и rucaptcha.com на основе синапса!
Последний параметр в обеих функциях отвечает за сервис, если TRUE то рукаптча, если FALSE то антикаптча.
Пример для рекаптчи вк:
Пример для обычной каптчи вк:
Исходный код модуля: Автор модуля - Vans
Последний параметр в обеих функциях отвечает за сервис, если TRUE то рукаптча, если FALSE то антикаптча.
Пример для рекаптчи вк:
Код:
Result:=RecognizeRC('6Le00B8TAAAAACHiybbHy8tMOiJhM5vh88JVtP4c', 'http://vk.com/', 'ваш_API_ключ', TRUE);
Код:
procedure Captcha(sid: string; var Answer: string);
var fm:TmemoryStream; HTTP:THTTPSend;
begin
fm:=TMemoryStream.Create;
HTTP:=THTTPSend.Create;
HTTP.AddPortNumberToHost:=false;
HTTP.UserAgent:='Mozilla/5.0 (Windows NT 5.1; rv:28.0) Gecko/20100101 Firefox/58.0';
HTTP.Protocol:='1.1';
HTTP.HTTPMethod('GET', 'https://vk.com/captcha.php?sid='+sid);
fm.LoadFromStream(HTTP.Document);
fm.Position:=0;
Answer:=Recognize(fm, 'ваш_API_ключ', TRUE);
HTTP.Free;
fm.Free;
end;