如何获取指定地址的网页的源码？在线等

Question

如何获取指定地址的网页的源码？在线等，如获取163.com的页面的html代码，显示到text中，
分不够再加。

Answer 1

1.webbrowser方法：
private sub command1_click()
webbrowser1.Navigate "http://www.csdn.net"
Private Sub web_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Set doc = Web.Document   'doc就是网页源代码
text1.text = doc   
End Sub
2.winsock方法：
Option Explicit
Private Sub Command1_Click()
Command1.Enabled = False
Winsock1.Close
Winsock1.Connect "www.csdn.com", 80 '设置主机ip port
End Sub
Private Sub Winsock1_Connect()
Command1.Enabled = True
'向服务器发送数据 打开主页面
Dim strData As String
strData = ""
strData = strData & "GET / HTTP/1.1" & vbCrLf
strData = strData & "Host: www.csdn.net" & vbCrLf
strData = strData & "Accept: */*" & vbCrLf
strData = strData & "User-Agent: Mozilla/4.0 (compatible; MSIE 5.00; Windows 98)" & vbCrLf
strData = strData & "Pragma: no -cache" & vbCrLf
strData = strData & "cache -Control: no -cache" & vbCrLf
strData = strData & "Connection: Close" & vbCrLf & vbCrLf
Winsock1.SendData strData
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Winsock1.GetData strData  'strdata就是网页源代码
Text1.Text = strData
End Sub
3.inet方法
不会~楼下的继续~

Answer 2

第一个错误了
把web1改成webbrowser1

Answer 3

如何获取指定地址的网页的源码1.webbrowser方法：
private sub command1_click()
webbrowser1.Navigate "http://www.csdn.net"
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Set doc = Web.Document   'doc就是网页源代码
text1.text = doc   
End Sub我用你的方法得不到网页的源码，text1的窗口显示的是
[object]
是不是我哪里写错了？

Answer 4

text1.text = doc.body.innerhtml

Answer 5

text1.text = doc.body.innerhtml
改过后是显示源码了，但是存了源文件后下次打开，运行会出现with错误，还要先删了webbrowse重新加入这个控件，不知道什么原因？

Answer 6

Option Explicit
Dim nr As String
Private Sub command1_click()
WebBrowser1.Navigate "http://www.baidu.com/"
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    nr = WebBrowser1.Document.documentelement.InnerHTML
    Text1.Text = nr
End Sub

Answer 7

这样得不到源码的！
只是一些Html代码！

Answer 8

我的方法是修改的编译前
要先删了webbrowse重新加入这个控件