[Сеть, интернет] Клик по кнопке

[svh208]

Здравствуйте, кто то может подсказать как мне выполнить эти действия ?
1. поиск текста "<span>12345</span>" в исходном коде страницы
2. если текст не найден, то сюда:

<div class="send-form" data-object="1" data-recid="4087" data-symb-left="25/2000">
<div class="send-error"></div>
<textarea placeholder="Введите текст..." class="message-body" maxlength="2000" name="text"></textarea>

ввести текст "qwerty"
3. кликнуть по этой кнопке

<div class="controls clear">
<button onclick="send.comment(this);">отправить</button>
<a href="#" onclick="page.oload('/faq/8');return false;">Правила</a></div></div>

Добавлено:

Сообщение автоматически объединено: 8 Апр 2014

если кто то хоть мало-мальски понимает о чём речь и может дать готовое решение за небольшое вознаграждение, буду очень рад, можно в лс

 

[alex33]

svh208 Вот мой запутанный, но рабочий код:

#include <IE.au3>

$oIE = _IECreate(@ScriptDir&"\1.html")
_IELoadWait($oIE)

$sHtml = _IEBodyReadHTML($oIE)
If StringInStr($sHtml, "<span>12345</span>") Then
;~ MsgBox(0, "tst", "текст найден на странице")
Else
;~ MsgBox(0, "tst", "такого текста нет")
$oDivs = _IETagNameGetCollection($oIE, "div")
If IsObj($oDivs) Then
For $oDiv In $oDivs
If $oDiv.className == "send-form" Then
$oTextarea = _IEGetObjByName($oDiv, "text")
If @error = 0 And $oTextarea.tagName = "TEXTAREA" Then
Sleep(500)
_IEAction($oTextarea, "focus")
_IEFormElementSetValue($oTextarea, "qwerty")
ExitLoop
EndIf
EndIf
Next
EndIf

$oDivs = _IETagNameGetCollection($oIE, "div")
If IsObj($oDivs) Then
For $oDiv In $oDivs
If $oDiv.className == "controls clear" Then
$oButtons = _IETagNameGetCollection($oDiv, "button")
If IsObj($oButtons) Then
For $oButton In $oButtons
ConsoleWrite($oButton.tagName&@TAB&$oButton.innerTEXT&@TAB&$oButton.getAttribute("onclick")&@CRLF)
If StringInStr($oButton.innerTEXT, "отправить") And StringInStr($oButton.getAttribute("onclick"), "send.comment(this);") Then
Sleep(500)
_IEAction($oButton, "focus")
_IEAction($oButton, "click")
ExitLoop 2
EndIf
Next
EndIf
EndIf
Next
EndIf
EndIf

P.S. Я думаю тебе надо было написать в Стол заказов.