在搜索引擎上输入的关键字的实时排名
监视所有查询和列表的最后查询和前10个
文件名:keywordranking.hta
要求:IE6
作者:让·卢克·安托万(Jean-Luc Antoine)
提交:2003年9月12日
类别:HTA
请记住:文件扩展名必须为 *.hta
将下面的代码保存为关键字。
代码如下:
<html> <head>
<Title>关键字排名,(c)Jean-Luc Antoine </title>
<hta:应用程序应用名称=“搜索引擎工具”
border =“厚” borderstyle =“正常”
字幕=“是” ContextMenu =“是”
innerborder =“ yes” maximizebutton =“ yes” minimizebutton =“ yes”
navigable =“ no” scroll =“是” scrollflat =“ no”
选择=“是” showintaskbar =“ yes” singleInstance =“ no”
sysmenu =“是”版本=“ 0.3” windowState =“ normal”>
<脚本语言= vbscript>
选项显式
'版本:
'v0.3 Queren和单词:同时排名
'v0.2new外观,选项,许多SE
'多语言系统
'v0.1first草稿,关键字排名和最后查询
'todo:
'gérersystématiquement - la fois关键字和短语
'Sur Les关键字,Permettre de Zoomer(show Mododep)sur les les短语contenant le键字pourconnaîtreleconnaîterle canding des variations
'lister en penterence les mots-clefsMonitorésavec leur的情况和permettrelemêmeZoom
'mettre en gras les关键字监视器
'温度
'afficher percentage en plus du nb d'出现
'监视器x mots-clefs et leur幻影/弗雷克斯亲戚
'Fairee Bouton de Refresh ManuelSiçaSe Bloque(location.Reload())
'GérerLesFenêtreslancéesofline et non pas inline(互力事件par show show bosomodom dialog)
'标识符nb de pagesretournéesparece recrete et indice de Consurence
'permettre de sauver lerésultat
'http://wordtracker.com/newsinput.txt
const c_maxlist = 20'###更改此此事,预定义
dim d,dw,a(),b(),f(),g(),i
redim a(c_maxlist)
redim b(c_maxlist)
对于i = 0到c_maxlist-1
a(i)= 0'nb d'出现
b(i)=“”'值
下一个
redim f(c_maxlist)
redim g(c_maxlist)
对于i = 0到c_maxlist-1
f(i)= 0'nb d'出现
g(i)=“”'值
下一个
设置d = createObject(“ scipting.dictionary”)'查询
d.comparemode = 1'vbTextCompare
设置dw = createObject(“ scripting.dictionary”)'单词
dw.comparemode = 1'vbTextCompare
sub go(se)
DIM S,X,SQ,S2,SW
选择案例SE
情况0
s = regexptest(“ pursuit/?query =。*?&”,lycosfr.document.body.innerhtml,15)
案例1
s = regexptest(“ purpuit/?query =。*?&”,lycosde.document.body.innerhtml,15)
案例2
s = regexptest(“ [^az] q =。*?&”,fireballde.document.body.innerhtml,4)