VB.NET使用Web Browser怎样获取网页中文本框的内容

[Forrest23]

用VB.NET插入一个Web Browser控件，打开一个网页，请问用什么方法可以获取网页中文本框的内容？

[happy_sea]

Private Sub webbrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
    Dim webDoc As Object
    Dim webTag As Object
    Dim lengthTag As Integer
    Dim countTag As Integer
    
    On Error Resume Next
    
    Set webDoc = WebBrowser1.Document.All
    lengthTag = webDoc.length - 1
    
    For countTag = 0 To lengthTag
        Set webTag = webDoc.Item(countTag)
        Select Case Strings.LCase(webDoc.Item(countTag).tagName)
             Case "input"
                Select Case LCase(webTag.Type)
                    Case "text"
                        Debug.Print webTag.Value
                End Select
         End Select
     Next
End Sub

大体就是这个意思吧

[daisy8675]

   Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If e.Url = Me.WebBrowser1.Document.Url Then  '加载完毕
            If Me.ListView1.Items.Count = 0 Then   '第一次加载 
                'Getlink有效果
                Me.Button2.Enabled = True
            Else

                Me.RichTextBox1.Text = Me.RichTextBox1.Text & vbCrLf & Me.WebBrowser1.Document.GetElementById("TC11").InnerText

                blnGet = True

            End If
        End If


    End Sub

我这边是用ID取,你看一下文本框对应的ID

[Forrest23]

谢谢上面2位了！

[mishuzhang1234]

两位大神、可以把.NET代码转换成VB的吗 在线等