Привожу пример работы с сервисом anti-captcha на Visual Basic 6.0 + win32 api. В архиве exe и исходники проекта. Для работы сервисом созданы несколько функций – UploadCaptcha для загрузки капчи на сервер, RevealCaptcha для получения ответа или статуса распознавания, AntiCaptchaInit для инициализации работы с сервисом. Также есть две функции для инициализации и cleanup’а работы с winsock. Пример привожу для коллекции, может быть, кому-нибудь пригодится. Программа однопоточная, так как по крайней мере vb 6.0 с потоками не дружит.
Скачать: ZIP
Здравствуйте!
Подскажите, пожалуйста, - почему этот код на VB и на VBA, в функции AntiCaptchaInit() возвращает разные значения pHostinfo?
На VB все проходит корректно, а в VBA почему-то hostinfo.h_addrtype = 24560 (т.е. AF_INET) И выполнение, соответственно, заканчивается.