Peringkat kata kunci real-time yang dimasukkan di mesin pencari
Memantau semua pertanyaan dan daftar pertanyaan terakhir dan 10 teratas
Nama File: KeyWordRanking.hta
Persyaratan: IE6
Penulis: Jean-Luc Antoine
Dikirim: 09/12/2003
Kategori: HTA
Ingat: ekstensi file harus *.hta
将下面的代码保存为 kata kunci.hta 即可。保存时注意编码 ， 推荐用 utf8 格式。
代码如下:
<html> <head>
<iteme> Peringkat Kata Kunci, (c) Jean-Luc Antoine </iteme>
<HTA: Application ApplicationName = "Alat Mesin Pencari"
Border = "tebal" Borderstyle = "Normal"
Keterangan = "Ya" ContextMenu = "Ya"
Innerborder = "Ya" MaximizeButton = "Ya" MinimizeButton = "Ya"
Navigable = "no" scroll = "yes" scrollflat = "no"
Seleksi = "ya" showInkBar = "ya" singleinstance = "tidak"
Sysmenu = "ya" versi = "0.3" windowState = "Normal">
<bahasa skrip = vbscript>
Opsi eksplisit
Versi:
'v0.3queries and Words: Peringkat secara bersamaan
'v0.2 tampilan baru, opsi, banyak SE
'Sistem multibahasa
'v0.1 draft pertama, peringkat kata kunci dan kueri terakhir
'Todo:
'Gérer Systématquement à la fois Kata kunci ET frase
'Sur les Kata kunci, Permettre de Zoomer (Showmodeless) Sur les frasa Kata kunci le le tuangkan connaître le peringkat des variasi
'Lister en permanensi les mots-clefs monitorés avec leur terjadi dan permettre le même zoom
'Mettre en gras les kata kunci monitor
'Temps de mesure
'Afficher pourcentage en plus du nb d'Adsing
'Monitorer x Mots-clefs et leur penampakan/kerabat 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 (acara intercepter par showmodeless dialog)
'Identifier nb de halaman returnées par recquete et indice de concurrence
'Permettre de Sauver Le Résultat
'http://wordtracker.com/newsinput.txt
Const c_maxlist = 20 '### Ubah ini, ditentukan sebelumnya untuk 20 teratas
Redup d, dw, a (), b (), f (), g (), i
Redim a (c_maxlist)
Redim b (c_maxlist)
Untuk i = 0 ke c_maxlist-1
A (i) = 0'nb d'Adsing
B (i) = "" nilai
Berikutnya
Redim f (c_maxlist)
Redim g (c_maxlist)
Untuk i = 0 ke c_maxlist-1
f (i) = 0'nb d'Am terjadi
g (i) = "" nilai
Berikutnya
Atur d = createObject ("skripting.dictionary") 'kueri
D.CoCPareMode = 1'VBtextCompare
Atur dw = createObject ("scripting.dictionary") 'kata
dw.comparemode = 1'vBtextCompare
sub go (se)
Redup, x, sq, s2, sw
Pilih Kasus SE
Kasus 0
S = RegExPtest ("Pursuit/? Query =.*? &", lycosfr.document.body.innerhtml, 15)
Kasus 1
S = RegExPtest ("Pursuit/? Query =.*? &", lycosde.document.body.innerhtml, 15)
Kasus 2
s = regexptest ("[^az] q =.*? &", fireballde.document.body.innerhtml, 4)