UDF для работы с API anti-captcha.com

WR-e-D · 17 Фев 2015

AutoIt: 3+
Версия: 1.4

Категория: Автоматизация, Вспомогательные функции, Интернет, Разное

Описание: Обновленная UDF для работы с сервизом anti-captcha.com

Код/Пример:

Код:

#include <Captcha.au3>
$Resp = __AntiCaptcha("KEY", @ScriptDir & "/img.png", False, 0, 0, 1, 0, 5, 5)
MsgBox(0, "Responce", $Resp)

Автор(ы): WRed

joiner · 17 Фев 2015

5 СЂР°Р·РЅС‹С… СЂР°Р±РѕС‚РЅРёРєРѕРІ РЅРµ СЃРјРѕРіР»Рё СЂР°Р·РіР°РґР°С‚СЊ РєР°РїС‡Сѓ

это на каком языке? :smile:

WR-e-D · 18 Фев 2015

joiner сказал(а):
5 СЂР°Р·РЅС‹С… СЂР°Р±РѕС‚РЅРёРєРѕРІ РЅРµ СЃРјРѕРіР»Рё СЂР°Р·РіР°РґР°С‚СЊ РєР°РїС‡Сѓ

Нажмите, чтобы раскрыть...

это на каком языке?

Подробнее пожалуйста, откуда это ?

firex · 18 Фев 2015

joiner
File/Encoding/UTF8

inververs · 18 Фев 2015

WR-e-D
тут забыли выйти из функции,т.к файла нет.

Код:

If Not FileExists($file) Then
		MsgBox(16, 'No CAPTCHA file', $file)
	EndIf
	$fh = FileOpen($file, 16)

Проверьте вам скрипт с этими опциями, найдете еще пару ошибок.
#AutoIt3Wrapper_AU3Check_Parameters=-q -d -w 1 -w 2 -w 4 -w 5 -w 6 -w 7
В UDF не нужно показывать MSGBOX или ToolTip.
PS, не в обиду, но выглядит как наколенная подделка, сделанная за 5 минут.

WR-e-D · 18 Фев 2015

inververs сказал(а):
WR-e-D
тут забыли выйти из функции,т.к файла нет.

Код:

If Not FileExists($file) Then MsgBox(16, 'No CAPTCHA file', $file) EndIf $fh = FileOpen($file, 16)

Проверьте вам скрипт с этими опциями, найдете еще пару ошибок.
#AutoIt3Wrapper_AU3Check_Parameters=-q -d -w 1 -w 2 -w 4 -w 5 -w 6 -w 7
В UDF не нужно показывать MSGBOX или ToolTip.
PS, не в обиду, но выглядит как наколенная подделка, сделанная за 5 минут.

Было сделано для себя, так-как не нашел рабочего варианта (нечего было подделывать). Выложил, чтоб кому нибудь сэкономить время. А что не оформлено как UDF простите, опыта в создании UDF не имею. Буду рад коррекциям с вашей стороны.
П.С. Ошибок кстати нет (ну кроми выше указанной), есть ворнинги декларации переменных
P.P.S. Перезалил.

Да и кстати, что за параметр " -w 7" у врапера ?

inververs · 18 Фев 2015

WR-e-D [?]

Было сделано для себя, так-как не нашел рабочего варианта

А, ясно тогда.

Если пишите UDF, то даете ей имя. Например AntiCaptcha, и все функции начинаются на _AntiCaptcha

Код:

_AntiCaptcha
_AntiCaptcha_HttpPost
_AntiCaptcha_HttpGet
_AntiCaptcha_URLEncode
итп

Так не будет конфликтов с другим UDF.

Но больше вопросов вызывает логика. Особенно 2 цикла подряд.

Код:

Do
..
Until $captcha_id <> @error And @extended <> 1

И посути функция _AntiCaptcha возращает ошибку только в том случае если нет файла.
А если баланс отрицательный, или забанен ИП, или другая причина, вы это вообще не обрабатываете.
Пауза в 10 секунд, тоже странная.
Я вижу алгоритм такой:
Делаете цикл от 1 до 5, конечный, пытаетесь отправить файл. Если файл принят, то только в этом случае переходите ко второму циклу, который будет ждать распознавания.
Если файл не принят, то смотрите почему: Если нет денег, нет доступа, ключ не верный, и тп (критические ошибки), то вообще нет смысла больше отправлять запросы, сразу возвращайте ошибку.
Если же нет слотов, то пауза и цикл заново.

Если в конце файл все таки не удалось отправить, то тоже ошибка.

Второй цикл проще, в течении времени X (обычно 30 сек) получаете статус распознавание.
Если опять критические ошибки, то возвращаете ошибку. Иначе небольшая пауза и повтор.

из _GetInfo я бы убрал проверку на OK, вынес бы ее в другую функцию, тогда _GetInfo возвращала бы только ошибки, причем критические помечаются по особому.

Функцию замените _Base64Encode на эту:

Код:

