关于WebBrowser识别html的问题

Question

我用WebBrowser载入一个网页然后读取保持html到文件发现和实际的差别好大。很多位置都出现乱码再ie中保存出来的就没问题不知道怎么回事Function getWebHtml(browser As WebBrowser) As String
    Dim doc As Object
    Dim i As Object
    Dim strHtml As String
    
    Set doc = browser.Document
    For Each i In doc.All
        strHtml = strHtml & Chr(13) & i.innerHtml '
    Next
    getWebHtml = strHtml
End Function

Answer 1

估计是字体编码问题，右键查源代码，看看类似下面这句
content="text/html;charset=gb2312"
编码一样就不会再乱码

Answer 2

那当然了,你还需要把css,图片,js文件等都要下载下来的你只保存了html肯定不成啊

Answer 3

编码是这个编码我只读body段中的数据但是出现乱码。我已经把html转义字符replace了。可是还是不行！不知道怎么回事。

Answer 4

大哥我说的你看懂没有??没有样式的保存那肯定不成啊....WebBrowser1.document.execcommand("savaas",path)
你如果用这种方案保存就没问题的...原理不一样了...

Answer 5

我不是要保存呀。我只是取body段中的一段数据。

Answer 6

//发现和实际的差别好大。很多位置都出现乱码//再ie中保存出来的就没问题 那你这两个对比又是什么意思呢??...你只取一段没有css js的文本和ie保存相比??这本身就没有可比性啊,ie保存的是完整的东西...当然差别很大了