• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

    На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.

    Запись на курс до 25 апреля. Получить промодоступ ...

Webbrowser нажатие кнопки ведёт себя странно

  • Автор темы zazaza
  • Дата начала
Z

zazaza

Происходит аномалия непонятная:

вот какая задача перед программой...

1- Зайти на RUTUBE.RU
2 - Набрать в строке поиска слово "ВИДЕО"
3 - нажать на кнопку "Найти"

---------
Как только программа выполняет эти 3 задачи. То обсалютно всегда rutube пишет ошику "Поиск не дал результатов"
Хотя если нажать на кнопку "Найти в ручную То поиск выполняется нормально"
Из этого следует что у меня гдето ошибка в коде при обращении к кнопке "найти"
--------

Помогите пожалуйста найти где здесь ошибка:

Объекты на форме:
1- Button1
2- Button2
3- WebBrowser1


Код:
Public Class Form1


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

WebBrowser1.Navigate("http://rutube.ru/")

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

WebBrowser1.Document.GetElementById("search").InnerText = "Видео"
If Keys.Enter Then

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim allelements As HtmlElementCollection = WebBrowser1.Document.All
For Each webpageelement As HtmlElement In allelements
If webpageelement.GetAttribute("value") = "Найти" Then 
webpageelement.InvokeMember("click")
End If
Next

End Sub

End Class
 
Z

zazaza

Решено :

Код:
 WebBrowser1.Document.Forms.Item(0).InvokeMember("submit")
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!