无法获得网页数据，以前好的 - vba吧

level 8

Sub dd()
Dim http
Set http = CreateObject("Microsoft.XMLHTTP")
http.Open "POST", "https://baike.so.com/doc/2508820-2651079.html", False
http.send ""
If http.Status = 200 Then
Range("a1") = http.responseText
End If
End Sub

2018年11月20日 02点11分 1

level 8

花间一壶酒🍄 楼主

10元微信小报酬，谢谢呢！

2018年11月20日 02点11分 2

level 8

花间一壶酒🍄 楼主

顶一下

2018年11月20日 06点11分 3

level 11

08074000

把post改成get

2018年11月21日 06点11分 4

花间一壶酒🍄

没有用，以前还可以的，现在不行了

2018年11月22日 00点11分

08074000

@花间一壶酒🍄 试试应该可以吧感觉是 post的时候 send出错呢改成get就是单纯滴取数据了

2018年11月22日 06点11分

花间一壶酒🍄

@08074000 我是WPS ,你微信号多少？我好像以前加过你的

2018年11月22日 07点11分

花间一壶酒🍄

@08074000 改成get 不行呢，也不知道是不是WPS 的原因

2018年11月22日 07点11分

level 11

坑你爹呀4

Sub dd()
Dim http
Set http = CreateObject("msxml2.xmlhttp")
http.Open "GET", "https://baike.so.com/doc/2508820-2651079.html", False
http.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/45.0.2454.101 Safari/537.36"
http.send
If http.Status = 200 Then
Range("a1") = http.responseText
End If
End Sub

2018年11月22日 02点11分 5

花间一壶酒🍄

你微信号多少？

2018年11月22日 03点11分

坑你爹呀4

@花间一壶酒🍄 微信号，17639800955

2018年11月22日 03点11分