主题：[求助]如何提取网页标题

' Updates the title bar with the current document title.
Private Sub webBrowser1_DocumentTitleChanged( _
    ByVal sender As Object, ByVal e As EventArgs) _
    Handles webBrowser1.DocumentTitleChanged

    Me.Text = webBrowser1.DocumentTitle

End Sub

但不会呀，麻烦编译一下

Dim page As Integer
Dim web As new windows.forms.webbrowser
web.ScriptErrorsSuppressed = True
For page = 232621561 To 232621562
    Dim txb1 As String = "http://weidian.eallcn.com/" & page
    web.Navigate(txb1)
Do Until web.ReadyState = 4
    Application.DoEvents
Loop
Dim idxx = 1

txb1 = instance.DocumentTitle
output.show(txb1)
For Each dl As object In web.Document.getElementsByTagName("head") 
output.show(DL)
Dim dll =  dl.GetAttribute("title")
    'If dl.GetAttribute("classname") = "title"  Then
       ' Dim dll = dl.Innertext
        If dll > "" Then
output.show(txb1)
output.show(DL)
        End If
'End If
    Next
Next
web.Dispose()
GC.Collect()