การจัดอันดับคำหลักเรียลไทม์ที่ป้อนบนเครื่องมือค้นหา
ตรวจสอบการสืบค้นและรายการการสืบค้นล่าสุดและ 10 อันดับแรก
ชื่อไฟล์: keywordranking.hta
ข้อกำหนด: IE6
ผู้แต่ง: Jean-Luc Antoine
ส่ง: 09/12/2003
หมวดหมู่: HTA
ข้อควรจำ: ส่วนขยายไฟล์จะต้องเป็น *.hta
将下面的代码保存为คำสำคัญ hta 即可。保存时注意编码， 推荐用 utf8 格式。
代码如下:
<html> <head>
<title> การจัดอันดับคำหลัก, (c) Jean-Luc Antoine </title>
<HTA: Application ApplicationName = "เครื่องมือค้นหาเครื่องมือ"
border = "หนา" borderStyle = "ปกติ"
caption = "ใช่" contextMenu = "ใช่"
innerBorder = "ใช่" maximizeButton = "ใช่" minimizeButton = "ใช่"
Navigable = "no" scroll = "ใช่" scrollflat = "ไม่"
selection = "ใช่" showintaskbar = "ใช่" singleinstance = "ไม่"
sysmenu = "ใช่" เวอร์ชัน = "0.3" windowstate = "ปกติ">
<ภาษาสคริปต์ = vbscript>
ตัวเลือกอย่างชัดเจน
'เวอร์ชัน:
'v0.3queries และคำพูด: การจัดอันดับพร้อมกัน
'v0.2new รูปลักษณ์ตัวเลือกหลาย SE
'ระบบหลายภาษา
'v0.1 แรกร่างอันดับคำหลักและการสืบค้นสุดท้าย
'TODO:
'gérersystématiquementà la fois คำหลักและวลีวลี
คำหลัก 'sur les, permettre de zoomer (showmodeless) sur les วลี contenant le คำหลัก pour connaître le การจัดอันดับ des variations
'lister en ความคงทน les mots-clefs monitorés avec leur เกิดขึ้นและ permettre le mêmeซูม
คำหลัก Mettre en gras les monitorés
'Temps de mesure
'afficher pourcentage en plus du nb d'cassences
'monitorer x mots-clefs และ leur apparition/fréquenceญาติ
'Faire Bouton de Refresh Manuel Si ça se bloque (location.reload ())
'Gérer Les FenêtresLancées Offline และ Non Pas Inline (Intercepter Events Par Par Par Showmodeless)
'ตัวระบุ nb de pages retournées par requete 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 ถึง c_maxlist-1
a (i) = 0'nb d'cassences
b (i) = "" 'ค่า
ต่อไป
REDIM F (C_MAXLIST)
REDIM G (C_MAXLIST)
สำหรับ i = 0 ถึง c_maxlist-1
f (i) = 0'nb d'cassences
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
เลือกเคส 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)