[Автоматизация] Клик, CheckBox, вбить текст, нажать на кнопку. Следующий!

[Alex300]

Помогите, плиз, оживить скрипт. Авторизация есть а вот дальше засада:

Global $sNewsLandLogin = "[email protected]"
Global $sNewsLandPass = "4ac5ea6"
Local $o_Obj

$oIE = _IECreate('http://newsland.com/user/logout/',1)  ; выходим. А вдруг было зайдено?

$o_Obj=_IENavigate($oIE,'http://newsland.com/user/login/') ; грузим форму авторизации
$oInputLogin = _IEGetObjByName($oIE,'login_or_email')
$oInputPass = _IEGetObjByName($oIE,'password')
$oInputLogin.value = $sNewsLandLogin
$oInputPass.value = $sNewsLandPass

$oIE.document.parentwindow.execScript("xajax_userLogin(xajax.getFormValues('user_login_form'))")  ;грузим данные в форму

$oIE.document.parentwindow.execScript("xajax_userLogin(xajax.getFormValues('submit'))")  ; жмем "войти"

Дальше надо зайти на http://newsland.com/onair/allcomments/
выбрать первый комент, нажать "Пожаловаться", выбрать чекбокс "Спам", вбить комент: "Это СПАМ!" и нажать отправить. Повторить действия с последующим коментом и так 10 раз.
Помогите, плиз, не получается, увы :(
На жабе третий день не дает зарегаться, пришлось сюда... :wall_brake:

 

[Alex300]

Что-то все молчат как партизаны :(
Может быть тогда подскажете как нажать на такую кнопку:

<input type="submit" value="Отправить">

 

[Zaramot]

как нажать на такую кнопку

Попробуй так:

$oInputs = _IETagnameGetCollection($oIE, "input")
For $oInput in $oInputs
    If String($oInput.Value) = "Отправить" Then
        _IEAction($oInput, "click")
        ExitLoop
    EndIf
Next

 

[Alex300]

Большое спасибо - работает.
А вот как отобрать последовательно и нажать на все имеющиеся ссылочки вида:

<a href="#" class="buttonSmall" onclick="add_comment(1111249, 14819055, 0, false);return false;">Ответить</a>

Получается отобрать их по 'a', но строк с подобными элементами гораздо больше и class="buttonSmall" тоже полно.

Как отделить именно эти строки на страничке?

 

[Zaramot]

нажать на все имеющиеся ссылочки

Попробуй так:

$oLinks = _IELinkGetCollection($oIE)
For $oLink in $oLinks
    If String($oLink.Value) = "Ответить" Then
        _IEAction($oLink, "click")
    EndIf
Next