Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Webbrowser1 - нажать на кнопку Добавлено: 14.10.11 18:15  

Автор вопроса:  Djon | Web-сайт: www.vk-book.ru
Всем, привет!
Давненько здесь не был - почти 3 года.
Рябята подскажите, пожалуйста, как как можно программно нажать на кнопку в Webbrowser1. У кнопки известно только type и value. Уже несколько дней мучаюсь.

Ответить

  Ответы Всего ответов: 6  

Номер ответа: 1
Автор ответа:
 chialexus



ICQ: 321922 

Вопросов: 3
Ответов: 53
  Web-сайт: chialexus.narod.ru
 Профиль | | #1 		Добавлено: 14.10.11 20:33
Код в странице:
  1. <input onclick="submit()" class="textbutton" value="Track it" src="/images/btn_trackit.gif" type="image">

Код VB6:
  1. Property Set Doc(Document As Object)
  2.     Set CurrentDoc = Document
  3. End Property
  4.  
  5. Private Sub Form_Load()
  6.   WebBrowser1.Navigate2 "http://страница.html"
  7.   DoEvents
  8. WebBrowser1.Document.getElementById("testbutton").Focus
  9. WebBrowser1.Document.getElementById("testbutton").Click
  10. End Sub

Ответить

Номер ответа: 2
Автор ответа:
 Djon



Вопросов: 61
Ответов: 471
  Web-сайт: www.vk-book.ru
 Профиль | | #2 		Добавлено: 14.10.11 20:49
Код кнопки
  1. <input type="submit" style="height:26px; width:80px;" value="Загрузить">

Ответить

Номер ответа: 3
Автор ответа:
 Серёга



ICQ: 262809473 

Вопросов: 17
Ответов: 561
  Web-сайт: houselab.narod.ru
 Профиль | | #3 		Добавлено: 14.10.11 21:07
  1. Dim Elements, Element
  2. Set Elements = WebBrowser1.Document.All
  3. For Each Element In Elements
  4.     If Element.TagName = "INPUT" Then
  5.         If Element.Value = "Загрузить" Then
  6.             Element.Click
  7.         End If
  8.     End If
  9. Next Element

Ответить

Номер ответа: 4
Автор ответа:
 Djon



Вопросов: 61
Ответов: 471
  Web-сайт: www.vk-book.ru
 Профиль | | #4 		Добавлено: 14.10.11 22:07
Серёга Спасибо. Все работает. Ты меня выручил

Ответить

Номер ответа: 5
Автор ответа:
 Vadim



Вопросов: 0
Ответов: 1
  Web-сайт: uway.org.ua
 Профиль | | #5 		Добавлено: 15.10.11 16:25
Код VB6:
  1. Property Set Doc(Document As Object)
  2.     Set CurrentDoc = Document
  3. End Property
  4.  
  5. Private Sub Form_Load()
  6.   WebBrowser1.Navigate2 "http://страница.html"
  7.   DoEvents
  8. WebBrowser1.Document.getElementById("testbutton").Focus
  9. WebBrowser1.Document.getElementById("testbutton").Click
  10. End Sub


Скажите, пожалуйста как будет выглядеть этот код на VB.net
в частности меня интересует строка
WebBrowser1.Document.getElementById("testbutton";).Click


Метод .Click в VB 2010 не работает.
Как это сделать?

Ответить

Номер ответа: 6
Автор ответа:
 SHDZ



ICQ: 209382104 

Вопросов: 39
Ответов: 244
  Профиль | | #6 Добавлено: 14.02.12 18:17
На C#
FindElement - это своя функция - ни чего сложного просто перебирает все элементы по заданному критерию
а не мог нажать потому как тип другой - нужен IHTMLElement
  1.  
  2. el = FindElement("input", "НАПАСТЬ");
  3.             if (el == null)
  4.             {
  5.                 txtReport.Text = "НЕ смог найти кнопку НАПАСТЬ!" + Environment.NewLine + txtReport.Text;
  6.                 return false;
  7.             }
  8.             ((IHTMLElement)el.DomElement).click();
  9.  

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам