Clasificación en tiempo real de palabras clave ingresadas en los motores de búsqueda
Monitorea todas las consultas y enumera las últimas consultas y las 10 mejores
Nombre del archivo: KeywordRanking.hta
Requisito: IE6
Autor: Jean-Luc Antoine
Enviado: 12/09/2003
Categoría: HTA
Recuerde: la extensión del archivo debe ser *.hta
将下面的代码保存为 Palabra clave.hta 即可。保存时注意编码 ， 推荐用 UTF8 格式。
代码如下:
<html> <cead>
<title> Ranking de palabras clave, (c) Jean-Luc Antoine </title>
<Hta: aplicación applicationName = "Herramientas del motor de búsqueda"
Borde = "grueso" borderstyle = "normal"
Subtítulos = "Sí" contextMenu = "Sí"
InnerBorDer = "YES" MaximizeButton = "Sí" MinimizeButton = "Sí"
Navegable = "no" scroll = "sí" scrollflat = "no"
Selección = "sí" showInTaskBar = "YES" SingleInStance = "No"
Sysmenu = "YES" Versión = "0.3" WindowState = "Normal">
<Script Language = VBScript>
Opción explícita
'Versiones:
'V0.3querías y palabras: clasificación simultáneamente
'V0.2 NEW MIRA, OPCIONES, MUCHAS SE
'Sistema multilingüe
'V0.1First Borrador, rango de palabras clave y últimas consultas
'Hacer :
'Gérer SystématiClement à la Fois Palabra clave et frase
'Sur Les Palabra clave, Permettre de Zoomer (ShowModeless) Sur Les Frases Contenante LE Palabra clave Pour Connaître LE Ranking Des Variaciones
'Lister en Permanencia les Mots-Clefs Monitorés Avec Leur Ocurrencia et Permettre le Même Zoom
'Monitorés de palabras clave Mettre en Gras Les
'Temps de mesura
'Afficher Pourcentage en Plus du nb d'Ecentucolias
'MONITOR X MOTS-CLEFS ET LEUR APARICIÓN/Fréquence relativo
'Faire Bouton de Refresh Manuel Si ça se Bloque (ubicación.reload ())
'Gérer Les Fenêtres Lancées fuera de línea et no Pas Inline (Intercepter Events Par Showmode Diálogo sin tendencias)
'Identificador NB de Pages Returnées par requerido et indice de concurrencia
'Permettre de Sauver Le Résultat
'http://wordtracker.com/newsinput.txt
Const c_maxlist = 20 '### Cambiar esto, predefinido para el Top 20
Dim d, dw, a (), b (), f (), g (), i
Redim A (C_MaxList)
Redim B (C_MaxList)
Para i = 0 a c_maxlist-1
a (i) = 0'nb d'Eccentivaciones
B (i) = "" 'Valor
Próximo
Redim f (c_maxlist)
Redim g (c_maxlist)
Para i = 0 a c_maxlist-1
f (i) = 0'nb d'Eccentivaciones
G (i) = "" 'Valor
Próximo
Establecer d = createObject ("scripting.dictionary") 'consultas
d.comparemode = 1'vbTextCompare
Establecer dw = createObject ("scripting.dictionary") 'palabras
dw.comparemode = 1'vbTextCompare
Sub Go (SE)
Dim S, X, Sq, S2, SW
Seleccionar caso SE
Caso 0
S = RegexPtest ("Persecito/?
Caso 1
S = RegexPTest ("Persecito/?
Caso 2
S = RegexPtest ("[^AZ] Q =.*? &", Fireballde.document.body.innerhtml, 4)