Public Sub get_code(ByVal browser As System.Windows.Forms.WebBrowser, ByVal txtbox As System.Windows.Forms.TextBox)
Dim doc As HtmlDocument = browser.Document
Dim htmStr2 As String = String.Empty
htmStr2 = doc.Window.Frames(0).Document.Body.getElementsByTagName_r("Frame"). _
Item(0).Document.Window.Frames.Item(0).Document.Body.OuterHtml
'这个代码看起来有点复杂,frames(0)或Item(0)表示第一个frame,使用了两次才能看到scr=XXX文件里的原代码。
txtbox.Text = htmStr2
End Sub
'代码要放到WebBrowser1_DocumentCompleted 事件中,要不然会报错的。