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

Тема в разделе "Visual Basic", создана пользователем zazaza, 14 май 2011.

  1. zazaza

    zazaza Гость

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

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

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

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

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

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


    Код (LotusScript):
    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
     
  2. zazaza

    zazaza Гость

    Решено :

    Код (LotusScript):
     WebBrowser1.Document.Forms.Item(0).InvokeMember("submit")
     
Загрузка...

Поделиться этой страницей