Что нового

[Автоматизация] Клик по картинке в таблице

getigor01

Новичок
Сообщения
23
Репутация
2
Нужно сделать клик по картинке captcha/captcha-ss/captcha.php?uid=…3f664bf8aad600e411ceabca6049129150158449523 на seosprint в разделе сёрфинг сайтов :scratch:
Код:
<td id="44862695927443583f664bf8aad600e411ceabca6049129150158449523" class="normalm" valign="top" style="background: #F3F2E7 url('captcha/captcha-ss/captcha.php?uid=…3f664bf8aad600e411ceabca6049129150158449523') no-repeat 0 0;"></td>
 

alex33

Скриптер
Сообщения
1,457
Репутация
186
Код:
#include <IE.au3>
Global $oIe, $sCaptchaUrl = "", $sElemStyle = ""

$oIe = _IECreate(@ScriptDir&"\1.html")
$oElems = _IETagNameGetCollection($oIe, "td")
If IsObj($oElems) Then
Local $aTmp
For $oElem In $oElems
$sElemStyle = $oElem.getAttribute("style")
If StringInStr($sElemStyle, "captcha/captcha-ss/captcha.php") > 0 Then
ConsoleWrite(StringFormat("Style element: %s\r\n", $sElemStyle))
$aTmp = StringRegExp($sElemStyle, "(?si).*?background.*?url\([""'](.*?)[""']\).*?", 3)
$sCaptchaUrl = ""
If IsArray($aTmp) Then $sCaptchaUrl = $aTmp[0]
ConsoleWrite(StringFormat("Found captcha URL: %s\r\n", $sCaptchaUrl))
_IEAction($oElem, "click")
ExitLoop
EndIf
Next
EndIf
 
Верх