如何通过url(如http://www.163.com)获得该页面的源代码  要求速度快 最好是vb自带的 可行 马上给分

解决方案 »

  1.   

    '首先在部件中添加"Microsoft Internet Transfer Control 6.0"Private Sub Command1_Click()
    Debug.Print Inet1.OpenURL("http://www.163.com")
    End Sub
      

  2.   

    tztz520(午夜逛街)  你的方法可以读取 可是我想循环调用这个方法 刚开始还可以 不过后来就出现错误了 超时跳出了
      

  3.   

    Option ExplicitPrivate Sub Form_Load()
        WebBrowser1.Navigate "http://www.163.com"
    End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
        Dim i As Integer
        Do Until WebBrowser1.Document.All.Item(i).tagName = "HTML"
            i = i + 1
        Loop
            Dim s  As String
        s = WebBrowser1.Document.All.Item(i).outerHTML
        MsgBox s
    End Sub
      

  4.   

    tztz520(午夜逛街)  不好下载呀,有没有更好的办法呀
      

  5.   

    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 LongFunction GetSou(URL As String) As String
        Const tmpfile As String = "c:\tmp.sou"
        URLDownloadToFile 0, URL, tmpfile, 0, 0
        Do Until FileLen(tmpfile)
            DoEvents
        Loop
        Dim fn As Integer: fn = FreeFile
        Open tmpfile For Binary Access Read As #fn
            GetSou = Space(FileLen(tmpfile))
            Get #fn, , GetSou
        Close #fn
        Kill tmpfile
    End FunctionPrivate Sub Command1_Click()
        MsgBox GetSou("http://www.163.com")
    End Sub
      

  6.   

    好像都不太可行 我的要求是cpu占有率低点 因为是用时间控减十几秒取一次 而且有好几个时间控件同时取多个页面(不用写入本地文件)