Func __AntiCaptcha_Base64Encode_MS($Binary, $iFlags = 0x40000001)
	$Binary = Binary($Binary)
	Local $tByteArray = DllStructCreate('byte[' & BinaryLen($Binary) & ']')
	DllStructSetData($tByteArray, 1, $Binary)
	Local $aSize = DllCall("Crypt32.dll", "bool", 'CryptBinaryToString', 'struct*', $tByteArray, 'dword', BinaryLen($Binary), 'dword', $iFlags, 'str', Null, 'dword*', Null)
	Local $tOutput = DllStructCreate('char[' & $aSize[5] & ']')
	Local $aEncode = DllCall("Crypt32.dll", "bool", 'CryptBinaryToString', 'struct*', $tByteArray, 'dword', $aSize[2], 'dword', $iFlags, 'struct*', $tOutput, 'dword*', $aSize[5])
	If @error Or (Not $aEncode[0]) Then Return SetError(1, 0, 0)
	Return DllStructGetData($tOutput, 1)
EndFunc   ;==>_Base64Encode_MS

Добавлено:
Сообщение автоматически объединено: 18 Фев 2015

Судя по API вообще нет смысла много раз отправлять файл, 1 раза достаточно, если файл не принят, то и не нужно отправлять его еще раз и так ясно, что проблема с файлом.

WR-e-D · 18 Фев 2015

inververs сказал(а):
Добавлено:
Сообщение автоматически объединено: 18 Фев 2015

Судя по API вообще нет смысла много раз отправлять файл, 1 раза достаточно, если файл не принят, то и не нужно отправлять его еще раз и так ясно, что проблема с файлом.

Вот новый АПИ (возможно они отличаются)
Первый цикл нужен для ответа "ERROR_NO_SLOT_AVAILABLE" судя по апи, капча в данном случае не принята.
Щяс все переделаю и залью. Спасибо за советы.
Добавлено:
Сообщение автоматически объединено: 18 Фев 2015

inververs сказал(а):
WR-e-D [?]

Было сделано для себя, так-как не нашел рабочего варианта

Нажмите, чтобы раскрыть...

А, ясно тогда.

Если пишите UDF, то даете ей имя. Например AntiCaptcha, и все функции начинаются на _AntiCaptcha

Код:

_AntiCaptcha _AntiCaptcha_HttpPost _AntiCaptcha_HttpGet _AntiCaptcha_URLEncode итп

Так не будет конфликтов с другим UDF.

Но больше вопросов вызывает логика. Особенно 2 цикла подряд.

Код:

Do .. Until $captcha_id <> @error And @extended <> 1

И посути функция _AntiCaptcha возращает ошибку только в том случае если нет файла.
А если баланс отрицательный, или забанен ИП, или другая причина, вы это вообще не обрабатываете.
Пауза в 10 секунд, тоже странная.
Я вижу алгоритм такой:
Делаете цикл от 1 до 5, конечный, пытаетесь отправить файл. Если файл принят, то только в этом случае переходите ко второму циклу, который будет ждать распознавания.
Если файл не принят, то смотрите почему: Если нет денег, нет доступа, ключ не верный, и тп (критические ошибки), то вообще нет смысла больше отправлять запросы, сразу возвращайте ошибку.
Если же нет слотов, то пауза и цикл заново.

Если в конце файл все таки не удалось отправить, то тоже ошибка.

Второй цикл проще, в течении времени X (обычно 30 сек) получаете статус распознавание.
Если опять критические ошибки, то возвращаете ошибку. Иначе небольшая пауза и повтор.

из _GetInfo я бы убрал проверку на OK, вынес бы ее в другую функцию, тогда _GetInfo возвращала бы только ошибки, причем критические помечаются по особому.

Функцию замените _Base64Encode на эту:

Код:

Func __AntiCaptcha_Base64Encode_MS($Binary, $iFlags = 0x40000001) $Binary = Binary($Binary) Local $tByteArray = DllStructCreate('byte[' & BinaryLen($Binary) & ']') DllStructSetData($tByteArray, 1, $Binary) Local $aSize = DllCall("Crypt32.dll", "bool", 'CryptBinaryToString', 'struct*', $tByteArray, 'dword', BinaryLen($Binary), 'dword', $iFlags, 'str', Null, 'dword*', Null) Local $tOutput = DllStructCreate('char[' & $aSize[5] & ']') Local $aEncode = DllCall("Crypt32.dll", "bool", 'CryptBinaryToString', 'struct*', $tByteArray, 'dword', $aSize[2], 'dword', $iFlags, 'struct*', $tOutput, 'dword*', $aSize[5]) If @error Or (Not $aEncode[0]) Then Return SetError(1, 0, 0) Return DllStructGetData($tOutput, 1) EndFunc ;==>_Base64Encode_MS

Добавлено:
Сообщение автоматически объединено: 18 Фев 2015

Судя по API вообще нет смысла много раз отправлять файл, 1 раза достаточно, если файл не принят, то и не нужно отправлять его еще раз и так ясно, что проблема с файлом.

Обновил: Жду вашего мнения )

inververs · 19 Фев 2015

