本帖最後由 印個歷史 於 2013-12-21 23:17 編輯
( C' Z( }4 t, _1 _2 c& M7 c Z0 N9 j5 W6 h0 x2 Z8 q
下邊這個編碼靠譜嗎? 能實時檢查關鍵詞排名?! n9 k: h- r! _, |8 C7 ~; f
8 ^, X& d( D( @) l2 C; m
文件名改成:*.HTA, 代碼裡的東西沒有需要改動的嗎?
4 p! ?6 G! Z( u$ w- G* }7 h& D1 M4 |# k2 R
下面的編碼來自:http://www.interclasse.com/scripts/keywordranking.php
* j2 J; V- Z6 J. H( N& R/ y5 a3 U! Q5 ?" u* h
============
9 _. w0 H4 O" Y <html><head>
) c& R9 Z# K* H<title>Keyword Ranking, (c) Jean-Luc Antoine</title>- z1 u* Z" Q5 i3 V: Y; Q9 ]- K$ L& l
<HTA:APPLICATION APPLICATIONNAME="Search Engine Tools"9 A: l4 M; F6 a( N) ~7 ^
BORDER="thick" BORDERSTYLE="normal"
# [" Q+ P% [4 A CAPTION="yes" CONTEXTMENU="yes"* c& a3 V3 K" {
INNERBORDER="yes" MAXIMIZEBUTTON="yes" MINIMIZEBUTTON="yes"0 v' b$ w" G; y' l0 q
NAVIGABLE="no" SCROLL="yes" SCROLLFLAT="no"
2 K( C, Y7 z0 R8 I& e5 k SELECTION="yes" SHOWINTASKBAR="yes" SINGLEINSTANCE="no"
, u1 a! J1 e# Y: m0 ^8 g J SYSMENU="yes" VERSION="0.3" WINDOWSTATE="normal">, v. y% G' ?, I' i
<script language=vbscript>
4 U& q( ^" x9 ~1 f* |) c% OOption Explicit0 P& T' U/ k8 H4 @2 Q6 s
' Versions :& A$ K. K- q' M3 M6 A; f( N- i
' v0.3 Queries and words : simultaneously ranking
8 l7 p0 @% X3 _5 R# Y% X' v0.2 New look, options, many SE6 W, p6 d+ w. I7 S) s7 P9 Z9 L) ] N
' Multilingual system& v% L' w0 n# t9 F1 u7 U2 l
' v0.1 First draft, keyword rank and last queries4 @7 x4 [& |7 o6 i5 v( N
'Todo :
: Y( `8 B3 Q8 s5 O' Gerer systematiquement a la fois Keyword et Phrase& j6 n& o, l0 A: P3 k4 d
' Sur les keyword, permettre de zoomer (showmodeless) sur les phrases contenant le keyword pour connaitre le ranking des variations4 ?' k' D" A' ?/ S+ S$ N! I
' Lister en permanence les mots-clefs monitores avec leur occurence et permettre le meme zoom
- c9 w% ]% ^& j0 v* o* I' Mettre en gras les keywords monitores0 `# w: z: a" w' g, H2 G
' Temps de mesure( v9 g* ^5 x. {. Y3 v0 u* T
' Afficher pourcentage en plus du nb d'occurences5 V- q- N. B: D2 G4 d
' Monitorer X mots-clefs et leur apparition/frequence relative
) L( r5 }; L- U6 w+ L8 G' Faire bouton de refresh manuel si ca se bloque (location.reload()); G/ R, u2 v. u7 V5 k
' gerer les fenetres lancees offline et non pas inline (intercepter events par showmodeless dialog)
! Y* f4 L6 w' f- g% J' identifier nb de pages retournees par requete et indice de concurrence
: `9 {8 c6 }: [/ k- S" Q/ I, K' Permettre de sauver le resultat- ]% x8 r( b: n9 G5 B- w% v {
' http://wordtracker.com/newsinput.txt" m$ o! K/ ~! Y$ B9 ^
$ U r4 }% C+ T! u# s Z, O; QConst C_MaxList=20 '### Change this, predefined for TOP 20
2 O! E) I& c: C; X) fDim d,dw,a(),b(),f(),g(),i
+ W( G0 i# b; @" c. s3 MRedim a(C_MaxList)% u$ r( [% ~! ~2 M6 R
Redim b(C_MaxList)
1 r% R! b8 ?( p; S: G8 FFor i=0 to C_MaxList-1; B- I7 h: K: Z4 c
a(i)=0 'Nb d'occurences: q! W- K: ^2 J) l# u3 l. m
b(i)="" 'Value
' {0 y+ U5 ~3 @Next* l- V4 Y' a; Q
Redim f(C_MaxList)4 f1 u) r" h5 h6 k) o
Redim g(C_MaxList)
- Q- B5 V% N+ o! J0 |8 L3 mFor i=0 to C_MaxList-1. C3 t- ~# R6 T( n
f(i)=0 'Nb d'occurences
6 w \" Z/ n$ A* y' u/ k g(i)="" 'Value
6 A6 ^% L- u9 @ ~" gNext4 h% ]7 k' O: e" {; s) Y/ G
Set d=CreateObject("Scripting.Dictionary") 'queries
6 V* R& @& S" p0 N7 kd.CompareMode=1 'vbTextCompare9 [* B3 [( V1 V7 H) y. n
Set dw=CreateObject("Scripting.Dictionary") 'words6 F; G$ [8 d9 ?' ^1 w- S3 m4 W, A5 U
dw.CompareMode=1 'vbTextCompare+ F/ g, L( |6 b
0 ~+ z' X! u/ r& t
sub go(SE)# C! j) |$ i: J6 O- q
Dim s,x,sq,s2,sw
! d& q7 ~* k8 t" s9 B7 k Select Case SE. M e# g$ j( \7 k5 d% @
Case 0
; s' Q: j5 ^, b! l s=RegExpTest("pursuit\?query=.*?&", lycosfr.document.body.innerHTML,15)2 c! c( U4 K; Q* q' b5 D. N
Case 1
8 r. l; ~) E" w* Q4 T% f s=RegExpTest("pursuit\?query=.*?&", lycosde.document.body.innerHTML,15)3 x/ O: s4 M) v0 g/ D
Case 2' m( o% n) x; T3 c5 Y" |- J3 t9 ]4 d
s=RegExpTest("[^a-z]q=.*?&", fireballde.document.body.innerHTML,4)
3 H: s% j+ E6 M5 F3 K9 X Case 3
/ E2 b; O7 t- f. @, j5 _! b s=RegExpTest("\?qkw=.*?""", metacrawler.document.body.innerHTML,6)' Q* Z/ u4 K6 {6 |; x
Case 4
* R5 L7 q" @) |0 G) n# C s=RegExpTest("return.cool\?query=.*?""", kanoodle.document.body.innerHTML,19)
! a+ Q; {! g" O2 `2 {& z6 ^ Case 5) B2 f d% k/ g3 l) {2 {
s=RegExpTest("/w.galaxy.com/b/q\?k.*?""", galaxy.document.body.innerHTML,21)
; U5 D# m# U; s) v Case Else
- y9 y; f- ^& F& c8 t5 w msgbox "Unknown S.E. : " & SE% I4 |( h" v& L; y' y: I
End Select
- Q5 U' L* A7 f8 q. W T s="<pre>" & s & "</pre>"; N2 W9 @5 R! g1 G
: h/ I' j3 f# C sq=""4 `6 ~ ~ K* ]6 n: \
For x=0 to C_MaxList-15 x8 W) j8 l# a# C! @( a
If a(x)>0 Then sq="<tr style='background-color:#eeeeee;'><td>" & a(x) & "</td><td>" & b(x) & "</td></tr>" & sq3 H4 L; Q' |0 |0 c
Next
. M& E# A) i- u, A8 s9 u3 {9 p+ V+ n3 o sq="<table style='border:1px solid #222222;'><tr style='background-color:#dddddd;'><th>Total</th><th>" & Disp(5) & "</th></tr>" & sq & "</table>"
2 S" U+ a. `2 H1 }) d: b! ?- V! q; l7 |
sw=""( O3 z& i! l6 A x: L- X# f0 B2 _& u
For x=0 to C_MaxList-19 c$ v% c: Z% Y* [- I0 N
If f(x)>0 Then sw="<tr style='background-color:#eeeeee;'><td>" & f(x) & "</td><td>" & g(x) & "</td></tr>" & sw& g- y8 q2 P" B, Q2 M/ n
Next0 v! }! I4 M3 B4 q! l( a
sw="<table style='border:1px solid #222222;'><tr style='background-color:#dddddd;'><th>Total</th><th>" & Disp(9) & "</th></tr>" & sw & "</table>"8 j3 k \1 {& B0 ?2 k
& ^4 u: }% f% q9 t# R r
s2="<b>" & Disp(7) & " :</b> " & d.Count & "<br>"4 D0 Y) `3 H- m+ k
s2=s2 & "<table><tr><td valign=top>") f' }2 K5 @5 t( r' t+ H+ p7 d' x
s2=s2 & "<b>Top " & C_MaxList & " - " & Disp(5) & "</b><br>" & sq & "</td><td valign=top>"; c0 n) F4 ^# t
s2=s2 & "<b>Top " & C_MaxList & " - " & Disp(9) & "</b><br>" & sw & "</td><td valign=top>"
5 ]& g. w5 I, {# ? s2=s2 & " <b>" & Disp(6) & " :</b>" & s
$ `. {$ M# n7 B: h3 T s2=s2 & "</td></tr></table>"! O# R0 w9 m, O i) K( C
MaListe.InnerHTML=s2 _) w; B$ } S% I$ ~' h( l
End Sub9 O$ P. g' w& S- |6 Y; M
% V7 c# [" u8 VFunction RegExpTest(patrn, strng, Pos)
0 A' y- G5 I* a Dim RetStr,regEx, regExw, Match,Matchw,Matches,Matchesw,Matchesws,k,i,j,x,s,w! q2 A7 F6 `3 {' A8 i3 @1 p
Set regEx=New RegExp
; W- S0 {: z1 [4 |$ F Set regExw=New RegExp
! M" g$ \+ E' ^( I, c f5 a1 C regEx.Pattern=patrn
9 ]) c, l2 U! f6 ]3 B6 ~0 N regExw.Pattern="\w+"% b9 e7 Z. Z7 d. P; ?) L
regEx.IgnoreCase=True ' Set case insensitivity.
e3 W; k+ P. B0 j regExw.IgnoreCase=True. x' D5 N* {0 O7 V
regEx.Global=True ' Set global applicability.
! q: e( ^) ~8 r regExw.Global=True3 P+ k. \6 E( [% f* D* q6 M' Z( K
Set Matches=regEx.Execute(strng) ' Execute search.
' i2 a, d( g; q7 R1 d RetStr=""/ b# a6 K! h9 S. v+ ^2 U
For Each Match in Matches4 u+ R C# n, r0 v
s=Mid(Match.Value,Pos)
5 u0 E$ ? s/ o s=Left(s,Len(s)-1)
, n5 y* C# D0 ^& \9 p( @" `, r s=Replace(s,"+"," ")6 T1 y9 D- w0 j i
s=Replace(s,"%20"," ")
7 D7 f9 \0 g C6 Q. I4 ^$ C s=trim(s)5 E. z& B- k! G3 n2 I$ @
If s<>"" Then) ?9 l& t4 E# | I
s=Replace(s,"%21","!"):s=Replace(s,"%22",chr(34))! z9 c. x5 A; A9 m7 A) p
s=Replace(s,"%23","#"): s=Replace(s,"%25","%")
+ }2 V' n1 o2 W/ \0 L% r* S s=Replace(s,"%26","&"):s=Replace(s,"%27","'")$ w$ {/ k/ K, `& z5 q9 W7 |$ X
s=Replace(s,"%28","("):s=Replace(s,"%29",")"). \- F1 ~" a/ a3 b
s=Replace(s,"%2A","*"):s=Replace(s,"%2B","+")6 ~/ y" z0 x: v+ `% G
s=Replace(s,"%2C",","):s=Replace(s,"%2F","/")
! U+ P! V0 j$ C( v% ] Z( N s=Replace(s,"%3A",":")
" r0 A" _" [3 W+ J4 q5 N- z& W s=Replace(s,"%3D","=")7 ~9 P* G% m- i$ t
s=Replace(s,"%3F","?")' h0 L" R% ^ r
s=Replace(s,"%40","@"):s=Replace(s,"%B4","′")
/ m6 {+ | Y5 U e5 \. e& D2 z s=Replace(s,"%C4","A"):s=Replace(s,"%D6","O")
; i; [1 l! G. m9 X% H s=Replace(s,"%DC","U"):s=Replace(s,"%DF","s")
; @( F6 U% T, c1 Q# `3 e' I" [4 [; \ s=Replace(s,"%E0","a"):s=Replace(s,"%E2","a")% p8 o; \; x, b1 Y5 Y8 S4 F0 u; j
s=Replace(s,"%E4","a"):s=Replace(s,"%E7","c")& Z6 G; Z5 P) {
s=Replace(s,"%E8","e"):s=Replace(s,"%E9","e")
% G& Z/ r6 G% X( y4 |# } s=Replace(s,"%EA","e"):s=Replace(s,"%EB","e")$ ~# t4 I. {9 M0 d p/ v
s=Replace(s,"%F6","o")
* s1 s4 }: T6 h% ]( D$ m7 @9 | s=Replace(s,"%F9","u"):s=Replace(s,"%FC","u")
# e' q; l3 n$ y, l' e% C. } s=Replace(s,"<","<"):s=Replace(s,">",">")' [4 w6 t4 s" _0 ^
If d.Exists(s) Then, L: z& D, k8 ?- G ^9 L7 f
k=d.Item(s)+1% x5 ~0 B* r! H; p+ m% T8 j m3 e! X
d.Item(s)=k
7 w5 J9 a% M3 x( p- J i=-1 'If more than the first value, insert it
2 A* h9 M) F e& L' m9 X" ?; N do while (a(i+1)<k) and (i<C_MaxList-1), E7 [6 r* O0 N/ @6 E: h
i=i+1
& O& u& q' ]' K$ ^8 V- |/ H! x/ C loop5 K2 F" H4 Y$ h. W
if i>=0 Then 'i=where to be inserted) }4 I# h" T6 q/ }6 ]
x=0# x' H- E3 r; a. B) T% H+ ]
For j=0 to C_MaxList-14 a; D5 m! G0 @# k
If ucase(b(j))=ucase(s) Then
% d* T4 `8 g# o# J, ~% @7 I x=j
! i& K4 e1 Z( a6 v9 G. J3 v& b Exit For
6 H, I* }% }6 J. m* d% E. m: H End If* @# n$ S/ j9 L& X2 M. b
Next- V, U+ g# A6 m D6 r0 X, V
For j=x+1 to i8 ]8 H4 y) i6 O
a(j-1)=a(j)
8 `6 u6 u. J8 [$ h i5 J8 { b(j-1)=b(j)
/ @2 E: V* t1 Z6 l5 W% d Next' C; d! S/ U( w/ j; G s
a(i)=k* O/ v5 ?3 [1 A2 ~
b(i)=s
/ Z1 |; S: {* d( }$ m End If9 ~. U6 K5 N, u9 ]" V
Else4 X% [/ ? ~& A- Z4 J/ ^
d.Add s,1
% k/ W* `2 ^/ x" i% t& j End If
$ j+ w5 ^: n& a# B/ m* Q% C5 W RetStr=RetStr & d.Item(s) & "-" & s & vbCRLF
* w3 h- s* a8 h
6 ^* J0 n6 w2 ^7 I9 e- S 'Extract Words7 {9 D# W0 U6 X5 T
Set Matchesw=regExw.Execute(s)
1 @( r7 h$ t; g5 s) H% ? For Each Matchw in Matchesw
' i% s- N2 U& i2 W w=Matchw.Value' u4 T& k% Z- b' ]! w# b
If Len(w)>2 Then/ Y! \9 E$ V B
If dw.Exists(w) Then* M/ V" s1 W, n2 N0 G5 W
k=dw.Item(w)+1- t: Q$ }& M H7 ?; k( |+ }, e
dw.Item(w)=k
. S& a3 V7 N, y* i3 f2 y/ X+ U i=-1 'If more than the first value, insert it% ^; Q6 F: P# [& q
do while (f(i+1)<k) and (i<C_MaxList-1)
: H y1 [' J; N/ @* c+ I0 J0 f" a i=i+1
' \6 J$ |5 w8 F3 F loop. j$ D* O/ Z6 R0 N `; y
if i>=0 Then 'i=where to be inserted% s* ~: ?& @$ u: E3 N/ d+ D3 e
x=0
# X# J. a2 N$ T5 z- M% `# [ For j=0 to C_MaxList-1# M6 x" ?+ _0 w: O
If ucase(g(j))=ucase(w) Then, H/ b0 w1 A$ \6 B$ @0 `3 f* K
x=j# ?, E2 _- H9 {" s/ G
Exit For9 i6 s/ ~' j* d- o- s; B
End If
6 R3 M$ @0 L# g& G/ Q5 q2 F, z Next
4 z4 L# x G% W# f0 Q For j=x+1 to i
4 U- V7 t3 x2 g' |$ e, o f(j-1)=f(j)
/ u7 l- h) l) P, K% v) E g(j-1)=g(j), ~9 i8 ?. g$ X* k1 `5 z
Next* I, S: l; @2 Z4 `( e
f(i)=k
$ n% H: g5 n. W. L' n* {6 U g(i)=w
! |2 T: f$ \" V End If* G4 T: Y2 n" i; U- X# \
Else* ^0 ^6 x3 ~, V/ s, t0 W/ ^
dw.Add w,17 b! A, @+ F8 v6 z
End If
. `/ E" f, c; j% j8 x: W. m* Q& i End If
+ i9 k) o- L6 ]3 v' e' U% Z Next4 l. u0 w' ?* ~4 R5 X2 E. f
End If. @ B U# c7 N! j/ x
Next
3 [* Z0 n* u1 T RegExpTest=RetStr5 A& ~' b$ m# w% }) x+ h% u/ g
End Function/ N* T9 D K" E. E+ a
/ ?8 M: R1 c( K# v* S% C+ u. p
0 V$ E: W. V Q7 b# A5 C s9 Z1 E9 d& v1 D. S
9 ^$ |7 m# q. v' r; q/ g</script>( ?9 p! a0 N$ ?' w6 r8 U* E
<script for=window event=onload>, y2 q5 g, Q- d, B4 y, s
DoLoad
$ N5 m) W: z# t6 ]</script>' J& g& C9 c9 V6 b
<xscript for=window event=onbeforeunload>
, V, q0 m+ D, }& a' `7 _ 'DoSave
5 M! E. g) ` r# u7 H4 `& r0 I</xscript># q6 |, k9 V6 O u4 d
<script>
1 D0 g+ Y/ R- XSub DoSave; l6 B/ Y, q' L' Q2 _/ P
foo.setAttribute "content", foo.innerHTML
3 m7 S! s: ?: \& |5 u$ y- H' v! r foo.save "EditContent"0 h- m+ K# U8 j! F! B( h+ v
End Sub9 k7 s0 a. v. X- v' u
sub DoLoad: a. K2 A! A/ o# z5 c8 F( N$ t
foo.load "EditContent" S4 l% ]- D6 l, I: f7 c1 ~' ?
content = foo.getAttribute("content")
. N" m% f1 E: K2 S0 D6 k' ~ if content<>"" Then foo.innerHTML=content5 k, I w- W" `$ T# F! ]
End Sub
( Y, E9 G# _+ R) D. {/ USub DoClear
4 o$ W# B6 w6 E: I% y0 q3 I$ @$ _9 _$ b foo.innerHTML = ""
" `6 I! D" ~2 @! x9 Z# c! V/ Q3 I0 `End Sub' g- u2 t3 ]. i9 U3 m' ` j
9 |+ ]& y0 P' b) V
Function Disp(x)
0 ?& b# A& s$ U! { Select case getlocale+ p# k) f% [$ t+ |
Case 1036,2060,3084,5132,4108 'French
+ w) q8 }8 R& m) ?* c Select Case x2 ?$ B' _+ F; B) `3 d2 }
Case 0 'sous-titre
5 U7 \% C! |5 ]; \% n/ D7 B; |" o# g Disp="Outil d'analyse de requetes - 1 backlink svp !"* u9 d4 d# ^9 h+ n( J
Case 1
- s3 F9 @3 J& a* A Disp="Votre liste de mots a monitorer :"# V% E: a# x' S- u
Case 23 {" n+ S2 |& g) G, J
Disp="Sauve"
; |1 R: P) j6 H/ ^ Case 3
" _8 b- ?4 S2 T1 D, d Disp="R.A.Z"
, \/ [" y: D# I1 E Case 47 e/ l4 K, v% y2 }! e
Disp="Charge"
?/ x& W2 }7 p- |0 ]- E' Q Case 5& A) E0 `1 Z+ V. L
Disp="requetes"
) Q9 o! v. u& Q. x$ T Case 6/ |9 I- V7 Z, m+ g$ ]
Disp="Dernieres requetes"# u2 S: O; Y4 G5 g/ H D
Case 7
]1 `) K: {( c: @+ d Disp="Nb de requetes lues"/ t# |% Q7 b; W
Case 8
; l1 ~6 ]/ Q4 F# }/ f v) } Disp="Cliquez dans le menu pour activer l'analyse d'un moteur."_. C" h( j0 \3 k, t6 A% ^- J3 k
& " Recliquez pour la desactiver."
; I2 J8 H5 W x1 n( W% E Case 9
[8 }7 N3 g3 v E v Disp="Mots"; ^& a2 e7 d6 n3 N [4 X0 k
Case Else9 Y+ W/ ~4 m& L @/ H: f9 |
Disp="###"
$ Q$ X) h( T/ {6 V8 J3 h9 G End Select
* `0 D6 |: r! I Case Else3 o# Z u N3 D- r3 t% ~0 G
Select Case x$ l7 c5 f6 y5 x/ E* w' b
Case 0 'sub title! @0 [( t/ ]% \: g5 U
Disp="A linkware search engine analysis tool"
, B; h; [* w X6 `$ F- h Case 1
# D) w7 L Z' z4 A Disp="Your keywords to monitor :"
; S6 h6 Y* O( [4 _ Case 27 F: y$ u% J& c/ d4 A' P4 g
Disp="Save") M! S9 M2 i) f3 u2 d1 Y
Case 3
9 b# r9 C; Z; o Disp="Clear"
0 P$ j; C/ q2 { x V0 O Case 4
" y" l2 t7 y' K; w- i: t Disp="Load"/ Q. m. `% s+ w1 |4 ^& Z7 ]
Case 5+ C2 i* a' h1 {
Disp="Queries"
9 d1 U& a4 @ h. t& h& b9 o7 R Case 6
" Z* F( B8 b" W+ U# [2 G5 l5 O; ] Disp="Last queries"- R2 l( \2 z+ ]- u3 Q
Case 7
e# t; B* c; c( H Disp="Amount of scanned queries"4 ?; l( h, U5 c, }, r' V1 z- H7 a
Case 8& d y( C' `! f) h- n4 T& w
Disp="Click above to start the queries analyzis on a specific search engine."_
' u. p. Z: J8 o! h. h; N & " Click again to stop it."
' W* X$ ^; I* Z. _6 k8 Z0 [ Case 9. f4 Y7 L+ A. g5 `' I
Disp="Words"
* M5 Z) S# P* \% |# ]8 o7 E0 U: z Case Else
9 \: a; d! P- F0 a5 v6 e Disp="###"1 \9 x: Y u+ p8 c/ Q
End Select
l' Z* J; ~: J! E, }$ G End Select
x* x. _$ t: b; T# d: @$ lEnd Function
8 N& E; T+ ^- \0 `$ f5 ~Sub DispSE(x)
1 i2 w0 {" C2 I( J6 p, ~9 F0 Z; R Select Case x
5 H3 B4 e' ~# \& P' B6 R Case 0
9 I5 s( b, A& \6 `2 b2 P if lycosfr.location="about:blank" Then5 R$ R. W! n" U! z8 d- I' c
lycosfr.location="http://www.recherche.lycos.fr/voyeur"
& t9 Z; ?$ T3 F Else
, b* Y8 s- H9 T9 {* n4 d lycosfr.location="about:blank"1 b; M; I: D8 y1 E8 h9 W( X. q
End If
4 q' S6 f& I2 v! F- ]: X# [: @ Case 1. W9 G* V1 U9 r! t+ v
if lycosde.location="about:blank" Then- L% {- P% [6 M8 Y4 b, V% D8 j, a
lycosde.location="http://www.lycos.de/inc/content/suche/"_
0 J( Q Z' q; d& r P & "includes/livesuche_iframe.htm?ergebnisse=&refresh="
2 D s/ o8 f+ p& _ Else
8 s* E! q" G* u- P5 k" R. i lycosde.location="about:blank": }3 O5 V [' o5 ]+ e2 D! R3 W6 s
End If
3 {7 o3 ~6 g/ R4 x9 E5 b4 I6 s Case 28 N. |/ j. L/ d2 U$ h
if fireballde.location="about:blank" Then. v8 s/ C' ]: y7 [) c
fireballde.location="http://www.fireball.de/livesuche.csp"# U5 b2 s6 s1 i, p
Else( z$ K4 x$ D2 v: C" r7 y7 O: O) ~* x
fireballde.location="about:blank"
% f; W6 p/ x0 k End If
# Z1 T0 t* W8 M8 j Case 35 a1 g; E# Y5 w v
if metacrawler.location="about:blank" Then( C8 U/ c6 \$ _
metacrawler.location="http://www.metaspy.com/info.metac.spy/metaspy/unfiltered.htm"
+ P" ]. `* ^/ F1 ~8 M% G5 a0 C Else, g, l% V: }8 [ }: [; K+ i/ [
metacrawler.location="about:blank"
$ | \) Y; \) _ N End If
' h1 p' U; _/ e, X# n Case 4
, _$ _, m6 S1 W% \' a3 z( d9 Z if kanoodle.location="about:blank" Then
/ E7 ^# I$ Y7 p! E/ v0 } kanoodle.location="http://www.kanoodle.com/spy/spy.cool"* X. H( u2 U2 x, {6 N
Else
, m% L. O- o. U, |1 Z kanoodle.location="about:blank"
: r+ R7 I2 ^+ `6 K, F& B& A End If
+ ]7 y# @; y. j2 ~) O Case 5
7 B" x& q+ B+ r8 A8 }6 z if galaxy.location="about:blank" Then
' C: ]! Z% ]: V j galaxy.location="http://watch.galaxy.com/b/watch?filter"7 E! `4 r2 F0 v" f/ G' A2 s
Else L$ ^ v4 `5 A( R
galaxy.location="about:blank") d* ~3 x" B( z4 w9 t! p# p3 o
End If1 J0 Q) S. p2 @/ K; v) U
Case Else+ g7 Q; Y, z1 j8 X/ m* e* [
Msgbox "DispSE : not found - " & x
* s& D; V6 @0 {+ C End Select! ^# G0 e& F% G! x7 D
End Sub+ R3 L& G% X) C, P3 A" V$ Z
( N2 Y( a8 O+ K* {, h) q3 g</script>
c: g1 s/ s6 R z$ k* x* R/ S8 T<style>
5 c0 f; v' \' k7 q3 Sbody,td,th,p{font-size: 11px;font-family: Tahoma,Arial;}& b% H5 F! Z2 ?& R8 ?( i, P
.topmenu{
. ?# F2 Q2 z+ j: G& {) N border:1px solid #222222;
$ w W8 F8 `" f. P' F/ {- h+ X) i; F background-color:#eeeeee;- \$ Q6 w- n) O G4 h- v) O. X
}
% b# G# j- I( t I' E7 G.topmenu a{4 `' {+ v: X6 t
height:15px;( _. k; Y! j1 ~; C( N/ g; x2 f7 |
background-color:#BDDCBD;% l2 k2 B0 T2 ]+ v
padding-top:1px;, ?5 h- p. H! W7 d! a
padding-left:5px;
' m. v, z, f2 ]+ g( { padding-right:5px;
- m; c" B @# O7 J6 X1 W# E0 @ B7 T text-decoration:none;1 Z, H1 Y( c* ?% ]/ R
color:black;
. d! p m$ G7 h) K) i9 T) w text-align:center;- N1 x ?2 F# g
display:block;
7 k9 |/ R: ~+ E9 ?}
+ W' ~. W. { Q6 r- D' K5 X.topmenu a:hover, .topmenu a:active{% ~4 a; q' Q- F! R8 {) F) l
background-color:#89DB89;color:black;
* Y0 a; l, d2 O8 A}
4 v8 C! D- {7 W' J#rb{border-right:1px solid #222222;}. H T& v( j& M: S: {
A {color:#AAFFCC}, S+ `' q7 K5 C% r) K
BUTTON {font-size: 7pt;cursor:hand;}
" U$ g. e' d9 ~1 y.userData {behavior:url(#default#userdata);}7 X6 e, [+ s/ ?
</style>7 Y2 [8 f' p; J+ g1 R& c0 H
1 y I' M& ]9 @# J; a4 _
</head>9 q3 ?. g2 }" T
$ |9 w4 _" b( {" d6 V: e
<body bgcolor=white text=black style="margin:2">4 ~; X' U3 o. g& M' k
<a href=http://www.interclasse.com/scripts/keywordranking.php>" n; I9 ^- A7 n3 G
<img src=http://www.interclasse.com/pics/avatar.gif align=left border=0></a>7 x( }5 O) |6 u1 E+ B, T
& |1 ^2 j5 U! s: Y# @. E' l
<H1 style="margin-bottom: 0px;">Keyword Ranking</H1><Script>document.write Disp(0)</Script>2 |! T0 X" v0 W* z$ L& |# l
2 h4 R) |2 O: m0 F9 `3 @
<table class=topmenu border="0" cellpadding="0" cellspacing="0"><tr>* n( u; g7 P# Y7 o3 M' j- q
<td width=60 id=rb> </td>( v& V3 n8 N* n1 v% e; P5 Z
<td id=rb width=80><a href="#" onClick='options.style.display="block"'>Options</a></td>
! l% q+ j# h& N<td id=rb width=80><a href="#" Title="French">Lycos.fr</a></td>& |% ~ |5 ?% G# x' c+ k9 h5 w
<td id=rb width=80><a href="#" Title="Deutsch">Lycos.de</a></td>; D4 w2 H3 g% P0 c+ [2 D; C
<td id=rb width=80><a href="#" Title="Deutsch">firball.de</a></td>6 g0 i1 ~8 a( J' U9 D
<td id=rb width=80><a href="#" Title="MetaSpy">MetaCrawler</a></td>
s$ M! z8 P* [2 p$ b3 ?- s! S<td id=rb width=80><a href="#">Kanoodle</a></td> c8 k; P. `, ]' }/ S9 A! Q
<td id=rb width=80><a href="#">Galaxy</a></td>7 K( \% \% _; |. J
<td width=60> </td># Q( n* X+ `+ \: F1 ~
</tr></table>
4 b/ R+ c9 q+ _4 ?<script>document.write Disp(8)</script><br>
7 b- c7 h. J9 A5 X$ B8 X
/ C6 s2 ~ p4 f0 k' T! u9 l2 W<div id=options style="display:none;width:180;border:1px dashed #222222;background-color:#D0D0D0">
" c' [' W' s7 @( R5 {<script>document.write Disp(1)</script>2 s3 d# E/ W i7 G, V" B
<div id=foo class=userData contentEditable=true style="margin=4;width:170;height:14;border:1px solid;background-color:white"></div>
# w: p/ O+ r: z, V <button onClick='DoSave()'><script>document.write Disp(2)</script></button>
5 h. Q: m& w- e; A8 g! g. { <button onClick='DoClear()'><script>document.write Disp(3)</script></button>
4 h) I1 ~3 ]4 J; ^) G+ Q. U) n <button onClick='DoLoad()'><script>document.write Disp(4)</script></button>
' b3 w0 K- {3 M. j <button onClick='options.style.display="none"'>ok</button>* U) G2 m0 {% r- q+ k0 Z
</div>* _3 V* a9 F+ E" }1 Y; P- R. v
! q/ }1 f; `' ~# C6 u% d, W2 ^) p* h! u
<div ID=MaListe></div># E) M4 H$ y" d E6 [# |, A4 ?( g) q
* D2 u0 H5 b5 w0 S: v8 F# A
$ T7 P9 {# ~; b9 q' u- W<table width=100%><tr><td>
( J' w7 f2 g. |( E$ r: `<iframe id=lycosfr height=200 src="about:blank" width=100%></iframe>5 ]8 m/ n8 T0 G: m6 u
<iframe id=fireballde height=200 src="about:blank" width=100%></iframe>" g' |4 z) u5 l2 c* y- E
<iframe id=kanoodle height=200 src="about:blank" width=100%></iframe>4 s; s; N. S) n$ o- e% |
</td><td>
w- _' V3 n1 U* {6 L9 z<iframe id=lycosde height=200 src="#" width=100%></iframe>; n m; w8 X! O9 j8 z5 d7 X
<iframe id=metacrawler height=200 src="about:blank" width=100%></iframe>
3 i+ i: V8 }! Y% f% j<iframe id=galaxy height=200 src="about:blank" width=100%></iframe>
' u1 r3 Z! Y# K3 v* Z$ q0 M</td></tr></table>
6 {8 k: V; c$ Q3 d; }6 \; ~
( W& Z0 t+ F3 Z; \</body>
( |* T z# K/ d; b! a: p</html>
3 ^" h* f$ t* M$ E' v2 M======================================================3 {9 ?+ i$ m0 `7 h% O
Keyword Ranking
* \! z8 {) s# i$ u0 G: a: H4 r9 Z& @ P% |6 [# w6 O+ A7 c: t7 v5 x
Real-time ranking of keywords entered on search engines
! w2 U/ b; a# m9 v+ G' ?; t/ \: Z2 P+ g0 ~* k4 A/ j2 O
Monitors all queries and lists last queries and top 100 V/ F# X% B& U3 ?/ F# Y
( R) Q7 m2 D% W! b3 A9 O
File Name : keywordranking.hta
* L+ m4 V9 E [0 U7 S8 z$ tRequirement : IE65 R* w- H3 e% b! C
Author : Jean-Luc Antoine4 X& r5 o9 z1 A: F4 |
Submitted : 09/12/2003
4 l1 k! f% f# S0 hCategory : HTA/ V! N& w" m6 i# T& k" v
Remember : The file extension has to be *.HTA 保存時注意編碼,推薦用utf8格式。5 g+ g& s& [/ r# @3 a( C/ T
" t* b/ g/ K9 d' A3 g& a: s9 E4 ?6 C1 p
3 v3 H2 Q5 r. U' @8 R* f% u1 F1 f3 _! w- d, }
+ k% I- G( ~$ D; Y( k
6 N% V# M2 s1 ]
4 V$ E# n5 V5 m5 f; C# s: n
3 C- y1 |7 k% C& `. L% e: W1 p4 O6 q
: ^, b" c. K, I) @" m8 E* Y7 j
$ o# p# I) z8 h
! Q: s& j- p) Z) o: n
( P1 o- U( e; N3 A ~# @1 Y8 [5 G2 U( u( g8 f- t) `; H
0 _# f* S: I& ?2 n5 `/ c
0 \ D6 I& n7 z7 k3 G2 q
1 @ o$ s g, Q9 Y
+ h% U7 M# p1 I6 N$ ?. N: r/ c( V/ o+ ~4 \$ O" K
4 E$ a" K7 y6 c1 T' C" Q" F) v9 D/ V
8 M; A+ @4 Z7 ]$ C4 {" z
% S, t) m. M! p" ~4 y* ~8 ^4 n
( x1 S/ o j {$ I |