Z
zazaza
Происходит аномалия непонятная:
вот какая задача перед программой...
1- Зайти на RUTUBE.RU
2 - Набрать в строке поиска слово "ВИДЕО"
3 - нажать на кнопку "Найти"
---------
Как только программа выполняет эти 3 задачи. То обсалютно всегда rutube пишет ошику "Поиск не дал результатов"
Хотя если нажать на кнопку "Найти в ручную То поиск выполняется нормально"
Из этого следует что у меня гдето ошибка в коде при обращении к кнопке "найти"
--------
Помогите пожалуйста найти где здесь ошибка:
Объекты на форме:
1- Button1
2- Button2
3- WebBrowser1
вот какая задача перед программой...
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