Написал скрипт для регистрации на сайте, на котором есть капча. Капчу я посылаю на антигейт, но иногда мне в ответ приходит неверно введены символы капчи и тогда при нажатии на кнопку зарегистрироватся снова перегружается страница уже с новой капчей. Так вот как бы мне сделать так, если капча введена неверно, чтобы функция заполнения регистрационных форм перезапускалась?
Как поймать ошибку распознавания капчи
- Автор темы Yura-H2O
- Дата начала
Смотрите, после нажатия на зарегистрироваться, если капча введена неверно на странице появляется текст "Неверный код" потому я сделал так
Вот конкретный пример
А как вставить конкретный пример в цикл, чтобы проверка выполнялась до тех пор пока капча не будет введена верно, что-то голова не варит?
Код:
$oIE3 = _IEAttach("Регистрация")
$cap_errors = _IEBodyReadText($oIE3)
If StringInStr($cap_errors, 'Неверный код') Then
MsgBox(0,"","капча не правильна")
EndIfВот конкретный пример
Код:
$oIE3 = _IEAttach("Регистрация")
$cap_errors = _IEBodyReadText($oIE3)
If StringInStr($cap_errors, 'Неверный код') Then
$oImg = _IEImgGetCollection($oIE3, 1); в конкретном случае капча была первым img
_IECopyObjById($oIE3, $oImg)
_ScreenCapture($File_captch) ;делаем скрин
$result = AntiCaptcha($sFile) ;посылаем капчу на антигейт
$capcode = _IEGetObjByName ($oIE3, "sgenfield")
_IEAction($capcode, "focus")
_IEFormElementSetValue($capcode, $result)
$Submit = _IEGetObjByName ($oIE3, "submitreg")
_IEAction($Submit, "focus")
_IEAction($Submit, "click")
EndIfА как вставить конкретный пример в цикл, чтобы проверка выполнялась до тех пор пока капча не будет введена верно, что-то голова не варит?
Код:
Do
$oImg = _IEImgGetCollection($oIE3, 1); в конкретном случае капча была первым img
_IECopyObjById($oIE3, $oImg)
_ScreenCapture($File_captch) ;делаем скрин
$result = AntiCaptcha($sFile) ;посылаем капчу на антигейт
$capcode = _IEGetObjByName ($oIE3, "sgenfield")
_IEAction($capcode, "focus")
_IEFormElementSetValue($capcode, $result)
$Submit = _IEGetObjByName ($oIE3, "submitreg")
_IEAction($Submit, "focus")
_IEAction($Submit, "click")
_IELoadWait($oIE3)
$cap_errors = _IEBodyReadText($oIE3)
Until Not StringInStr($cap_errors, 'Неверный код')