Конференция VBStreets

**dedmakar** » 23.02.2007 (Пт) 20:12

Как сымитировать нажатие checkbox на web-странице???? Мне нужно поставить галочку в интерфейсе проги и это галочка появится на checkbox'е на web-странице.
HTMLкод:
<html>
<body>
<form action="/10002/search/ReverseAddress" method="get" name="wp_ra_form">
<input type="checkbox" name="metro_area" value="1">
</form>
</body>
</html>

**dedmakar** » 23.02.2007 (Пт) 20:28

Спасибо за поиск, уже

. Ну, если нашел, дай ссылку.

**dr.MIG** » 23.02.2007 (Пт) 20:39

Поиск действительно рулит неимоверно.
Хотя бы:
http://bbs.vbstreets.ru/viewtopic.php?t=29811
С CheckBox'ом всё по аналогии - копать в сторону MSHTML, класс HTMLOptionButtonElement.

**Jurist** » 24.02.2007 (Сб) 16:07

Про checkbox на форме есть здесь: http://forum.sources.ru/index.php?showtopic=169517
Имитация нажатия элементов на web-странице в приложенном файле.

**dedmakar** » 24.02.2007 (Сб) 16:27

Спасибо всем. Буду сам отвечать на свои вопросы.
Кому нужен код, прошу:

Код: Выделить всё: 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 If Check1.Value = 0 Then InputElement.Checked = False Else: InputElement.Checked = True End If

**Cytron** » 24.02.2007 (Сб) 19:46

лучше так

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 = Check1.Value

**dedmakar** » 25.02.2007 (Вс) 12:19

Cytron
у меня на быструю руку:)

**eldar22** » 17.09.2009 (Чт) 12:35

ppc во всём форуме только одна тема с такой проблемой

Конференция VBStreets

Как сымитировать нажатие checkbox на web-странице????

Как сымитировать нажатие checkbox на web-странице????

Re: Как сымитировать нажатие checkbox на web-странице????

Кто сейчас на конференции