Classificação em tempo real das palavras-chave inseridas nos mecanismos de pesquisa
Monitora todas as consultas e listas das últimas consultas e 10 melhores
Nome do arquivo: keywordranking.hta
Requisito: IE6
Autor: Jean-Luc Antoine
Enviado: 09/12/2003
Categoria: HTA
Lembre -se: a extensão do arquivo deve ser *.hta
将下面的代码保存为 Keyword.hta 即可。保存时注意编码 ， 推荐用 utf8 格式。
代码如下:
<html> <head>
<title> classificação de palavras-chave, (c) Jean-Luc Antoine </ititle>
<HTA: Application ApplicationName = "Pesquise Ferramentas do mecanismo"
Border = "grossa" BordersTyle = "Normal"
Legenda = "sim" contextmenu = "sim"
INNERBORDER = "Sim" MaximizeButton = "Sim" MinimizeButton = "Sim"
Navegável = "não" scroll = "sim" scrollfllat = "não"
Selection = "Sim" ShowIssaskbar = "Sim" SingleInstance = "Não"
Sysmenu = "sim" versão = "0.3" windowstate = "normal">
<idioma de script = vBScript>
Opção explícita
'Versões:
'V0.3Queries e palavras: Ranking simultaneamente
'V0.2New Look, Options, muitos SE
'Sistema multilíngue
'V0.1 Primeiro rascunho, classificação de palavras -chave e últimas consultas
'Pendência :
'Gérer Systématiquemente
'Sur les -chave, PERMETTRE DE ZOOMER (SHOWMODEMODE)
'Lister en Permanência Les Mots-Clefs Monitoros Avec leur ocorrência et PERMETTRE LE MÉME ZOOM
'Mettre en gras les Palavras -chave Monitoras
'Temps de Mesure
'Aficher Pourcentage en Plus du Nb d'Ectores
'Monitorer x Mots-Clefs et Leur Apparition/Fréquence parente
'Faire Bouton de Refresh Manuel Si ÇA Se Bloque (Location.Reload ())
'Gérer Les Fenêtres Lancées Offline e Non PAS Inline (intercepter Events PAR Mostraodlessless Caixa de diálogo)
'identificador nb de páginas retournees por requete et indice de concorrência
'PERMETTRE DE SAUVER LE RESULTAT
'http://wordtracker.com/newsinput.txt
Const c_maxList = 20 '### Altere isso, predefinido para o 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'edences
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'edences
g (i) = "" 'valor
Próximo
Set d = createObject ("script.dictionary") 'consultas
d.comparemode = 1'VBTextCompare
Set dw = createObject ("script.dictionary") 'palavras
dw.comparemode = 1'vbTextCompare
sub Go (SE)
Dim s, x, sq, s2, sw
Selecione o caso SE
Caso 0
s = regexptest ("perseguição/? Query =.*? &", lycosfr.document.body.innerhtml, 15)
Caso 1
s = regexptest ("perseguição/? Query =.*? &", lycosde.document.body.innerhtml, 15)
Caso 2
s = regexptest ("[^az] q =.*? &", Fireballde.document.body.innerhtml, 4)