[已解决]如何获取网页的全部源文件代码

我不知道呀 · 发表于 2014-6-15 10:20

通过这段代码进行获取网页的源代码：
Sub test_tb() With CreateObject("Microsoft.XMLHTTP")
      .Open "get", 获取网页的网址, True
      .Send
      Do While Not .ReadyState = 4
         DoEvents
      Loop
      Debug.Print .responseText
End With
End Sub

发现不能获取全部的网页源代码，中间的变成如下的样子，怎么回事呢？
<!doctype html>
<html>
<head>
<meta charset="utf-8" />以这个开头的一大部分源代码都不显示

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-6-15 10:41

Dim strText$
Dim httpRequest As Object
Dim myClip As Object
'剪贴板对象
Set myClip = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
Set httpRequest = CreateObject("Msxml2.XMLHTTP.3.0")
With httpRequest
.Open "GET", 网址, False
.send
strText = .responseText
End With
With myClip
'网页原始数据放入剪贴板中
.SetText strText '变量
.PutInClipboard
MsgBox "源代码已经复制到剪贴板中"
End With

复制代码

跳转到最佳答案楼层

hwc2ycy · 发表于 2014-6-15 10:41

这个最佳答案由 hwc2ycy 给出，感谢 hwc2ycy 的回答。

单击隐藏图章

Dim strText$
Dim httpRequest As Object
Dim myClip As Object
'剪贴板对象
Set myClip = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
Set httpRequest = CreateObject("Msxml2.XMLHTTP.3.0")
With httpRequest
.Open "GET", 网址, False
.send
strText = .responseText
End With
With myClip
'网页原始数据放入剪贴板中
.SetText strText '变量
.PutInClipboard
MsgBox "源代码已经复制到剪贴板中"
End With

复制代码

hwc2ycy · 发表于 2014-6-15 10:41

把网址换成你要查询的地址。

我不知道呀 · 发表于 2014-6-15 13:05

hwc2ycy 发表于 2014-6-15 10:41

为什么要放入剪贴板中呢

hwc2ycy · 发表于 2014-6-15 20:13

我不知道呀发表于 2014-6-15 13:05
为什么要放入剪贴板中呢

你粘贴到记事本或WORD中再看源文件就成了。

我不知道呀 · 发表于 2014-6-15 20:36

hwc2ycy 发表于 2014-6-15 20:13
你粘贴到记事本或WORD中再看源文件就成了。

现在测试不了那个网址，明天遇到问题再向您提问，谢谢你

我不知道呀 · 发表于 2014-6-16 19:57

本帖最后由我不知道呀于 2014-6-16 20:08 编辑

hwc2ycy 发表于 2014-6-15 10:41

今天测试终于成功了，把获取的源代码写入TXT就获取全能全部网页源代码，但还是不知其中原因，为什么非要在TXT中转一下，才能全部显示？
Sub VB()
With CreateObject("Msxml2.XMLHTTP")
.Open "GET", 网址, False
.send
Open "c:\data.txt" For Output As #1
Print #1, , .responseText
Close #1
End With
Open "C:\data.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, aa
astr = astr & aa
Loop
Close #1
End Sub

hwc2ycy · 发表于 2014-6-17 08:28

我不知道呀发表于 2014-6-16 19:57
今天测试终于成功了，把获取的源代码写入TXT就获取全能全部网页源代码，但还是不知其中原因，为什么非要在 ...

如果你想在立即窗口输出或者通过消息框输出，肯定是没有显示完整的，只有通过写入文件或复制到粘贴板才有效。

		自动登录	找回密码
密码			注册

[已解决]如何获取网页的全部源文件代码

评分