Уже лучше

Осталось возвращаемые коды ошибок пересчитать, что бы не дублировались.
Например: ошибка 1 - это нет файла, ошибка 2 - не удалось отправить файл, 3 - капча не разгадана.
И функцию __AntiCaptcha переименовать в _AntiCaptcha
Ну еще можно ключ проверять, что бы он был 32 в длину.
Вроде всё. Молодец.
Добавлено:
Сообщение автоматически объединено: 19 Фев 2015

И функция __AntiCaptcha_URLEncode должна быть такой: (в своей вы забыли пару символов)

Код:

Func __AntiCaptcha_URLEncode($sData)
	Local $aData = StringToASCIIArray($sData, Default, Default, 2)
	Local $sOut
	For $i = 0 To UBound($aData) - 1
		Switch $aData[$i]
			Case 45, 46, 48 To 57, 65 To 90, 95, 97 To 122, 126
				$sOut &= Chr($aData[$i])
			Case 32
				$sOut &= "+"
			Case Else
				$sOut &= "%" & Hex($aData[$i], 2)
		EndSwitch
	Next
	Return $sOut
EndFunc

madmasles · 19 Фев 2015

WR-e-D,

Предупреждение За нарушение общих правил (пункт В.2):

Старайтесь избегать “Over quoting” (преувеличенное цитирование) - цитируйте только необходимую часть сообщения, которая наилучшим образом подчеркнёт суть цитируемого.

С уважением, ваш Глобальный модератор.

WR-e-D · 19 Фев 2015

Обновил

alex33 · 20 Фев 2015

joiner сказал(а):
5 СЂР°Р·РЅС‹С… СЂР°Р±РѕС‚РЅРёРєРѕРІ РЅРµ СЃРјРѕРіР»Рё СЂР°Р·РіР°РґР°С‚СЊ РєР°РїС‡Сѓ

Нажмите, чтобы раскрыть...

это на каком языке?

Это в переводе из кодировки CP1251 в UTF-8 будет:

5 разных работников не смогли разгадать капчу

А про UDF, Сейчас я пользуюсь вот этой: API функции для работы с antigate.com и у меня работает.
P.S. anti-captcha.com и antigate.com это один и тот же сервис (логин, пароль и ключ можно использовать одинаковый и там и там). Подробнее в новостях или на скрине.

Nervill · 31 Авг 2015

Спасибо братух за проделанную работу! Добавил доп параметры, теперь можно распознавать ReCaptcha V.2 (выберите что-то на картинках) :IL_AutoIt_1:

bescom · 13 Дек 2015

Nervill сказал(а):
Добавил доп параметры, теперь можно распознавать ReCaptcha V.2 (выберите что-то на картинках) :IL_AutoIt_1:

То ли сегодня 13-е число влияет, то ли я с утра торможу... Но вот никак я не могу сообразить, как добавить эти дополнительные параметры... Сделал вот так:

Код:

#include <Captcha.au3>
$text="Выберите все изображения, где есть водопады."
$Resp = _AntiCaptcha("KEY", @ScriptDir & "/img.png", False, 0, 0, 0, 0, 4, 10, 1, 1, "comment="&$text&"&type=recaptcha2")
MsgBox(0, "Responce", $Resp)

Ответ неизменно - UNDEFINED. Очень прошу - ткните носом, что и где неправильно делаю, а то нужно распознавание reCaptcha2, а меня переклинило...

IgorFIN · 26 Мар 2018

Кто нибудь сталкивался с этой ошибкой? Как обойти...
Заранее благодарю

Line 116 (File "C:\Captcha.au3"):

$oHTTP.Send($sData)
$oHTTP^ ERROR

Error: The requested action with this object has failed.

alex33 · 31 Мар 2018

IgorFIN,
Тоже самое: Ответ #1, добавь вначале эту функуцию и в консоле будет причина этой ошибки.

Автор темы	Похожие темы	Форум	Ответы	Дата
	Resources - UDF для работы с ресурсами	UDF - Пользовательские функции	0	1 Май 2019
B	UDF для работы с Payeer кошельком через API	Стол заказов	1	10 Янв 2018
B	UDF для работы с яндекс кошельком через API	Стол заказов	0	10 Янв 2018
P	[Сеть, интернет] UDF для работы с контактами Google	Стол заказов	2	6 Окт 2015
W	pdf_au3_haru.au3 - UDF для работы с libharu - библиотекой создания PDF-файлов	UDF - Пользовательские функции	9	3 Июн 2015

Поиск

Поиск

UDF для работы с API anti-captcha.com

WR-e-D

Новичок

Вложения

joiner

Модератор

WR-e-D

Новичок

firex

AutoIT Гуру

inververs

AutoIT Гуру

WR-e-D

Новичок

inververs

AutoIT Гуру

WR-e-D

Новичок

inververs

AutoIT Гуру

madmasles

Модератор

WR-e-D

Новичок

alex33

Скриптер

Nervill

Новичок

bescom

Новичок

IgorFIN

Новичок

alex33

Скриптер