CheckBox и WebBrowser

[eldar22]

Здравствуйте !
Я тут по поводу CheckBox.
Не могу программным путём нажать на чексбокс который находиться в webbrowser

Код: Выделить всё

<input type="checkbox" name="agr">

Искал по форум, но ответа путём не нашёл
Доказательство что искал
http://bbs.vbstreets.ru/viewtopic.php?f=1&t=31204

Проблема в том что эта страница регистрации поэтому тег INPUT там очень много

[iGrok]

Ну у них, наверное, есть какие-либо отличия? Например, атрибут ID или NAME. Вот по ним и определяй.

[eldar22]

Код: Выделить всё

Set Doc = WebBrowser1.Document
Dim Inputs As IHTMLElementCollection
Set Inputs = Doc.All.tags("INPUT")
Dim Element As IHTMLElement
Set Element = Inputs.Item(0)
Dim InputElement As IHTMLInputElement
Set InputElement = Element
InputElement.Checked = True

Да это код работает только если в на странице есть один тег input, а вот как по name определять?

[Antonariy]

document.getElementsByName

[dr.MIG]

Да это код работает только если в на странице есть один тег input, а вот как по name определять?

Нет, этот код работает, даже если там сотня тэгов input. Вдумайся в строчку Set Element = Inputs.Item(0).

[Antonariy]

Да это код работает только если в на странице есть один тег input, а вот как по name определять?

Нет, этот код работает, даже если там сотня тэгов input. Вдумайся в строчку Set Element = Inputs.Item(0).

Не работает, потому что индекс нужного инпута не известен И работает, если он всего один и он чекбокс.

[eldar22]

Тогда как быть у меня на странице несколько тегов input и два checkbox ио отличаеться они name а не id
Как быть?

[iGrok]

Тогда как быть у меня на странице несколько тегов input и два checkbox ио отличаеться они name а не id
Как быть?

Тебе ж сказали, getElementByName.
Как вариант - перебирать весь массив Inputs.Item и проверять имена.

[eldar22]

Перебирать весь массив input.item и проверять имена
А другого варианта нету?

[iGrok]

А другого варианта нету?

[Матерное слово], [Матерное слово], [Матерное слово]!!!!

У тебя что, фильтр какой-то стоит, что ты в упор не видишь первой строки моего сообщения, и первого поста Antonariy?!

Если действительно не видишь, вот тебе ссылка!
http://msdn.microsoft.com/en-us/library/ms536438.aspx

[eldar22]

iGrok -не кипятись проблема решена

Код: Выделить всё

Private Sub Command1_Click()
Set doc = WebBrowser1.Document
Dim Inputs As IHTMLElementCollection
Set Inputs = doc.getElementsByName("Имя объекта")
Dim Element As IHTMLElement
Set Element = Inputs.Item(0)
Dim InputElement As IHTMLInputElement
Set InputElement = Element
InputElement.Checked = True
End Sub