怎么能在WebBrowser加载网页的时候仅仅加载文本信息，而不下载图片，flash等其他资源？

Question

怎么能在WebBrowser加载网页的时候仅仅加载文本信息，而不下载图片，flash等其他资源？

Answer 1

我只知道IEtool->Options->advance
去掉Media中的图象，声音等等。

Answer 2

宿主可以在某些方面控制下载—帧、图形、Java等等—通过实现 IOleClientSite 和一个定义为 DISPID_AMBIENT_DLCONTROL 的周边属性。当 dispidMember 设置为DISPID_AMBIENT_DLCONTROL 调用宿主的 IDispatch::Invoke 方法时，它应该将pvarResult 设置为 0 或下列值的组合： 　　DLCTL_BGSOUNDS 浏览器组件播放同文档相联的背景声音； 　　DLCTL_DLIMAGES 浏览器组件从服务器下载图形； 　　DLCTL_DOWNLOADONLY 浏览器组件下载页面但不显示； 　　DLCTL_FORCEOFFLINE 浏览器组件工作在脱机方式。通过 URLMON 提出请求时， 即使计算机连接了互联网，也设置 BINDF_OFFLINEOPERATION 标志； 　　DLCTL_NO_BEHAVIORS 浏览器组件不执行任何行为； 　　DLCTL_NO_CLIENTPULL 浏览器组件不执行任何客户端的 pull 操作； 　　DLCTL_NO_DLACTIVEXCTLS 浏览器组件不下载文档中的任何 ActiveX 控件； 　　DLCTL_NO_FRAMEDOWNLOAD 浏览器组件对包含框架的页面进行语法分析但不下载任何帧， 同时忽略框架，不翻译任何 frame 标记； 　　DLCTL_NO_JAVA 浏览器组件不执行任何 Java applet； 　　DLCTL_NO_METACHARSET 浏览器组件隐藏文档中的 META 元素指示的字符集； 　　DLCTL_NO_RUNACTIVEXCTLS 浏览器组件不执行文档中的任何 ActiveX 控件； 　　DLCTL_NO_SCRIPTS 浏览器组件不执行任何脚本； 　　DLCTL_OFFLINE 与 DLCTL_OFFLINEIFNOTCONNECTED 相同； 　　DLCTL_OFFLINEIFNOTCONNECTED 如果未连接互联网，浏览器组件将以脱机方式工作。通过 URLMON 提出请求时，即使计算机连接了互联网，也设置 BINDF_GETFROMCACHE_IF_NET_FAIL 标志； 　　DLCTL_PRAGMA_NO_CACHE 浏览器组件迫使请求发送给服务器并忽略代理，即使代理指明 数据是最新的也是如此。通过 URLMON 提出请求时，设置 BINDF_PRAGMA_NO_CACHE 标志； 　　DLCTL_RESYNCHRONIZE 浏览器组件忽略缓存中的数据并向服务器请求更新。如果服务器指明 缓存中的数据是更新了的则使用缓存数据。通过 URLMON 提出 请求时，设置 BINDF_RESYNCHRONIZE 标志； 　　DLCTL_SILENT 浏览器组件不显示用户界面。通过 URLMON 提出请求时，设置 BINDF_SILENTOPERATION 标志； 　　DLCTL_URL_ENCODING_DISABLE_UTF8 浏览器组件禁止 UTF-8 编码； 　　DLCTL_URL_ENCODING_ENABLE_UTF8 浏览器组件允许 UTF-8 编码； 　　DLCTL_VIDEOS 浏览器组件播放文档中包含的视频片断。 

Answer 3

又可参见http://www.csdn.net/develop/read_article.asp?id=12358

Answer 4

又可参见http://www.csdn.net/develop/read_article.asp?id=12358
看不懂，IinternetProtocolRoot在VB 里怎么用？

Answer 5

http://expert.csdn.net/Expert/topic/1406/1406358.xml?temp=.5309717

Answer 6

也可以用winet控件openurl得到网页源文件然后自动存为html然后用webbrowser打开这个文件。

Answer 7

给你一个例子：
原帖地址：http://topic.csdn.net/u/20100505/08/afda7156-fe7e-49a1-8bd2-65a0c0a4f449.html?6124
加载数据库的树形数据：
数据是存在数据库中的，结构如下：
id               name   end   js
101            根         0       1
10101       1级       1       2
102            根 1     0        1
10201       1级1     0        2
1020101  2级        1        3
10202       1级1     1       2如何通过代码加载到TREEVIEW中去？
Dim tb As DataTable
Dim treeview1 As TreeView
Private Sub fillTree()
    For Each row As DataRow In tb.Rows
        Dim trNode As New TreeNode
        trNode.Text = row("Name")
        trNode.Tag = row("id")
        If row("end") = 0 Then
            treeview1.Nodes.Add(trNode)
        Else
            For Each nod As TreeNode In treeview1.Nodes
                addChildNode(trNode, nod)
            Next
        End If    Next
End Sub
'用一个递归过程添加子节点
Private Sub addChildNode(ByVal ChildNode As TreeNode, ByVal ParentNode As TreeNode)
    If Left(ChildNode.Tag, Len(ChildNode.Tag) - 2) = ParentNode.Tag Then
        ParentNode.Nodes.Add(ChildNode)
    Else
        For Each Nod As TreeNode In ParentNode.Nodes
            addChildNode(ChildNode, Nod)
        Next
    End If
End Sub