BG大游集团站长工具能查询网站各大搜索引擎收录数量和百度权重、百度相关域、百度快照、百度近日收录、网站历史查询、网站升级查询等。但是在抓取谷歌网页结果的时候，返回403错误问题，同样的地址，用浏览器打开时显示正常的搜索结果页面，但用程序抓取就出现403错误页面，里面讲的是判断访问对象是机器，可见谷歌对程序或软件抓取结果已经做了相关的措施，因为谷歌+1算法已经生效，防止机器抓取可以防止机器点击。所以，BG大游集团站长工具一直因为这个原因无法抓取谷歌收录、谷歌排名数据。

    一直以来，我都在网□□□□上寻找问□□题的答案，因为我看□□有些站长□□工具能够□□抓取，所以问题✦一定有解□□决的方法，我开始怀□□疑是路径□□□不对，不过我发□□□觉也只有□□□□这个路径，于是我把◥目标指向□□□了抓取网★页的程序，采用其他♦方法，没想到，让我惊奇□□□的结果出□□□来了。用Microsoft.XMLHTTP对象获取□□□□就可以抓□□□取到正常◎结果，我以前是☆用MSXML2.SERVERXMLHTTP.3.0对象来抓◢取的。代码如下。

Function getHTTPPage(url,charcode)
    dim objXML
    'set objXML=createobject("MSXML2.SERVERXMLHTTP.3.0")  '调用XMLHTTP组件，测试空间◈是否支持XMLHTTP
    set objXML=createobject("Microsoft.XMLHTTP")
 objXML.open "GET",url,false 'false表示以同□□□步的方式丨获取网页□□代码，了解什么□□□是同步？什么是异□□□□步？
    objXML.send() '发送
    getHTTPPage=bBytesToBstr(objXML.responseBody,charcode)'返回信息，同时用函□□数定义编◈码
    set objXML=nothing'关闭
End Function

Function bBytesToBstr(body,charcode)
    dim objstream
    set objstream = CreateObject("adodb.stream") '//调用adodb.stream组件
    objstream.Type = 1
    objstream.Mode =3
    objstream.Open
    objstream.Write body
    objstream.Position = 0
    objstream.Type = 2
    objstream.Charset = charcode '转换原来◇默认的UTF-8编码转换□□□□成GB2312编码，否则直接□□□用XMLHTTP调用有中□□□□文字符的□□□网页得到□□的将是乱□□□码
    bBytesToBstr = objstream.ReadText
    objstream.Close
    set objstream = nothing
end Function

通过使用□□□□这个抓取△函数，谷歌的收□□□录数据、排名数据◉都可以正○常获取了，从而解决□□□□了这个BUG。

BG大游集团站长□□□□工具正在□□□□一步步完□□□善，而且源代□□码全部开□□□□源，只希望保□□□□留版权信□□□□息。