[Сеть, интернет] Помогите разобраться с формой в IE

[MadDog]

Вот исходный код формы на странице

<div class="content quiz-page">  
            <h2>ВОПРОС</h2>  
<p>Найдите ВАСЮ ))))</p>  
            <form action="/Quiz-Index.aspx" method="post" class="quiz-question">  
                <ul class="list">  
                    <li></li>  
                     
                        <li><input type="radio" name="answer" id="quiz-0" value="0" /><label for="quiz-0">ВАСЯ</label></li>  
                     
                        <li><input type="radio" name="answer" id="quiz-1" value="1" /><label for="quiz-1">ПЕТЯ</label></li>  
                     
                        <li><input type="radio" name="answer" id="quiz-2" value="2" /><label for="quiz-2">АНДРЕЙ</label></li>  
                     
                        <li><input type="radio" name="answer" id="quiz-3" value="3" /><label for="quiz-3">ИВАН</label></li>  
                     
                        <li><input type="radio" name="answer" id="quiz-4" value="4" /><label for="quiz-4">ФЁДОР</label></li>  
                     
                </ul>  
                <span class="btn-submit">Ответить</span>  
            </form>  
        </div>

Нужно чтобы он искал ВАСЮ.. выбирал его и нажимал отправить. Вся сложность заключается в том что ВАСЯ может быть не только первым в выборе но и 2 и т.д.

ужё что только не пробовал.... не получается :wacko: :wacko: :wacko:

Помогите пожалуйста ))

 

[Garrett]

;~ ...
$oForm = _IEFormGetCollection($oIE,0) ; индекс формы может отличаться!!!
$oLable = _IETagNameGetCollection($oForm, "label")
For $oElement In $oLable
    If _IEPropertyGet($oElement, "innertext") = "Вася" Then
        MsgBox(0, "", _IEPropertyGet($oElement, "innertext"))
    EndIf
Next
;~ ...

 

[MadDog]

С этим понятно.... а как чтобы он выбирал его, а не просто окошко выскакивало ?!

 

[Garrett]

MadDog [?]

а как чтобы он выбирал его

;~ ...
    If _IEPropertyGet($oElement, "innertext") = "Вася" Then
         _IEFormElementRadioSelect ($oForm, _IEPropertyGet($oElement, "innertext"), "answer", 1, "byIndex")
    EndIf
;~ ...

 

[MadDog]

Не работает ... он выбирает 1 строчку... а ВАСЯ к примеру на второй...

 

[Garrett]

MadDog [?]

Не работает ... он выбирает 1 строчку... а ВАСЯ к примеру на второй...

;~ ...
Dim $i = 0
For $oElement In $oLable
    ConsoleWrite($oElement.Length)
    If _IEPropertyGet($oElement, "innertext") = "Вася" Then
         _IEFormElementRadioSelect ($oForm, $i, "answer", 1, "byIndex")
    EndIf
    $i += 1
Next
;~ ...

 

[MadDog]

ConsoleWrite($oElement.Length^ ERROR

 

[Garrett]

ConsoleWrite($oElement.Length)

Это я по ошибки оставил лишний код, он нужен был мне для проверки. :whistle: Его нужно удалить. Извиняюсь.

 

[MadDog]

спасибо огромное всё работает !