采集页面:
Function GetPage(url)
dim SendData,Retrieval
Set Retrieval = CreateObject(Microsoft.XMLHTTP)
With Retrieval
.Open post, url, False
.setRequestHeader Content-Type, application/x-www-form-urlencoded
.setRequestHeader User-agent, Mozilla/4.0 (compatible; MSI..