как программно

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by A_n_d_r_e_i, 14 Mar 2010.

  1. A_n_d_r_e_i

    A_n_d_r_e_i Active Member

    Joined:
    2 Sep 2009
    Messages:
    175
    Likes Received:
    250
    Reputations:
    27
    заполнить нужное поле на сайте через элемент управления WebBrowser на визуал бейсик?
    нашел :)

    Подключаем библиотеку "Microsoft HTML Object Library".
    Private objDoc As MSHTML.HTMLDocument

    Private Sub Form_Load()
    WebBrowser1.Navigate "www.ya.ru"

    Do While WebBrowser1.Busy
    DoEvents
    Loop

    Set objDoc = WebBrowser1.Document
    End Sub

    Private Sub Command1_Click()
    Dim objForm As MSHTML.HTMLFormElement

    ' web - название формы.
    Set objForm = objDoc.Forms.web
    ' text - название поля.
    ' Заполняем текстовое поле.
    objForm.Text.Value = "sql.ru"
    ' Извлекаем данные из текстового поля.
    MsgBox objForm.Text.Value
    ' Нажимаем кнопку "Найти".
    objForm.submit
    End Sub
     
    #1 A_n_d_r_e_i, 14 Mar 2010
    Last edited: 22 Mar 2010
  2. maestro-ant

    maestro-ant New Member

    Joined:
    7 Jan 2007
    Messages:
    26
    Likes Received:
    4
    Reputations:
    6
    вопрос не понятен.
    мож пойди все таки выспись? )
     
  3. .ATK

    .ATK Active Member

    Joined:
    20 Feb 2009
    Messages:
    143
    Likes Received:
    111
    Reputations:
    9
    Думаю то, что тебе нужно...
    зы. шарп
     
    #3 .ATK, 15 Mar 2010
    Last edited: 15 Mar 2010
  4. A_n_d_r_e_i

    A_n_d_r_e_i Active Member

    Joined:
    2 Sep 2009
    Messages:
    175
    Likes Received:
    250
    Reputations:
    27
    ага, нашел, выложу тут, мб кому-нить тоже пригодится.
    напомню, visual basic 6

    Так мы можем получить имя формы по её номеру(если захотим)
    WebBrowser1(SSTab1.Tab).Document.Forms(NumbeForm).Name

    Так мы получим тип элемента формы
    WebBrowser1(SSTab1.Tab).Document.Forms(NumbeForm).elements(I).Type

    Так мы получим количество элементов в форме
    WebBrowser1(SSTab1.Tab).Document.Forms(NumbeForm).length

    А вот так - его индекс (порядковый номер)
    WebBrowser1(SSTab1.Tab).Document.Forms(NumbeForm).elements(I).sourceindex

    А так вот - имя элемента
    WebBrowser1(SSTab1.Tab).Document.Forms(NumbeForm).elements(I).Name

    Так - тип элемента
    WebBrowser1(SSTab1.Tab).Document.Forms(NumbeForm).elements(I).Type

    А так - его Value
    WebBrowser1(SSTab1.Tab).Document.Forms(NumbeForm).elements(I).Value