Добрый день!
Прошу помочь в решении задачи:
Требуется получить капчу с сайта для ручного ввода в поле и последующей отправки в поле ввода на сайте.
Перечитал все темы какие нашел, вроде бы нашел на часть задачи решение, но затык в получении картинки капчи на ПК.
Адрес сайта с капчей: www.telexfree.com
Проблема в том, что адрес капчи динамический, поэтому те методы которые были на форме применить не смог. Попытки забирать путем использования не динамической части так к успеху и не привели.
Эксперименты с снятием скриншота указанной области окна IE пока так же без результата.
Буду премного благодарен любой помощи! :beer:
Добавлено:
В общем, уже все сделал кроме сохранения картинки из этой капчи на ПК :'(
Даже кнопочку ACCESS удалось осилить (из-за отсутствия опыта, тоже долго ковырял)
Остался маленький шажок, но пока не получается одолеть.
Прошу помочь новичку
Может кому пригодится или кто-то подскажет оптимизацию (рабочие функции):
Заполнение полей:
Нажатие на кнопку "Access":
Прошу помочь в решении задачи:
Требуется получить капчу с сайта для ручного ввода в поле и последующей отправки в поле ввода на сайте.
Перечитал все темы какие нашел, вроде бы нашел на часть задачи решение, но затык в получении картинки капчи на ПК.
Адрес сайта с капчей: www.telexfree.com
Проблема в том, что адрес капчи динамический, поэтому те методы которые были на форме применить не смог. Попытки забирать путем использования не динамической части так к успеху и не привели.
Эксперименты с снятием скриншота указанной области окна IE пока так же без результата.
Буду премного благодарен любой помощи! :beer:
Добавлено:
Сообщение автоматически объединено:
В общем, уже все сделал кроме сохранения картинки из этой капчи на ПК :'(
Даже кнопочку ACCESS удалось осилить (из-за отсутствия опыта, тоже долго ковырял)
Остался маленький шажок, но пока не получается одолеть.
Прошу помочь новичку
Может кому пригодится или кто-то подскажет оптимизацию (рабочие функции):
Заполнение полей:
Код:
Func _LogIn()
Switch GUICtrlRead($capchaInput)
Case ""
MsgBox(48, "Error", 'Введите капчу!', 0)
Case Not ""
$rInput = GUICtrlRead($capchaInput)
$sCapcha = $rInput
$oIE = _IECreate ("www.telexfree.com", 0, 1)
_IELoadWait($oIE)
$sLogin = "Логин"
$sPass = "Пароль"
$oLogin = _IEGetObjByName($oIE,"log_usuario_sis")
$oPass = _IEGetObjByName($oIE,"pwd_usuario_sis")
$oCapcha = _IEGetObjByName($oIE,"security_code")
_IEFormElementSetValue($oLogin, $sLogin)
_IEFormElementSetValue($oPass, $sPass)
_IEFormElementSetValue($oCapcha, $sCapcha)
EndSwitch
EndFunc
Нажатие на кнопку "Access":
Код:
Func _Click()
$oForm = _IEFormGetCollection($oIE, 'form_login')
$oInputs = _IETagNameGetCollection($oForm, 'input')
For $oInput In $oInputs
If $oInput.type == 'image' And $oInput.src == 'http://www.telexfree.com/public/img/ingles/bt_acessar_bo.png' Then
_IEAction($oInput, 'click')
ExitLoop
EndIf
Next
EndFunc