如何保存WEBBROWSER控件里的源文件到文本文件

Question

需要引用哪些，添加哪些部件请说明

Answer 1

Microsoft Internet Controls '部件
Microsoft Html Object Libary '引用Private Sub Form_Load()
    WebBrowser1.Navigate "http://www.sina.com.cn"
End SubPrivate Sub WebBrowser1_DownloadComplete()
    Dim doc As IHTMLDocument
    Dim objhtml As Object
    Dim strhtml As String
    
    If Not WebBrowser1.Busy Then
        Set doc = WebBrowser1.Document
        Set objhtml = doc.body.createTextRange()
        If Not IsNull(objhtml) Then
            Text1.Text = objhtml.htmlText
        End If
    End If
End Sub不能保存asp之类的源程序，只能是看到的html文件。

Answer 2

http://search.csdn.net/Expert/topic/1256/1256444.xml?temp=.3123133这样的帖已经非常多了

Answer 3

保存webbrowser中的HTML内容 http://blog.csdn.net/technofantasy/archive/2004/04/12/2973.aspx

Answer 4

要求不一样，不是我要重提，我也在CSDN上搜索过了请各位高人帮忙

Answer 5

Dim oPF As IPersistFile 
Set oPF = WebBrowser1.Document 
oPF.Save "TheFileNameHere.htm", False上面的出错了，用户类型未定义
请问，IPersistFile，这是什么，要引用什么吗

Answer 6

老大，难道你就不知道如何写入一个html为后缀名的文本文件？
如果真的是要求不一样，也没见你说清楚具体要求和问题啊。

Answer 7

我要的是把webbrowser里的源文件写到一个文本文件

Answer 8

是webbrowser里的源文件，而不是里的文本

Answer 9

to chuting(机器人):
http://www.applevb.com/lib/tl_ole.zip
然后再vb里 工程——引用

Answer 10

。无语。不懂你到底想要什么。如果我们几位所说的只是表面的文本的话，那这个就变成了语文问题了，你得首先让你自己弄清什么是文本，什么是html。自己去实践一下就知道是不是得到的html源代码了。你如果想用这种方式得到什么asp之类的源程序，那是不可能的。

Answer 11

不是ASP。而是查看里的“源文件”，理解万岁啊

Answer 12

回复人： chuting(机器人) ( ) 信誉：101  2005-07-02 07:21:00  得分: 0  
 
 
   楼上的，你发给我的东西怎么用啊，是干什么的
  
 
===============================不告诉你了么，在引用里勾选，这样
Dim oPF As IPersistFile 
Set oPF = WebBrowser1.Document 
oPF.Save "TheFileNameHere.htm", False
就能用了

Answer 13

chuting(机器人) 你给的东西如何用啊，可以说具体点吗

Answer 14

http://blog.csdn.net/cutemouse/archive/2004/05/09/6072.aspx
获取webbrowser控件 网页的源码（收藏）