Пятница, 17.11.2017, 21:58
Приветствую Вас Гость | RSS
Главная | Каталог файлов | Регистрация | Вход
Меню сайта
Форма входа
Категории раздела
Мои файлы [5]
Поиск
Друзья сайта

  • Программа Ростовщик 1.04

  • Бесплатный Ростовщик 1.02

  • Управление заданиями

  • Программа построения блок-схем Pascal/Delphi

  • Статистика

    Онлайн всего: 1
    Гостей: 1
    Пользователей: 0
    Мой сайт
    Главная » Файлы » Мои файлы

    Библиотека VB dll для сервиса http://Antigate.com
    [ Скачать с сервера (454.1Kb) ] 27.07.2012, 16:19
    Библиотека VB dll для использования в приложениях MS Office и Visual Basic для распознавания капчи с использованием сервиса распознавания капч http://Antigate.com. Возможно распознавание в синхронном и асинхронном режиме.
     
    Библиотека реализует следующие функции сервиса:
    Распознавание капчи из файла
    Распознавание капчи из URL
    Распознавание капчи из потока
    При распознавании могут быть использованы все дополнительные параметры капчи, принимаемые сервисом.
    Возможность пожаловаться на неправильно разгаданную капчу
    Запрос баланса
    Запрос статистики системы
     
    Для использования функций библиотеки надо подключить библиотеку AG_Tools.dll к вашему проекту, объявить объект и использовать его функции.
    Dim clAG As New AG_Tools.clAG_Recognize 'объявляем объект из библиотеки для синхронного распознавания
    или
    Dim clAG As New AG_Tools.clAG_RecognizeA 'объявляем объект из библиотеки для Асинхронного распознавания
     
    Примеры использования этих функций вы найдете в файле AG_test_dll.mdb
     
     
    Описание функций и аргументов.
     
    Добавлена возможность задавать параметры Proxy
    ------------------------------------------------------------------------------
    СИНХРОННЫЙ РЕЖИМ
     
    ------------------------------------------------------------------------------
    Передача капчи на распознавание в Синхронном режиме
      Dim cl As cl_CaptchaRec 'объявляем объект из библиотеки
      Set cl = New cl_CaptchaRec 'создаем новый экземпляр
     
    ------------------------------------------------------------------------------
    ВЗЯТЬ КАПЧУ ИЗ ФАЙЛА И ОТПРАВИТЬ НА РАСПОЗНАВАНИЕ
    Результаты распознания в выходных переменных:
    CaptchaID - ключ капчи на сервере
    CaptchaText - текст капчи, если её распознали
     
    Промежуточные результаты в выходной переменной:
    ResUpload - результат загрузки файла на сервер 
     
    Функция возвращает текстовое значение результата загрузки и распознания капчи, согласно спецификации на AntiGate.com
     
     
    Function AG_RecognizeFile( _
      AGKey As String, _ ключ аккаунта на сервере
      PathToFile As String, _ путь к файлу на диске
      Optional ContentType As EContentType = 0, _ тип файла для распознания
    ' 0 - не задан (по умолчанию определит из расширения.)
    ' 1 - "jpg": ContentType = "image/pjpeg"
    ' 2 - "png": ContentType = "image/png"
    ' 3 - "gif": ContentType = "image/gif"
    ' 4 - "bmp": ContentType = "image/bmp" - будет конвертировано в jpg
     
      Optional Host As String = "", _ имя хоста. По умолчанию "http://antigate.com"
      Optional NeedAsync As ETypeAsync, _ 'асинхронная проверка распознания 
    0-не нужна (будет синхронная загрузка) 
    1=асинхронная загрузка капчи на сервер и ожидание распознавания
    2=асинхронное распознавание(загрузка будет синхронная)
      Optional ByRef CaptchaID, _ OUT код капчи на сервере для определения результата распознавания
      Optional ByRef CaptchaText, _ OUT текст капчи распознанный (если его распознали)
      Optional ByRef ResUpload, _ OUT результат загрузки файла на сервер (текст согласно спецификации на AntiGate.com)
      Optional arg_phrase As Integer = 0, _ доп.параметры для сервиса. Описаны ниже
      Optional arg_regsense As Integer = 0, _ доп.параметры для сервиса. Описаны ниже
      Optional arg_numeric As Integer = 0, _ доп.параметры для сервиса. Описаны ниже
      Optional arg_calc As Integer = 0, _ доп.параметры для сервиса. Описаны ниже
      Optional arg_min_len As Integer = 0, _ доп.параметры для сервиса. Описаны ниже
      Optional arg_max_len As Integer = 0, _ доп.параметры для сервиса. Описаны ниже
      Optional arg_is_russian As Integer = 0, _ доп.параметры для сервиса. Описаны ниже
      Optional arg_max_bid As Single = 0, _ доп.параметры для сервиса. Описаны ниже 
    _
      Optional ByRef innerWinHTTP объект winHttpRequest. Нужен, если функция запускается в асинхронном режиме
    ) As String
     
     
    ----------------------------------------------------------------------------------------------
    ВЗЯТЬ КАПЧУ ИЗ URL И ОТПРАВИТЬ НА РАСПОЗНАНИЕ
    Результаты распознания в выходных переменных:
    CaptchaID - ключ капчи на сервере
    CaptchaText - текст капчи, если её распознали
     
    Промежуточные результаты в выходной переменной:
    ResUpload - результат загрузки файла на сервер 
     
    Функция возвращает текстовое значение результата загрузки и распознания капчи, согласно спецификации на AntiGate.com
     
    Public Function AG_RecognizeUrl( _
      AGKey As String, _ ключ аккаунта на сервере
      Url As String, _ путь к капче в интернет
      ContentType As  As EContentType = 0, _ тип файла для распознания (ОБЯЗАТЕЛЬНЫЙ ПАРАМЕТР)
    ' 0 - не задан (по умолчанию определит из расширения.)
    ' 1 - "jpg": ContentType = "image/pjpeg"
    ' 2 - "png": ContentType = "image/png"
    ' 3 - "gif": ContentType = "image/gif"
    ' 4 - "bmp": ContentType = "image/bmp" - не поддерживается для URL!!!
     
      Optional Host As String = "", _ имя хоста. По умолчанию "http://antigate.com"
      Optional NeedAsync As ETypeAsync, _ 'асинхронная проверка распознания 
    0-не нужна (будет синхронная загрузка) 
    1=асинхронная загрузка капчи на сервер и ожидание распознавания
    2=асинхронное распознавание(загрузка будет синхронная)
      Optional ByRef CaptchaID, _ OUT код капчи на сервере для определения результата распознавания
      Optional ByRef CaptchaText, _ OUT текст капчи распознанный (если его распознали)
      Optional ByRef ResUpload, _ OUT результат загрузки файла на сервер (текст согласно спецификации на AntiGate.com)
      Optional SaveOnDisk As Boolean = False, _ Сохранять ли файл на диск? (нужно если в программе реализован просмотр скачиваемой капчи)
      Optional ByRef PathToFileForSave As String = "", _ Путь для сохранения. Если не задан, то файл будет сохранен во временную папку и в эту переменную будет возвращено имя сохраненного файла. 
      Optional arg_phrase As Integer = 0, _ доп.параметры для сервиса. Описаны ниже
      Optional arg_regsense As Integer = 0, _ доп.параметры для сервиса. Описаны ниже
      Optional arg_numeric As Integer = 0, _ доп.параметры для сервиса. Описаны ниже
      Optional arg_calc As Integer = 0, _ доп.параметры для сервиса. Описаны ниже
      Optional arg_min_len As Integer = 0, _ доп.параметры для сервиса. Описаны ниже
      Optional arg_max_len As Integer = 0, _ доп.параметры для сервиса. Описаны ниже
      Optional arg_is_russian As Integer = 0, _ доп.параметры для сервиса. Описаны ниже
      Optional arg_max_bid As Single = 0 доп.параметры для сервиса. Описаны ниже
    _
      Optional ByRef innerWinHTTP объект winHttpRequest. Нужен, если функция запускается в асинхронном режиме
    ) As String
     
     
    ----------------------------------------------------------------------------------------------
    ВЗЯТЬ КАПЧУ ИЗ ПОТОКА (STREAM) И ОТПРАВИТЬ НА РАСПОЗНАНИЕ
    Результаты распознания в выходных переменных:
    CaptchaID - ключ капчи на сервере
    CaptchaText - текст капчи, если её распознали
     
    Промежуточные результаты в выходной переменной:
    ResUpload - результат загрузки файла на сервер 
     
    Функция возвращает текстовое значение результата загрузки и распознания капчи, согласно спецификации на AntiGate.com
     
    Public Function AG_RecognizeStream( _
      AGKey As String, _ ключ аккаунта на сервере
      PicStream As String, _ содержимое файла в виде потока
      ContentType As  As EContentType = 0, _ тип файла для распознания (ОБЯЗАТЕЛЬНЫЙ ПАРАМЕТР)
    ' 0 - не задан (по умолчанию определит из расширения.)
    ' 1 - "jpg": ContentType = "image/pjpeg"
    ' 2 - "png": ContentType = "image/png"
    ' 3 - "gif": ContentType = "image/gif"
    ' 4 - "bmp": ContentType = "image/bmp" - не поддерживается для URL!!!
     
      Optional Host As String = "", _ имя хоста. По умолчанию "http://antigate.com"
      Optional NeedAsync As ETypeAsync, _ 'асинхронная проверка распознания 
    0-не нужна (будет синхронная загрузка) 
    1=асинхронная загрузка капчи на сервер и ожидание распознавания
    2=асинхронное распознавание(загрузка будет синхронная)
     
      Optional ByRef CaptchaID, _ OUT код капчи на сервере для определения результата распознавания
      Optional ByRef CaptchaText, _ OUT текст капчи распознанный (если его распознали)
      Optional ByRef ResUpload, _ OUT результат загрузки файла на сервер (текст согласно спецификации на AntiGate.com)
     
      Optional arg_phrase As Integer = 0, _ доп.параметры для сервиса. Описаны ниже
      Optional arg_regsense As Integer = 0, _ доп.параметры для сервиса. Описаны ниже
      Optional arg_numeric As Integer = 0, _ доп.параметры для сервиса. Описаны ниже
      Optional arg_calc As Integer = 0, _ доп.параметры для сервиса. Описаны ниже
      Optional arg_min_len As Integer = 0, _ доп.параметры для сервиса. Описаны ниже
      Optional arg_max_len As Integer = 0, _ доп.параметры для сервиса. Описаны ниже
      Optional arg_is_russian As Integer = 0, _ доп.параметры для сервиса. Описаны ниже
      Optional arg_max_bid As Single = 0 доп.параметры для сервиса. Описаны ниже
    _
      Optional ByRef innerWinHTTP объект winHttpRequest. Нужен, если функция запускается в асинхронном режиме
    ) As String
     
    ------------------------------------------------------------------------------
    Описание дополнительных параметров для лучшего распознавания капчи:
     
    'phrase  0, 1
      '0 = значение по умолчанию (одно слово)
      '1 = капча имеет два слова
    'regsense  0, 1
      '0 = значение по умолчанию (регистр не имеет значения)
      '1 = регистр имеет значение
    'numeric 0, 1
      '0 = значение по умолчанию
      '1 = капча состоит только из цифр
    'calc  0, 1
      '0 = значение по умолчанию
      '1 = математеческое действие из цифр на капче
    'min_len 0 .. 20
      '0 = значение по умолчанию
      '>0 = минимальная длина текста на капче, которую работник должен ввести
    'max_len 0 .. 20
      '0 = значение по умолчанию (неограничено)
      '>0 = максимальная длина текста на капче, которую работник должен ввести
    'is_russian  0, 1
      '0 = значение по умолчанию
      '1 = показать капчу работнику со знанием русского языка
    'max_bid 0.001 .. 0.1   Значение по-умолчанию выставляется на странице ставок (здесь). Этот параметр позволяет контролировать максимальную ставку без необходимости ее правки на странице ставок.
    ------------------------------------------------------------------------------
    ДОПОЛНИТЕЛЬНЫЕ ФУНКЦИИ
    ------------------------------------------------------------------------------
    Процедура для жалобы на неправильно разгаданный текст
    Public Sub AG_reportBad( _
      AGKey As String, _ ключ аккаунта на сервере
      IDC As Long, _ ключ неверно разгаданной капчи. Ключ возвращается в аргументе CaptchaID функций распознавания файла, URL и потока
      Optional Host As String = "") имя хоста. По умолчанию "http://antigate.com"
    Процедура не возвращает никаких значений
     
    ------------------------------------------------------------------------------
    Функция получения текущего баланса аккаунта.
    Public Function AG_GetBalance( _
      AGKey As String, _ ключ аккаунта на сервере
      Optional Host As String = "" имя хоста. По умолчанию "http://antigate.com"
    ) As String
    Возвращает текстовое значение - ответ сервера. Разделитель - "точка"
     
    ------------------------------------------------------------------------------
    Функция получения статистики системы в реальном времени:
    Public Function AG_GetStat( _
      ByRef waiting As Integer, _ кол-во работников, ожидающих капчу. Максимально показываемое число - 50.
      ByRef load As Single, _ процент загрузки работников
      ByRef minbid As Single, _ минимальная ставка необходимая для прохождения вашей капчи
      ByRef averageRecognitionTime As Single, _ среднее время (в секундах) за которое в данный момент разгадываются капчи
      Optional Host As String = "") As Boolean имя хоста. По умолчанию "http://antigate.com"
     
     
     
     
    ------------------------------------------------------------------------------
    АСИНХРОННЫЙ РЕЖИМ
     
    ------------------------------------------------------------------------------
    Передача капчи на распознавание в Асинхронном режиме
      Dim clA As cl_CaptchaRecA 'объявляем объект из библиотеки
      Set clA = New cl_CaptchaRecA 'создаем новый экземпляр
     
    Класс должен быть объявлен на уровне модуля формы или проекта
    Перед закрытием формы, использующей класс надо обязательно выполнять очистку объекта класса, вызвав функцию PrepareToExit.
     
    ------------------------------------------------------------------------------
    ОТПРАВКА КАПЧИ ИЗ ФАЙЛА ИЛИ URL НА РАСПОЗНАВАНИЕ
    Результаты распознания будут в генерируемом событии CaptchaRecognizeResult
     
    Public Sub NeedRecognize( _
      UserID As String, _ 'пользовательский идентификатор, чтобы он мог при получении определить какая именно капча была разгадана. Сюда можно передавать все что угодно (URL по которому бралась капча, кукисы, которые потом могут быть обработаны)
      vid As ETypeSrc, _   '1-распознать файл, 2-урл, 3 - поток (может очень долго?)
      AGKey As String, _
      PathToFile_Or_Url As String, _ 'путь к файлу или путь к URL для распознания
     
      Optional Host As String, _
      Optional NeedAsync As ETypeAsync = eTA0_Sync, _
     _
      Optional ContentType As EContentType, _
      Optional SaveOnDisk As Boolean = False, _
      Optional PathToFileForSave As String = "", _
      Optional UserObject As Variant, _ 'пользовательский объект, который пользователь хочет сохранить на период распознавания, чтобы при вызове события CaptchaRecognizeResult к нему можно было обратиться (например, IE)
     _
      Optional arg_phrase As Integer, _
      Optional arg_regsense As Integer, _
      Optional arg_numeric As Integer, _
      Optional arg_calc As Integer, _
      Optional arg_min_len As Integer, _
      Optional arg_max_len As Integer, _
      Optional arg_is_russian As Integer, _
      Optional arg_max_bid As Single)
     
    ------------------------------------------------------------------------------
    СОБЫТИЕ, ВОЗНИКАЮЩЕЕ ПРИ РАСПОЗНАВАНИИ ИЛИ ОШИБКЕ РАСПОЗНАВАНИЯ
    Public Event CaptchaRecognizeResult( _
      UserID As String, _
      Res As String, RUpload As String, CID As Long, CText As String, _
      PathToFileForSave As String, Obj As Variant)
     
    Возвращает результат распознавания капчи
    'UserID - пользовательский идентификатор, чтобы он мог при получении определить какая именно капча была разгадана
    'Res  -результат распознавания в текстовом виде (может содержать описание ошибки ERROR_*)
    'RUpload - результат загрузки картинки на сервер (может содержать описание ошибки ERROR_*)
    'CID  - код капчи на сервере. Если загрузка не произошла, то CID=0
    'CText  -текст капчи разгаданный. Если распознания не произошло, то CText = ""
    'PathToFileForSave - путь к сохраненному на диске файлу, если нужно было сохранять картинку из URL
    'Obj    -любой объект для нужд пользователя, который был передан при отправке данных на распознавание
     
    ------------------------------------------------------------------------------
    В классе cl_CaptchaRecA также объявлен класс cl_CaptchaRec с помощью которого можно определить капчу и в синхронном режиме, а также воспользоваться остальными функциями сервиса
     
    ------------------------------------------------------------------------------
     
    Категория: Мои файлы | Добавил: diamFC | Теги: basic antigate, vb anticaptcha, captcha vb
    Просмотров: 14437 | Загрузок: 1001 | Комментарии: 5 | Рейтинг: 0.0/0
    Всего комментариев: 2
    0
    2  
    Надо зарегистрировать библиотеку с помощью regsvr32, запустить от имени администратора

    1  
    Почему Win7x64 не дает пользоваться этой библиотекой с ошибкой "activeX can't create object"?

    Имя *:
    Email *:
    Код *:
    Конструктор сайтов - uCozCopyright MyCorp © 2017