1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

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

  1. zazaza

    zazaza Гость

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

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

    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
     
  2. zazaza

    zazaza Гость

    Репутация:
    0
    Решено :

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

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