Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать


Цитата aesir:
Сказано - сделано »
Там стоит антибот, получить это изображение будет не так просто

Вот примерно так можно:

Код: Выделить весь код
#include <IE.au3>
#include <ScreenCapture.au3>

$sImgDir = "D:\123\"
$sWebPage = "http://binural.ru/"

$oIE = _IECreate("http://www.binural.ru/addnews.html")

LoginToSite($oIE, "autoittest", "oszone")

$hIE_Body = ControlGetHandle("[CLASS:IEFrame]", "", "Internet Explorer_Server1")
WinActivate($hIE_Body)

_ScreenCapture_CaptureWnd($sImgDir & "\Captcha.jpg", $hIE_Body, 320, 250, 460, 320, 0)

_IEQuit($oIE)

Func LoginToSite($browser, $userName, $userPassword)
    _IENavigate($browser, "http://binural.ru/")
    _IELoadWait($browser)

    $name = _IEGetObjByName($browser, "login_name")
    $pwd = _IEGetObjByName($browser, "login_password")

    If ($_IEStatus_Success) Then
        _IEFormElementSetValue($name, $userName)
        _IEFormElementSetValue($pwd, $userPassword)
        $form = _IEFormGetCollection($browser, 0)
        _IEFormSubmit($form)
        _IELoadWait($browser)
    EndIf

    _IENavigate($browser, "http://www.binural.ru/addnews.html")
    _IELoadWait($browser)
EndFunc
Но при этом на видимой части страницы должна отображаться капча, и я уже не говорю о корректировке координат самой капчи на странице (для захвата снимка).

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community


Отправлено: 01:40, 02-05-2009 | #10