И снова о WebBrowser'e

[Extremist]

На форме валяется WebBrowser, в WebBrowser’e загружена страничка, а на ней два текстовых поля (Логин/Пароль) и одна кнопка ну дык вот в чём вопрос: как сделать, чтобы при нажатии на батон информация из текстовых полей со странички считывалась в переменные в VB.

[marvan]

Код: Выделить всё

'References: Microsoft HTML Object Library
'Controls: Microsoft Internet Controls
'добавить на форму WebBrowser с именем WebBrowser1
Private WithEvents mDoc As MSHTML.HTMLDocument

Private Sub Form_Load()
    strBlankFile = "about:" & _
    "<input id=""txt1"" type=""text"" size=""20"" value=""""/>" & _
    "<input id=""cmd1"" type=""submit"" value=""пуск""/>"
    WebBrowser1.navigate strBlankFile
    While WebBrowser1.document Is Nothing
        DoEvents
    Wend
    Set mDoc = WebBrowser1.document
End Sub

Private Function mDoc_onclick() As Boolean
    If mDoc.parentWindow.Event.srcElement.id = "cmd1" Then
        MsgBox mDoc.getElementById("txt1").Value
    End If
End Function