Function ProxyPage(url) Set Retrieval = CreateObject(“MSXML2.ServerXMLHTTP.5.0”) With Retrieval .SetProxy 2 , “255.0.0.0:80” ‘代理ip:代理端口 .Open “Get”, url, False, “”, “” .setRequestHeader “Referer”,”http://www.baidu.com/” ‘伪造referer .Send ProxyPage = B