^@^ Google快照自己抓，本地版【VBS@SOAP】（源码公开） ^@^

江南昆虫 2003-01-20 06:46:45

将代码保存到桌面即可随心所欲抓快照：）

<html>
<head>
<title>江南昆虫网页快照引擎</title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<meta name="Generator" content="EditPlus">
<meta name="Author" content="JnKc">
<meta name="Keywords" content="">
<STYLE TYPE="text/css">
td{color:gray;font-size:12px}
</STYLE>
</head>
<body topmargin="0" leftmargin="0">
<table border=0 width=700 align=center>
<form method="get" action="">
<tr>
<td align=center>
<A HREF="http://google.jnkc.net/"><IMG SRC="http://google.jnkc.net/image/Logo_25wht.gif" border="0" ALT="Google@江南昆虫" align="absmiddle"></A>
<input type="text" name="jnkcUrl" value="http://" size="30"><button id="jnkcGetCache">访问网页快照</button> [By 江南昆虫] <br>（如出现安全提示，点击确认即可）
</td>
</tr>
</form>
</table>
<iframe name="jnkcIframe" src="about:blank" width="100%" height="400"></iframe>
</body>
</html>
<SCRIPT LANGUAGE="VBScript">
Sub jnkcGetCache_onClick()
jnkcIframe.location = "about:blank"
Dim jnkcGetUrl
jnkcGetUrl = document.all.jnkcUrl.value
jnkcGetUrl = Trim(jnkcGetUrl)
If jnkcGetUrl = "" Then Exit Sub
jnkcIframe.document.open
jnkcIframe.document.write Bin2Str(GetCachedPage(jnkcGetUrl))
jnkcIframe.document.close
End Sub
Function Bin2Str(jnkcBin)
Dim jnkcStream
Set jnkcStream = CreateObject("Adodb.Stream")
jnkcStream.Mode = 3
jnkcStream.Type = 1
jnkcStream.Open
jnkcStream.Write jnkcBin
jnkcStream.Position = 0
jnkcStream.Type = 2
jnkcStream.Charset = "gb2312"
Bin2Str = jnkcStream.ReadText
jnkcStream.Close
Set jnkcStream = Nothing
End Function
Function GetCachedPage(jnkcGetUrl)
Dim objSoapClient,googleAPIKey
googleAPIKey = "2jCWhvtQFHKb7O/+GsLFJCU6VqPLIdyk"
'这是使用google服务器接口的密匙，使用时请换成你自己的。
'江南昆虫的密匙是“2jCWhvtQFHKb7O/+GsLFJCU6VqPLIdyk”，
'你可以在google免费申请到属于你自己的，申请网址：
'http://api.google.com/createkey
Set objSoapClient = CreateObject("MSSOAP.SoapClient30")
'这里需要使用到微软的SOAP3.0，SOAP Toolkit 3.0下载地址：
'http://download.microsoft.com/download/xml/Install/3.0/W982KMeXP/EN-US/SoapToolkit30.EXE
objSoapClient.mssoapinit "http://api.google.com/GoogleSearch.wsdl"
'你也同样可以把GoogleSearch.wsdl下载到本地
'objSoapClient.mssoapinit "GoogleSearch.wsdl"
GetCachedPage = objSoapClient.doGetCachedPage(googleAPIKey,jnkcGetUrl)
Set objSoapClient = Nothing
End Function
</SCRIPT>

...全文