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