Classement en temps réel des mots clés entrés sur les moteurs de recherche
Surveille toutes les requêtes et répertorie les dernières requêtes et le top 10
Nom du fichier: KeywordRanking.hta
Exigence: IE6
Auteur: Jean-Luc Antoine
Soumis: 09/12/2003
Catégorie: HTA
N'oubliez pas: l'extension de fichier doit être * .hta
将下面的代码保存为 mot-clé.hta 即可。保存时注意编码 ， 推荐用 utf8 格式。
代码如下:
<html> <adref>
<Title> Classement des mots clés, (c) Jean-Luc Antoine </Title>
<Hta: application applicationName = "Search Engine Tools"
Border = "épais" borderstyle = "normal"
Légende = "oui" contextMenu = "Oui"
Innerborder = "oui" maximiserbutton = "oui" minimiserbutton = "Oui"
Navigable = "non" scroll = "oui" scrollflat = "non"
Sélection = "oui" showintaskbar = "oui" singleinstance = "non"
Sysmenu = "oui" version = "0,3" windowState = "normal">
<Script Language = VBScript>
Option explicite
'Versions:
'V0.3Queries et mots: classement simultanément
'V0.2new look, options, beaucoup de SE
'Système multilingue
'V0.1 premier projet, rang des mots clés et dernières requêtes
'Faire :
`` Gérer Systématication à la FOIS MOT-MOTS ET PHRASE
`` Sur les mots clés, permettre de zoomer (showmodless) Sur les phrases contenant le mot-clé de la clés pour connitre le classement des variations des variations
'Lister en permanence les Mots-Clefs Monitories AVEC LEUR CONSEMPE ET PERMETTRE LE MÊME ZOOM
'Mettre en gras les Mots-clés Monitoires
'Temps de Mesure
'Afficher pourcentage en plus du nb des occupations
«Moniler x MOTS-Clefs et Leur Apparition / Fréquence relative
'Faire Bouton de Refresh Manuel Si ça se bloque (emplacement.reload ())
'Gérer Les Fenêtres Lancées Offline et non pas en ligne (Intercepter Events Par ShowModsless Dialogise)
'Identifier NB de Pages Retournees par Requete et INDICE DE COMMURENCE
'Permettre de Sauver le Résultat
'http://wordtracker.com/newsinput.txt
Const c_maxlist = 20 '### Modifier ceci, prédéfini pour le top 20
Dim d, dw, a (), b (), f (), g (), i
Redim A (c_maxlist)
Redim B (c_maxlist)
Pour i = 0 à c_maxlist-1
a (i) = 0'nb d'occasion
b (i) = "" 'Valeur
Suivant
Redim f (c_maxlist)
Redim G (c_maxlist)
Pour i = 0 à c_maxlist-1
f (i) = 0'nb d'occasion
g (i) = "" 'Valeur
Suivant
Set d = createObject ("scripting.dictionary") 'requêtes
d ..comparemode = 1'vbtextCompare
Set dw = createObject ("scripting.dictionary") 'mots
dw.comparemode = 1'vbtextCompare
sub Go (SE)
Dim S, X, Sq, S2, SW
Sélectionnez Case SE
Cas 0
S = regexptest ("Pursuit /? Query =. *? &", lycosfr.document.body.innerhtml, 15)
Cas 1
S = regexptest ("Pursuit /? Query =. *? &", lycosde.document.body.innerhtml, 15)
Cas 2
s = regexptest ("[^ az] q =. *? &", fireballde.document.body.innerhtml, 4)