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 事件中,要不然会报错的。