小妹我今天请教各位大哥一个问题


我用WebBrowser控件的时候如何能得到全部的html源码呢？
因为有的网页返回值为如下：
<--status ok 200 --->
xxxxxx说明文字
<html>
....................
</html>
xxxxxxxxxxx我目前用的是如下函数获取源码的，但获取不到html标签之外的代码，请教各位大哥帮忙:
Public Function webBrowseContent(WebBrowser As WebBrowser)
    Set vDoc = WebBrowser.Document
    '获取网页的源码
    For Each o In vDoc.All
     DoEvents
     htmlpage = htmlpage & o.innerHTML
    Next
    webBrowseContent = htmlpage
End Function

解决方案 »

  1.   

    Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
    Call URLDownloadToFile(0, "网页地址", "保存到本地文件名和地址", 0, 0)
      

  2.   

    Private Declare Function DoFileDownload Lib "shdocvw.dll"(ByVal lpszFile As String) As Long调用：
    Dim gourl As String
    gourl = StrConv("网页地址", vbUnicode)
    Call DoFileDownload(gourl)
      

  3.   

    谢谢您的方法，但不适合我现在的程序，因为必须传递cookie进去，不然获取不到html页面内容。
      

  4.   

    用INet控件Open 网址取全部内容。
      

  5.   

    这个有难度了
    要不你试一下
    xmlHttp.responseText 
    或者
    BytesToBstr(xmlHttp.responseBody, "GB2312")
    你自己都试试看
    因为找不不lz说的那种网页 
    lz自己是试吧 估计也没戏
      

  6.   

    都有WebBrowser了...DOM不是什么都有么...
      

  7.   

    并非得不到html标签之外的代码，而是webbrowser重组了超文代码，把结果放入label1仔细观查
    另外注意doevents的位置Private Sub Command1_Click()
       WebBrowser1.Navigate "c:\222.html"
       Do While WebBrowser1.Busy
         DoEvents
       Loop
       Label1 = webBrowseContent(WebBrowser1)End SubPublic Function webBrowseContent(WebBrowser As WebBrowser)
        DoEvents
        Set vDoc = WebBrowser.Document
        '获取网页的源码
        For Each o In vDoc.All
         htmlpage = htmlpage & o.innerHTML
         Next
         webBrowseContent = htmlpage
    End Function
      

  8.   

    直接取 WebBrowser.Document.documentElement.innerHTML 呢？