Echtzeit-Ranking von Keywords, die in Suchmaschinen eingegeben wurden
Überwacht alle Abfragen und Listen die letzten Abfragen und die Top 10
Dateiname: keywordRanking.hta
Anforderung: IE6
Autor: Jean-Luc Antoine
Eingereicht: 09.12.2003
Kategorie: HTA
Denken Sie daran: Die Dateierweiterung muss *.hta sein
将下面的代码保存为 keyword.hta 即可。保存时注意编码 ， 推荐用 utf8 格式。
代码如下::
<html> <kopf>
<title> Keyword-Ranking, (c) Jean-Luc Antoine </title>
<Hta: application applicationName = "Suchmaschinenwerkzeuge"
Border = "dick" BorderSyle = "Normal"
Caption = "yes" contextMenu = "Ja"
Innerborder = "Ja" maximizeButton = "Ja" minimizeButton = "Ja"
Navigable = "nein" scroll = "yes" scrollflat = "nein"
Selection = "yes" showIntaskbar = "yes" SingleInInstance = "Nein"
Sysmenu = "yes" Version = "0.3" windowState = "normal">
<script Language = vbScript>
Option explizit
'Versionen:
'V0.3Queries und Wörter: gleichzeitig rankieren
'v0.2New Look, Optionen, viele SE
'Mehrsprachiges System
'V0.1First Draft, Keyword -Rang und letzte Abfragen
'Todo:
'Gérer Systématiquement à la fois Keyword et Phrase
'Sur les keyword, permettre de zoomer (showmodeless) sur les phrasen
'List en Permanence les mots-clefs monitorés avec leur auftretend und permettre le même Zoom
'Mettre en gras les Keywords Monitorés
'Temps de Mesure
'Afficher Pourcentage en plus du nb d'Ecascies
'Monitorer X Mots-Clefs et Leur-Erscheinung/Fréquence Relative
'Faire Bouton de Refresh Manuel Si ça se Bloque (Ort.Reload ())
'Gérer Les Fenêtres Lancées Offline et Non Pas Inline (IntercePter Events Par Showmodeless Dialog)
'Identifier NB de Pages retournées par Requete et Indice de Concurrence
'Permettre de Sauver Le Résultat
'http://wordtracker.com/newsinput.txt
Const c_maxlist = 20 '### ändere diese, vordefiniert für Top 20
Dim D, dw, a (), b (), f (), g (), i
Redim a (c_maxlist)
Redim b (c_maxlist)
Für i = 0 bis c_maxlist-1
a (i) = 0'nb d'cetscencen
B (i) = "" 'Wert
Nächste
Redim f (c_maxlist)
Redim g (c_maxlist)
Für i = 0 bis c_maxlist-1
f (i) = 0'nb d'conszences
g (i) = "'' Wert
Nächste
SET D = CREATEObject ("scripting.Dictionary") 'Abfragen
d.comParemode = 1'vbTextCompare
Setzen Sie dw = createObject ("scripting.Dictionary") 'Wörter
dw.comParemode = 1'vbTextCompare
Sub Go (SE)
Dim S, X, Sq, S2, SW
Wählen Sie Fall SE
Fall 0
s = regexptest ("Verfolgung/? query =.*? &", lycosfr.document.body.innerhtml, 15)
Fall 1
s = regexptest ("Verfolgung/? query =.*? &", lycosde.document.body.innerhtml, 15)
Fall 2
s = regexptest ("[^az] q =.*?