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 大体就是这个意思吧
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
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
大体就是这个意思吧
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