在搜索引擎上輸入的關鍵字的實時排名
監視所有查詢和列表的最後查詢和前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）