如何取得指定url的网页源代码

[chenchonggan]

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

[leolan]

先把它下載到本地,再用記事本打開.

[tztz520]

'首先在部件中添加"Microsoft Internet Transfer Control 6.0"

Private Sub Command1_Click()
Debug.Print Inet1.OpenURL("http://www.163.com")
End Sub

[chenchonggan]

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

[lang_csdn]

Option Explicit

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.163.com"
End Sub

Private 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

[fengyetianshi]

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

[BlueBeer]

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

Function 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 Function

Private Sub Command1_Click()
MsgBox GetSou("http://www.163.com")
End Sub

[chenchonggan]

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

[chenchonggan]

哥们 帮帮忙啊 急！！