[Автоматизация] Не получается сохранить капчу

[defens]

IE версии 9
значит не верный критерий тогда задаю


Добавлено:

Сообщение автоматически объединено: 29 Дек 2012

что сохранять заданно здесь?

_IECopyObjById($oMain, "capcha_img")

Добавлено:

Сообщение автоматически объединено: 29 Дек 2012

выдает такую ошибку

: ==> The requested action with this object has failed.:
If IsObj($o_Object.document.getElementById($s_ID)) Then
If IsObj($o_Object.document^ ERROR

 

[inververs]

Первым делом создается новый объект createControlRange
$oCtlRange = $oIE.document.body.createControlRange()
Пока что в нем ничего нет, но у этого объект есть метод ADD, его и используем

$oCtlRange.add($s_ID)

Где $s_ID (у автора странное название переменных конечно) объект картинки капчи. Его можно получить например по номеру ($oImg = _IEImgGetCollection($oIE, 7)) или еще как нибудь.
Дальше для этого объетка вызывается метод копирования

$oCtlRange.execCommand('Copy')

Все, теперь картинка содержится в буфере обмена. Открой станадртный Paint и вставь ее.
Библиотека Clipboard.au3 используется что бы получить из буфера картинку в hBitmap.

 

[defens]

в том то и дело что номера то нет у нее

<IMG src="x_get_image?x_reg_id=TtWrimU4LYUMbdnV&amp;r=1374837749">
<IMG src="x_get_image?x_reg_id=TtWrimU4LYUMbdnV&amp;r=3550311171">

хотя при нажатии правой и выбираю сохранить как, оно сохраняеться


Добавлено:

Сообщение автоматически объединено: 29 Дек 2012

то что потом идет копирование это понятно, надо еще ее найти

 

[inververs]

defens
У каждого элемента есть номер (индекс). Если не хотите искать по индексу а по другому критерию, например по src то на форме есть сотни подобных тем. Ищите.

 

[defens]

так я же не говорю, что не хочу по нему искать, не пойму как найти


Добавлено:

Сообщение автоматически объединено: 30 Дек 2012

сохранить такую каждый раз меняется последняя часть

<IMG src="x_get_image?x_reg_id=TtWrimU4LYUMbdnV&amp;r=1374837749">
<IMG src="x_get_image?x_reg_id=TtWrimU4LYUMbdnV&amp;r=3550311171">

Добавлено:

Сообщение автоматически объединено: 30 Дек 2012

так сохраняет вообще другое изображение

$oImgs = _IEImgGetCollection($oIe)
Local $sURL = ''
For $oImg In $oImgs
    If StringInStr($oImg.src,'r') Then
        $sURL = $oImg.src
        ExitLoop
    EndIf
Next
If $sURL Then
    InetGet($sURL,'capcha.jpg',1)
Else
    ConsoleWrite('Изображение по указанным критериям не найдено.' & @LF)
EndIf