ترتيب في الوقت الحقيقي للكلمات الرئيسية التي تم إدخالها على محركات البحث
يراقب جميع الاستفسارات والقوائم الأخيرة وأعلى 10
اسم الملف: Keywordranking.hta
الشرط: IE6
المؤلف: جان لوك أنطوان
المقدمة: 09/12/2003
الفئة: HTA
تذكر: تمديد الملف يجب أن يكون *.hta
将下面的代码保存为 الكلمة الرئيسية. hta 即可。保存时注意编码 ， 推荐用 utf8 格式。
代码如下:
<html> <head>
<title> ترتيب الكلمات الرئيسية ، (ج) جان لوك أنطوان </title>
<hta: Application ApplicationName = "أدوات محرك البحث"
الحدود = "سميكة" BordersTyle = "Normal"
Caption = "Yes" ContextMenu = "Yes"
innerborder = "yes" maximizedbutton = "yes" mailurebutton = "yes"
savigable = "no" scroll = "yes" scrollflat = "no"
Selection = "Yes" ShowIntaskBar = "Yes" SingleInstance = "NO"
sysmenu = "yes" version = "0.3" windowState = "Normal">
<لغة البرنامج النصي = vbscript>
الخيار صريح
الإصدارات:
'v0.3queries والكلمات: الترتيب في وقت واحد
v0.2new نظرة ، والخيارات ، والكثير من SE
نظام متعدد اللغات
v0.1first مسودة ، رتبة الكلمات الرئيسية والاستعلامات الأخيرة
'تودو:
'gérer systématiquement à la fois الكلمة الرئيسية et
'sur les keyword ، permettre de zoomer (showmodeless) sur les phrases contenant le keyword pour
'lister en enmerence les mots-clefs monitorés avec leur تحدث et permettre le même Zoom
'mettre en gras les keywords monitorss
'Temps de mesure
'Afficher pourcentage en plus du nb d'ockurences
'Monitorer x mots-clefs et leur apperition/fréquence
'Faire Bouton de Refresh Manuel Si ça se bloque (location.reload ())
'Gérer Les Fenêtres Lancées Offline et non pas inline (مربع حوار أحداث paronsists par
"المعرف nb de pages retournées paryete et indice de concurrence
'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 to c_maxlist-1
a (i) = 0'nb d' -accurences
B (i) = "" القيمة
التالي
redim f (c_maxlist)
redim g (c_maxlist)
لـ i = 0 to c_maxlist-1
f (i) = 0'nb d'envers
g (i) = "" القيمة
التالي
set d = createObject ("scripting.dictionary") Queries
d.compareMode = 1'vBtextCompare
SET DW = createObject ("scripting.dictionary") "الكلمات
dw.comparemode = 1'vBtextCompare
Sub Go (SE)
DIM S ، X ، SQ ، S2 ، SW
حدد CASE SE
الحالة 0
s = regexptest ("pursuit/؟ query =.*؟ &" ، lycosfr.document.body.innerhtml ، 15)
الحالة 1
s = regexptest ("pursuit/؟ query =.*؟ &" ، lycosde.document.body.innerhtml ، 15)
الحالة 2
s = regexptest ("[^az] q =.*؟ &" ، fireballde.document.body.innerhtml ، 4)