说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

如何让webbrowser控件浏览网页时不下载flash(*.swf)和图片(*.gif,*.jpg)

编辑:说三道四文库 发布时间:2018-05-26 06:48
HTML文档下载 WORD文档下载 PDF文档下载
rt
thx
你这个想法很好,可以提高速度,我猜测你想偷新闻之类的东西,我知道这类东西怎么做,不过我恐怕不能避免图片
很难,仅仅文本的话考虑别的办法吧。
要是可以DownloadBegin()中知道要下载什么文件就可以进行拦截了
我也想知道。
我也正在找类似的问题的答案,找到了别忘了通知我!!!!!!!
只有分析网页内容,并修改,我的试验成功了,但是本人对html对象不熟,还请高手赐教。
一个不是很好的招:用MicroSoft Internet Transfer Control控件先把网页下载下来,保存成HTML文件,这个时候网页上的连接的都不会下载下来,然后再用WebBrowser打开HTML文件!
GZ
如果只要源码的话可以用INET控件的openUrl方法啊,要显示可以保存成htm方件,再用WebBrowser.navigate指像保存后的文件。这是我的想法,应该有更好的方法
只要方本可以处理HTML源码,过滤掉一些:下面是我的例子
Private Sub Command1_Click()
Text1.Text = checkstr(Inet1.OpenURL("http://cn.yahoo.com"))
End Sub
Public Function CheckStr(str As String) As String
Dim Buf, Buf2, s As String
Dim bleft As Boolean
Dim i As Integer, j As Integer
 On Error Resume Next
    Buf = str
    Buf = Replace(Buf, "&", "&")
    Buf = Replace(Buf, """, Chr(34)) '替换成双引号
    Buf = Replace(Buf, "&lt;", "<")
    Buf = Replace(Buf, "&gt;", ">")
     Buf = Replace(Buf, "&nbsp;", vbNullString)
    '您可加入其他替换
    j = 0
    For i = 1 To Len(Buf)
        s = Mid(Buf, i, 1)
        Select Case s
            Case "<"
                If i <> 1 Then
                    Buf2 = Buf2 & Mid(Buf, j + 1, i - j - 1)
                End If
            Case ">"
                j = i
            Case Else
                'If bleft = False Then Buf2 = Buf2 & s
                  
        End Select
    Next i
    If j < i Then Buf2 = Buf2 & Mid(Buf, j + 1, i - j - 1)
 CheckStr = Buf2
 'Debug.Print CheckStr
End Function
MicroSoft Internet Transfer Control控件其实也下载了图片啊,在缓冲区里肯定有的!
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