求助，怎么获取不到google搜索结果源代码了

这个是我的VB源代码程序<%
Function getHTTPPage(url)
    dim objXML
    set objXML=createobject("MSXML2.SERVERXMLHTTP.3.0")  '调用XMLHTTP组件，测试空间是否支持XMLHTTP
    objXML.open "GET",url,false 'false表示以同步的方式获取网页代码，了解什么是同步？什么是异步？
    objXML.send() '发送
    getHTTPPage=bBytesToBstr(objXML.responseBody)'返回信息，同时用函数定义编码
    set objXML=nothing'关闭
End Function
Function bBytesToBstr(body)
    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 = "utf-8" '转换原来默认的UTF-8编码转换成GB2312编码，否则直接用XMLHTTP调用有中文字符的网页得到的将是乱码
    bBytesToBstr = objstream.ReadText
    objstream.Close
    set objstream = nothing
end Function
function daimafun(body,st,et)
if st <> "" then
sn = instr(body,st)+len(st)
else
sn = 1
end if
if et <> "" then
en = instr(Mid(body,sn),et)-1
else
en = len(body)
end if
if body <> "" then
daimafun = Mid(body,sn,en)
else
daimafun = ""
end if
end function
ydm = getHTTPPage("http://www.google.com/search?q=site:1keyhelp.com")
%>