在搜索引擎上输入的关键字的实时排名
监视所有查询和列表的最后查询和前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）