Dim o() As String
If URL = WebBrowser1.Document.URL Then
If id = 1 Then
s = WebBrowser1.Document.body.innertext
I = InStr(WebBrowser1.Document.body.innertext, "截取內容") '獲得"截取內容"後面的內容
Text1.Text = Mid(s, I)
end if
End If
End Sub