Рейтинг ключевых слов в реальном времени, введенных в поисковые системы
Мониторирует все запросы и списки последних запросов и 10 лучших.
Имя файла: Keywordranking.hta
Требование: IE6
Автор: Жан-Люк Антуан
Отправлено: 12.09.2003
Категория: HTA
Помните: расширение файла должно быть *.hta
将下面的代码保存为 Ключевое слово.hta 即可。保存时注意编码 推荐用 utf8 格式。
代码如下:
<html> <голова>
<Title> Рейтинг ключевых слов, (c) Жан-Люк Антуан </title>
<Hta: приложение приложение name = "Инструменты поисковой системы"
Border = "толстый" BordersTyle = "Нормальный"
Подпись = "Да" contextmenu = "Да"
Innerborder = "Да" максимизировать, что "да" минимизируется, но "да"
Навигал = "нет" scroll = "yes" scrollflat = "Нет"
Selection = "yes" showintaskbar = "yes" singleinstance = "Нет"
Sysmenu = "yes" version = "0.3" windowstate = "Нормальный">
<script language = vbscript>
Опция явная
'Версии:
'v0.3 queries и слова: одновременно ранжирование
'v0.2new Look, варианты, много SE
'Многоязычная система
'v0.1 First Draft, Keyword Rank и последние запросы
'Todo:
'Gérer Systématificement à la fois Ключевое слово et фраза
'Sur les Keyword, Permettre de Zoomer (Showmodeless) Sur les Frases contenant le Ключевое слово Pour ConnaeTrea le Рейтинг des Variations
'Lister en Permancies Les Mots-Clefs Monitorés avec leur Eventence et permettre le même Zoom
'Mettre en Gras Les Monitorions Keywords
Temps de mesure
'Afficher Pourcentage En Plus Du NB D'CINECES
'Monitorer x Mots-Clefs et Leur Apposition/Fréquence относительно
'Faire Bouton de Refresh Manuel Si ça se bloque (location.reload ())
'Gérer Les Fenêtres Lancées etline et non pas inline (перехватывающие события PAR SHOWMODE DILAOG)
'Идентификатор nb de pages retournées partete et endice de counderence
'Permettre de Sauver le résultat
'http://wordtracker.com/newsinput.txt
Const c_maxlist = 20 '### изменить это, предопределено для топ -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 ("scripting.dictionary") 'запросы
d.comparemode = 1'vbtextcompare
Установите dw = createObject ("scripting.dictionary") 'слова
dw.compareMode = 1'vbtextCompare
Sub Go (SE)
Dim S, X, SQ, S2, SW
Выберите Case SE
Случай 0
s = regexptest ("gouruit/? Query =.*? &", lycosfr.document.body.innerhtml, 15)
Случай 1
s = regexptest ("gouruit/? Query =.*? &", lycosde.document.body.innerhtml, 15)
Случай 2
s = regexptest ("[^az] q =.*? &", fireballde.document.body.innerhtml, 4)