上一篇
下一篇
各大搜索引擎收录查询工具下载-易语言(原理+源码)2.0更新
作者:简单男人 日期:2010-07-27
半成本截图
成品截图
今天闲来无事,想着老是去那些站长工具网站去查询各大搜索引擎收录情况,显得挺麻烦,虽然是收藏了,但还是觉得有点麻烦,而且因站长网的网络情况而定时快时慢的.所以想自己动手来做一个在本地使用的各大搜索引擎收录查询工具来,这样使用起来估计会方便一些,速度上也是会有一定的改善,并且所有数据都是从各大搜索引擎返回过来的第一手数据.
既然这么想,那么就要动手做了,想了很多办法,偷看过站长工具网站的网页源代码和JS脚本,但始终还是没能找到好的办法直接从搜索引擎直接取到数据,于是想到问朋友,跑去问ZCH但是一大早没见他有反应,又想了半天,还是不行再给他留个言,这下终于有反应了,问了才知道这么久没反应原来是在玩游戏,叫啥龙之谷的,哎又落伍了,竟第一次听说这游戏.
好了闲聊归闲聊,还是要勿忘正题,于是就找他一起来研究这个问题,他放下游戏不玩给我指点了一下,使用"HTTP读文件"来做,首先把搜索网站收录页面的数据读下来,再用"寻找文本"来寻找关键字,再通过别的方法把找到的关键字再分割,得到想要的数据.高手就是高手,经过他的指点之后突然有了方向,于是沿着方向续断前行.
先写百度和Google的站点收录查询部份吧反向链接查询和其它的搜索引擎的查询就留着给未来的这两天来完成吧,如上图所示界面和功能.因为确实有点晚了,等下还要买菜做饭,吃饭,陪老婆看电影,等等琐事,所以没办法一次性完成这个工具,先把完成部份的源码贴出来,正式版下载等完成后再添加上!
复制内容到剪贴板
程序代码
程序代码.版本 2
.支持库 internet
.程序集 窗口程序集1
.程序集变量 google, 文本型
.程序集变量 baidu, 文本型
.子程序 _按钮1_被单击
_baidu ()
_google ()
.子程序 __启动窗口_创建完毕
baidu ＝ “http://www.baidu.com/s?wd=site%3A”
google ＝ “http://www.google.com.hk/search?hl=zh-CN&newwindow=1&safe=strict&q=site%3A”
.子程序 _google
.局部变量 终止位置, 整数型
.局部变量 起始位置, 整数型
.局部变量 欲取字段长度, 整数型
.局部变量 欲取字段, 文本型
.局部变量 googlewb, 文本型
googlewb ＝ 到文本 (UTF8转ANSI (HTTP读文件 (google ＋ 编辑框1.内容)))
欲取字段 ＝ “从 <b>” ＋ 编辑框1.内容 ＋ “</b> 获得约 <b>”
欲取字段长度 ＝ 取文本长度 (欲取字段)
起始位置 ＝ 寻找文本 (googlewb, 欲取字段, , 假)
终止位置 ＝ 寻找文本 (googlewb, “</b> 条结果”, , 假)
标签1.标题 ＝ 取文本中间 (取文本中间 (googlewb, 起始位置, 终止位置 － 起始位置), 欲取字段长度 ＋ 1, 终止位置 － 起始位置)
.子程序 _baidu
.局部变量 baiduwb, 文本型
.局部变量 欲取字段, 文本型
.局部变量 欲取字段长度, 整数型
.局部变量 起始位置
.局部变量 终止位置
baiduwb ＝ 到文本 (HTTP读文件 (baidu ＋ 编辑框1.内容))
欲取字段 ＝ “百度一下，找到相关网页”
欲取字段长度 ＝ 取文本长度 (欲取字段)
起始位置 ＝ 寻找文本 (baiduwb, 欲取字段, , 假)
终止位置 ＝ 寻找文本 (baiduwb, “篇，用时”, , 假)
标签2.标题 ＝ 取文本中间 (取文本中间 (baiduwb, 起始位置, 终止位置 － 起始位置), 欲取字段长度 ＋ 1, 终止位置 － 起始位置)
.支持库 internet
.程序集 窗口程序集1
.程序集变量 google, 文本型
.程序集变量 baidu, 文本型
.子程序 _按钮1_被单击
_baidu ()
_google ()
.子程序 __启动窗口_创建完毕
baidu ＝ “http://www.baidu.com/s?wd=site%3A”
google ＝ “http://www.google.com.hk/search?hl=zh-CN&newwindow=1&safe=strict&q=site%3A”
.子程序 _google
.局部变量 终止位置, 整数型
.局部变量 起始位置, 整数型
.局部变量 欲取字段长度, 整数型
.局部变量 欲取字段, 文本型
.局部变量 googlewb, 文本型
googlewb ＝ 到文本 (UTF8转ANSI (HTTP读文件 (google ＋ 编辑框1.内容)))
欲取字段 ＝ “从 <b>” ＋ 编辑框1.内容 ＋ “</b> 获得约 <b>”
欲取字段长度 ＝ 取文本长度 (欲取字段)
起始位置 ＝ 寻找文本 (googlewb, 欲取字段, , 假)
终止位置 ＝ 寻找文本 (googlewb, “</b> 条结果”, , 假)
标签1.标题 ＝ 取文本中间 (取文本中间 (googlewb, 起始位置, 终止位置 － 起始位置), 欲取字段长度 ＋ 1, 终止位置 － 起始位置)
.子程序 _baidu
.局部变量 baiduwb, 文本型
.局部变量 欲取字段, 文本型
.局部变量 欲取字段长度, 整数型
.局部变量 起始位置
.局部变量 终止位置
baiduwb ＝ 到文本 (HTTP读文件 (baidu ＋ 编辑框1.内容))
欲取字段 ＝ “百度一下，找到相关网页”
欲取字段长度 ＝ 取文本长度 (欲取字段)
起始位置 ＝ 寻找文本 (baiduwb, 欲取字段, , 假)
终止位置 ＝ 寻找文本 (baiduwb, “篇，用时”, , 假)
标签2.标题 ＝ 取文本中间 (取文本中间 (baiduwb, 起始位置, 终止位置 － 起始位置), 欲取字段长度 ＋ 1, 终止位置 － 起始位置)
值得一提的是,百度查询默认是返回的ANSI码,不需要转换,而Google返回的则是UTF8码,需要转换后才可用,否则中文完全都是乱码!就如下图:
所以遇上这种返回UTF8码的搜索引擎就必须要转换编码了,幸亏易语言已经有人写了转换模块了,这也是ZCH传给我的,我也在这里贴上给大家下载一下,解决一下大家转换编码的需求!
新编码转换大全.rar就写到这吧,明天还要去一家新的公司复试呢,该早点睡了!
好了,今天终于抽空把这个工具写完了,今天的复试,哎不想提了,但是比起初试来说还算是有改观了,初试时用了一分钟不到,回答了两个问题,这次复试有进步了,用了两分钟,答了五个左右的问题!
程序预览图已经贴在最上面了,下面贴上搜索引擎收录查询工具成品和源码,希望有共同爱好的朋友常来交流切磋!
为了节省空间,成品程序已经加了壳,但是程序都开源了,应该就没人在乎是否加了壳吧!
最后更新 2010.11.20
更新内容：
1. 修正google收录查询和反向链接查询失败的问题，原因是google更新了关键字，所以取值方法也要随之改变。
2. 修正bing收录查询和反向链接查询失败的问题，原因是bing更新了关键字，所以取值方法也要随之改变。
搜索引擎收录查询工具下载地址
搜索引擎收录查询工具.rar
文章来自: 
引用通告: 
Tags: 评论: 1 | 引用: 0 | 查看次数: -
回复
mzjljwg[2010-07-28 11:53 PM | 
]好久没来了,,顶一个~~
简单男人 于 2010-07-29 01:42 AM 回复
简单男人 于 2010-07-29 01:42 AM 回复哈哈,总算还有人记得这,其实不是你很久没来了,是我很久没开了,上个星期才重开的.
发表评论