Question

如何用VB提取本网页的源代码？

WEBBROWSER1加载了http://zhidao.baidu.com/question/299810507.html

请问如何在TEXT1中显示出其源代码？？

在线等！！

Answer 1

Private Sub Form_Load()
WebBrowser1.Navigate "http://zhidao.baidu.com/question/299810507.html" '加载网页
Text1.Multiline=True '把Text1设置为多行显示，不然会很卡
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Text1.Text = WebBrowser1.Document.documentElement.outerHTML '网页加载完成后，将网页源码保存到Text1
End Sub

Answer 2

VB 加载一个inet控件 （就是在部件里面的 microsoft internet transfer control 6.0 控件)
然后 在窗口添加一个text
代码里面写
Private Sub Form_Load()
Text1.Text = Inet1.OpenURL("http://zhidao.baidu.com/question/299810507.html")
End Sub

==============================保证有效 ===================================

Answer 3

在WEBBROWSER1全选，然后执行以下代码即可
Dim objSelection
Dim objTxtRange
Set objSelection = WEBBROWSER1.Document.selection
If Not (objSelection Is Nothing) Then
Set objTxtRange = objSelection.createRange
If Not (objTxtRange Is Nothing) Then
Text1.Text = objTxtRange.htmlText
Text1.Visible = True
Set objTxtRange = Nothing
End If
Set objSelection = Nothing

追问

不错，能解释下你的这段为什么这么长？可以稍微注释下不？谢谢。我才刚刚学VB，不是很明白。

Answer 4

网页制作用的ASP语句，并且调用SQL语句对数据库进行读取
建议你学好VB基础吧
这是编写动态网页的基本语句as

Answer 5

text1.text=WebBrowser1.Document.body.innerhtml
可以显示源码