本帖最後由 印個歷史 於 2013-12-21 23:17 編輯 ! t; f6 a) A" |0 S* l- {" u
2 Q6 z, w8 t, w/ s/ f w( p
下邊這個編碼靠譜嗎? 能實時檢查關鍵詞排名?
1 S7 k2 B* }7 C6 F7 I
8 H# B8 n: y, g L* `3 w/ a文件名改成:*.HTA, 代碼裡的東西沒有需要改動的嗎?
p( T3 h- a: s- n9 `6 }* M5 X4 B3 m6 {2 ~! W& k+ [9 b% W
下面的編碼來自:http://www.interclasse.com/scripts/keywordranking.php& x. t+ z! U( K3 [/ F9 [/ i S/ h& _
2 R( u8 N( Z4 G& L3 e
============
u3 K9 |$ n9 Y4 l <html><head>( y; _( Q, A4 J% [ ~: j6 b
<title>Keyword Ranking, (c) Jean-Luc Antoine</title>( }7 {* G9 b3 E- |6 H" n
<HTA:APPLICATION APPLICATIONNAME="Search Engine Tools"
! P* ]$ ~& j, Y! k: ~8 c BORDER="thick" BORDERSTYLE="normal"
9 A, h4 F6 |7 h CAPTION="yes" CONTEXTMENU="yes"6 ~/ G/ h; h6 B/ w" W7 z$ I7 H
INNERBORDER="yes" MAXIMIZEBUTTON="yes" MINIMIZEBUTTON="yes"2 V1 r+ ~" g+ }, K* d) G8 a
NAVIGABLE="no" SCROLL="yes" SCROLLFLAT="no": H. w" Q. K5 {4 N1 t
SELECTION="yes" SHOWINTASKBAR="yes" SINGLEINSTANCE="no"6 U+ n1 n7 e5 h- m
SYSMENU="yes" VERSION="0.3" WINDOWSTATE="normal">
! M8 a' i; W' b4 O, L/ v<script language=vbscript>
2 S9 }: C W5 |0 C6 sOption Explicit/ o6 j% g8 p! q6 w& |2 T
' Versions :& V1 b& p! j+ k# v6 E
' v0.3 Queries and words : simultaneously ranking
6 `3 P" F9 b: ]) t' v0.2 New look, options, many SE, _: q! g1 K: k" U) _
' Multilingual system
4 P6 n& g+ N5 c% k4 h c k' v0.1 First draft, keyword rank and last queries
" X; ^- _$ P+ {'Todo : ( i8 x8 J% `) s
' Gerer systematiquement a la fois Keyword et Phrase
9 J+ p# v# o) T9 R$ y7 W' Sur les keyword, permettre de zoomer (showmodeless) sur les phrases contenant le keyword pour connaitre le ranking des variations
7 v; h: N6 b' l" | P7 D; B) r' Lister en permanence les mots-clefs monitores avec leur occurence et permettre le meme zoom
8 A a( g! {) X# n! o' Mettre en gras les keywords monitores
: P0 j1 ]1 l2 H1 s# j, E' Temps de mesure
- ^" T( H2 |: g3 {' Afficher pourcentage en plus du nb d'occurences' {8 P* ]# N) s2 p# M$ Y
' Monitorer X mots-clefs et leur apparition/frequence relative
- B2 G4 W. z, g8 a' Faire bouton de refresh manuel si ca se bloque (location.reload())
, ]& ]4 U0 F% _( X' H, S' gerer les fenetres lancees offline et non pas inline (intercepter events par showmodeless dialog)1 @6 J/ I8 D6 w% j
' identifier nb de pages retournees par requete et indice de concurrence# `# X3 n; }; X K
' Permettre de sauver le resultat
% N. ~6 w: W) m* s& u7 Y+ {$ w; G1 y' http://wordtracker.com/newsinput.txt
) @( k- z( g0 W$ U/ I/ E _/ `; I* J# `1 A
Const C_MaxList=20 '### Change this, predefined for TOP 20
6 y) T r9 w1 l2 E( aDim d,dw,a(),b(),f(),g(),i- f0 i+ |; C7 c' q% e. ~
Redim a(C_MaxList): B6 d8 O% }& C. q9 X U! S
Redim b(C_MaxList)# f: N+ \3 R) j3 F" X
For i=0 to C_MaxList-1+ [" s. w4 `: ~, m2 u' z: e; u& Y! `
a(i)=0 'Nb d'occurences2 @% l1 s! u8 R/ w% R
b(i)="" 'Value
' q6 c; W' _/ T! w5 _, x7 NNext
9 W/ Z h+ h9 [5 {$ t0 oRedim f(C_MaxList)
) n5 E2 Z8 o6 K. D$ ERedim g(C_MaxList)6 ]( R6 D; z& K( r6 d
For i=0 to C_MaxList-18 p$ E, D. }$ H* I1 e
f(i)=0 'Nb d'occurences
5 w( R: J6 m9 H, [5 H g(i)="" 'Value+ h9 \; h7 S }& H% q; v6 q% k
Next
) f. ^. w: l: J# o' s- s8 y" j. mSet d=CreateObject("Scripting.Dictionary") 'queries% l! m; X/ p( q6 \' x- M
d.CompareMode=1 'vbTextCompare+ X8 d. s+ a; N' \
Set dw=CreateObject("Scripting.Dictionary") 'words% A& ^" @- x. G/ J: _; `
dw.CompareMode=1 'vbTextCompare, X8 K* ]2 s( j( F- }# g# W
6 f8 K( s* P/ Ssub go(SE)/ \" V$ w, Q$ Z, c9 h5 K, ?- x
Dim s,x,sq,s2,sw$ H* V+ V5 h; f
Select Case SE; W$ ]9 W; J/ T6 l. ^, k0 }
Case 07 ?, O8 U g( {* H
s=RegExpTest("pursuit\?query=.*?&", lycosfr.document.body.innerHTML,15)
) ~+ u5 f9 q% Y& d3 B Case 1+ Y1 X! _0 p9 p7 w9 |$ c
s=RegExpTest("pursuit\?query=.*?&", lycosde.document.body.innerHTML,15)
- L6 f& P' I; j% A; j0 j5 h1 a Case 2& Y# v3 T2 N1 q' A' ?: D
s=RegExpTest("[^a-z]q=.*?&", fireballde.document.body.innerHTML,4)
0 j# E" u" Z) B. F Case 3
( l7 p' t+ Q! o. t5 q1 n, ` s=RegExpTest("\?qkw=.*?""", metacrawler.document.body.innerHTML,6)
3 `! y9 B1 }" }; D4 s p( S Case 49 f) z: Z# W3 j% o7 X
s=RegExpTest("return.cool\?query=.*?""", kanoodle.document.body.innerHTML,19)( m \7 N) A' w* b
Case 57 B+ _" ]# V- T2 J, g
s=RegExpTest("/w.galaxy.com/b/q\?k.*?""", galaxy.document.body.innerHTML,21)# n5 {$ C' S5 o. u' V' h
Case Else
7 c+ z' r0 p# k( e- S msgbox "Unknown S.E. : " & SE4 h7 g: f# v' M- {0 K9 J
End Select
" N, T q8 f! M# f6 r& M) q s="<pre>" & s & "</pre>"
M$ L/ }% i1 J" H1 r, o6 z% L
3 T! u8 A! F" A: g7 O: S- Y2 d, U L sq="" X9 M6 V2 e0 s% M5 G
For x=0 to C_MaxList-1
& h( x3 @: B2 H+ e If a(x)>0 Then sq="<tr style='background-color:#eeeeee;'><td>" & a(x) & "</td><td>" & b(x) & "</td></tr>" & sq
6 i5 U3 y6 D e# y Next$ B' q; {* d- ~$ I. B
sq="<table style='border:1px solid #222222;'><tr style='background-color:#dddddd;'><th>Total</th><th>" & Disp(5) & "</th></tr>" & sq & "</table>"+ f% V, a8 P/ f: |3 H3 j5 M
& z+ t4 i- }( ]' B/ H/ s
sw=""# U/ X$ q( ~0 \+ I& z4 P
For x=0 to C_MaxList-1
" `3 ~$ f6 H. Y4 g) _, U$ B6 R If f(x)>0 Then sw="<tr style='background-color:#eeeeee;'><td>" & f(x) & "</td><td>" & g(x) & "</td></tr>" & sw* @5 ~0 t% w2 p! M. A! z& v* E
Next
) V% t3 y$ U; i. ~6 a1 q3 r: k sw="<table style='border:1px solid #222222;'><tr style='background-color:#dddddd;'><th>Total</th><th>" & Disp(9) & "</th></tr>" & sw & "</table>"9 A& }! R" k( ?9 h% q4 s
2 {$ k8 D# O5 h+ r3 A s2="<b>" & Disp(7) & " :</b> " & d.Count & "<br>"4 H+ i* A2 w$ j( @
s2=s2 & "<table><tr><td valign=top>"0 @0 p0 e4 I2 R3 l$ G4 i5 X
s2=s2 & "<b>Top " & C_MaxList & " - " & Disp(5) & "</b><br>" & sq & "</td><td valign=top>"& I" b9 K8 U- i- P9 G6 O' t
s2=s2 & "<b>Top " & C_MaxList & " - " & Disp(9) & "</b><br>" & sw & "</td><td valign=top>"
: U# E( o& Q' l5 ~ _ s2=s2 & " <b>" & Disp(6) & " :</b>" & s
: I! V$ x; V2 V# y% H" O$ _ s2=s2 & "</td></tr></table>"$ ^) A* k3 l2 C; x7 ~ ]! T$ F
MaListe.InnerHTML=s2+ V j7 X2 D4 m2 B7 R6 ?
End Sub
R* G, Z* \# d, l* Y$ z
- F5 K j* P# h% MFunction RegExpTest(patrn, strng, Pos)
. V0 F9 h5 \ S) [9 k5 |+ e9 n Dim RetStr,regEx, regExw, Match,Matchw,Matches,Matchesw,Matchesws,k,i,j,x,s,w* l5 A. K1 J- `# P4 ]* M/ Z; m
Set regEx=New RegExp
! i4 [. [& \6 ?0 D' I* i7 C Set regExw=New RegExp
; Y. j6 K( t& x0 i, t regEx.Pattern=patrn
9 ~" y6 A& c0 \3 r regExw.Pattern="\w+"
9 U6 [" t9 V* X4 B1 E regEx.IgnoreCase=True ' Set case insensitivity.* p. ^8 w% E- x! B2 g" I
regExw.IgnoreCase=True
7 z9 i( L. N. v' E' u regEx.Global=True ' Set global applicability.
3 h/ E) Y- E- T0 @' B, B9 s* t x, a regExw.Global=True: I) G) I9 Q8 W4 W9 Q
Set Matches=regEx.Execute(strng) ' Execute search.
- v+ g1 Y" x; o3 v+ J0 w RetStr=""
3 {3 W4 @% p s7 n6 l For Each Match in Matches4 o; a" q# ~7 r1 n) `, v
s=Mid(Match.Value,Pos)
: V& T# I8 Y4 O$ U2 v s=Left(s,Len(s)-1)
' \0 f2 Y/ F4 s4 i& C4 h' q s=Replace(s,"+"," ")4 d) a3 ]2 T! C
s=Replace(s,"%20"," ")- [$ i* i; b! R' @
s=trim(s)
! u* E4 ]( N: w$ z If s<>"" Then, f* `- n5 v- A9 r: O, \) ^4 f) W
s=Replace(s,"%21","!"):s=Replace(s,"%22",chr(34))/ x& t9 R) N- {- O
s=Replace(s,"%23","#"): s=Replace(s,"%25","%")- Q/ B2 e% E+ U1 u' \. @( x! q3 o
s=Replace(s,"%26","&"):s=Replace(s,"%27","'")
; y) d& b0 N9 s6 B6 f( u s=Replace(s,"%28","("):s=Replace(s,"%29",")")' i8 C2 ~- j: X. ^: C
s=Replace(s,"%2A","*"):s=Replace(s,"%2B","+")
5 R, ^! w# p, P+ o5 S s=Replace(s,"%2C",","):s=Replace(s,"%2F","/")
! ` L$ U& d: w6 r s=Replace(s,"%3A",":")
. W' q* w- m" ]) v. f9 m. w* |- N/ e: v s=Replace(s,"%3D","=")
5 W0 k! p1 n! r/ d) J# Y s=Replace(s,"%3F","?")/ y2 f4 q# e2 a
s=Replace(s,"%40","@"):s=Replace(s,"%B4","′")% P$ o' y& O8 G( Z. E
s=Replace(s,"%C4","A"):s=Replace(s,"%D6","O")* N4 Y( W' z% }* }: G4 I8 ]0 B) _
s=Replace(s,"%DC","U"):s=Replace(s,"%DF","s")
1 r* |9 q" f. E) }' b t, _; b+ q* g! J s=Replace(s,"%E0","a"):s=Replace(s,"%E2","a")/ V! y$ k& q0 ~; ]' q! X0 Z
s=Replace(s,"%E4","a"):s=Replace(s,"%E7","c")
3 X- ^4 w% ?9 M5 v/ \' M5 ^ s=Replace(s,"%E8","e"):s=Replace(s,"%E9","e")4 W. J( T6 ?# ?0 `1 F, O
s=Replace(s,"%EA","e"):s=Replace(s,"%EB","e")
/ Q3 h k% k1 p" D s=Replace(s,"%F6","o")9 x5 K* }- L' T2 [6 `
s=Replace(s,"%F9","u"):s=Replace(s,"%FC","u")
: M5 Z7 g6 ^! D/ ` s=Replace(s,"<","<"):s=Replace(s,">",">")
! Q$ p1 @- z" M0 \3 g9 c" D' |0 V! i If d.Exists(s) Then
0 B) s1 j/ H, ~+ Q) O k=d.Item(s)+1& ^# V) C9 s" s: x: E3 F
d.Item(s)=k
5 Y* e @% o& x' i i=-1 'If more than the first value, insert it1 J( \+ `3 o1 ]( w6 V# L" T/ j" k
do while (a(i+1)<k) and (i<C_MaxList-1)
& R+ y1 P5 o. l5 h3 |1 D i=i+1" g5 |) J& O% \+ I; N
loop! h) C1 j5 l; q( i) Y: Q
if i>=0 Then 'i=where to be inserted
/ L: s3 r! ]8 E# X x=0
* o' T. u/ q6 j, r7 Q' H$ } For j=0 to C_MaxList-1# w/ a9 y+ }" ]
If ucase(b(j))=ucase(s) Then
! @. ^0 M$ \ U+ C: k! ?$ k7 M x=j; V9 b- X" \% d# J% Q ?
Exit For
& R2 ] k; _. d" J; H; }5 L End If3 ^, l$ c D/ z( Y: V& g
Next2 F& A( r* i+ }" y
For j=x+1 to i
+ v- h4 F( `. l' S a(j-1)=a(j)9 v5 b# h) G* s& q$ q& ~
b(j-1)=b(j) D. X; r( ~1 |' S! C" J0 |* G+ m
Next7 N) Q1 ?2 R( y, i( j) I' P0 f
a(i)=k
5 N! Z6 L* o, ^/ U- y, z4 s b(i)=s
# Z+ O8 I3 D% ]2 Z4 b% s. r End If: ?1 V3 c; B0 T5 ]
Else
; c8 O" g8 `0 X: L" j1 A d.Add s,1
) Z& ?# v6 s9 R6 X7 \9 L" b' Q End If
, S' O% @5 q* ]( K6 a- t, o RetStr=RetStr & d.Item(s) & "-" & s & vbCRLF
6 v" I, O6 F$ W( i! u/ A. h$ c! e5 B- b* q, n+ f: ~
'Extract Words( B$ d) N S4 k/ ~; p& _" i
Set Matchesw=regExw.Execute(s)
/ t- b# H" y" e' Q1 {2 L For Each Matchw in Matchesw1 g" J! }/ n# d& O; i0 w
w=Matchw.Value; @6 a& N b |5 U
If Len(w)>2 Then: r1 X/ [" D9 P2 d0 W1 b
If dw.Exists(w) Then! \8 R& Y% _3 W6 z# ]
k=dw.Item(w)+1
8 a9 K0 `6 J' l+ x6 x' D8 X5 E dw.Item(w)=k
8 L& H, ^" d8 D/ |. U i=-1 'If more than the first value, insert it- {1 v+ l$ o0 C' G0 Z4 x
do while (f(i+1)<k) and (i<C_MaxList-1)
{* z9 v$ I$ l i=i+1
7 g1 k6 ?4 H2 _6 v, `1 ?( W# Y8 n, A loop- P) b) X/ {; r: G5 ]3 u1 k
if i>=0 Then 'i=where to be inserted7 Y$ ~1 x3 }5 I, Z7 o
x=0
. d6 J5 W2 M; d, D* c For j=0 to C_MaxList-11 W# A F0 F8 S; A4 W" I! Z8 W
If ucase(g(j))=ucase(w) Then
: Z. B5 v4 f. Z: m* k x=j
0 M4 y4 ?! j6 Z/ I5 X! T Exit For6 Y3 m8 B. ?4 U3 X3 x3 E/ y
End If
* y+ _7 c y9 `! O6 \0 U& T Next& d5 q3 M$ p$ ]$ P) g
For j=x+1 to i e5 i8 V' S x) I
f(j-1)=f(j)
) C4 Z+ g: S# ^ g(j-1)=g(j)
& |9 E" _% ~7 R3 t Next4 e6 ~$ |5 |" Z) q8 U
f(i)=k1 ~. M7 n* V0 }
g(i)=w
- W' [# }8 O% x End If
# E3 {" S: |3 d9 V0 R Else. ~( D- r# _0 ^& Z
dw.Add w,1; V: a7 m- n% E. n0 g
End If w: _* E- J' `' \- s
End If
$ Q+ ~% p+ P, c3 K8 V Next
x# d- l- n1 [; y End If
+ i0 V: m# A* I5 ?9 g o9 O Next4 _8 U e. l1 E3 S( u; t
RegExpTest=RetStr0 X( G+ {( E* p9 I! |. s
End Function" N0 r$ y: {% Z% a: h8 X% X
) d6 P$ L* H" Z& R9 T; j; {& w' W: V; e+ k$ s: }* J4 g7 j0 c# M
( v2 w; n8 A! `, V! x7 }8 O C
* G8 j4 e( y* u5 s/ W* I" \$ \</script>
4 f, O, g0 N; r! O3 C<script for=window event=onload>2 H% g( e* C' L
DoLoad: j# A: H8 _ x4 d0 X
</script>
( A! v: s J8 G, r$ K3 H1 X5 v<xscript for=window event=onbeforeunload>
5 f* r6 g7 P4 ]! X; Q& ?, S0 I 'DoSave& l7 ]- L5 e" m* d ]: D! f* m2 q
</xscript>1 D7 E. q% _- v; o
<script># j/ P+ g; r. J& _7 W! }
Sub DoSave: w! w2 W( C0 m7 ^
foo.setAttribute "content", foo.innerHTML
8 @( ^2 Y+ U6 z: L7 ^: N foo.save "EditContent"2 y) p T/ j; v2 N0 x7 I
End Sub
+ |; I5 u7 i, jsub DoLoad: F. p- |& P6 l) J' N
foo.load "EditContent"
H! N8 M3 W Y& w& k/ F content = foo.getAttribute("content")
' a- M& L; W- |$ O/ p9 ? if content<>"" Then foo.innerHTML=content
& Y& _; p$ h! B* t7 B' Z) b7 h, sEnd Sub
( X) q, \+ ^; u6 ^" j5 J7 aSub DoClear
" a% P2 a4 y9 g/ M$ t foo.innerHTML = """ b4 V$ Q0 R0 f4 c0 b
End Sub4 c: J. v9 ?6 Q/ ]# j8 h; u( m$ c
# @2 _, _# b7 r# z. |
Function Disp(x)% J' n1 b( [6 \( b u
Select case getlocale6 G% i% g" B* `
Case 1036,2060,3084,5132,4108 'French
/ C6 r9 e' q3 h4 { Select Case x* g. N n) J- c$ t) m* f# S
Case 0 'sous-titre# M/ Q0 z7 @$ }5 Q
Disp="Outil d'analyse de requetes - 1 backlink svp !" Y# w4 f1 t& Q
Case 1% E# W2 H! N0 }# F o7 v
Disp="Votre liste de mots a monitorer :"" R& Q4 P3 ? a1 S
Case 28 \$ J5 F" B" f8 T/ a
Disp="Sauve"$ J3 Z' Z& o9 b$ n( ]2 r) H" q+ o5 |
Case 3
: r8 N. R7 t4 ~8 v& _ Disp="R.A.Z"% I$ w6 p: N4 b# ~1 u+ |/ A
Case 4
|& U" u1 {) f1 Z, o' B Disp="Charge"1 l& l5 Q( H8 @
Case 53 }2 J0 H; m+ A5 f: l8 C
Disp="requetes"
2 P( q2 U$ u) P, p% S Case 6) q. G1 \7 H# _
Disp="Dernieres requetes"1 x6 F" g9 I1 b* x8 y; {2 F
Case 7; ~+ J, G5 @! e5 h; b
Disp="Nb de requetes lues"6 |' q9 Q% p2 v- I
Case 8: S7 K# X+ u- b1 z) l7 c
Disp="Cliquez dans le menu pour activer l'analyse d'un moteur."_. L. O5 j7 b; o: Y9 b+ k) ^5 x
& " Recliquez pour la desactiver."
% e/ E2 p5 u1 I/ L$ Z+ Q Case 9" e3 N2 B" `4 t1 M _: a
Disp="Mots"; V8 Q' ]" V& J: Y3 L0 ]( W
Case Else
" o1 A% H& J" ` @# ~/ t; @ Disp="###"( w U8 [- u% b$ l" t0 \
End Select3 _$ n6 |1 \0 c: `9 d
Case Else5 S; S6 M% U' x8 }
Select Case x1 v$ T' H, A7 u, A
Case 0 'sub title6 _: i8 s5 R5 X$ G0 b
Disp="A linkware search engine analysis tool"3 U" }' o. f% e! f" ?$ q' u
Case 1. p! h* U; P" u1 z4 z
Disp="Your keywords to monitor :"
8 D- v, y9 |9 E" w2 U @3 Q8 b Case 26 K! k6 y* B8 ~3 D" W" A/ V
Disp="Save"
: k" O9 {1 G. J$ ]# `6 e d* C& O. t Case 3, {! x) y2 `1 Y( a" n6 ^% `' y1 d
Disp="Clear"" f. F) o# C- Y% X
Case 41 W0 v! r5 W( h- X9 \; @
Disp="Load"
9 W. t$ c8 j# W. n+ s- h; O Case 5
, c' L, ?0 Y5 o1 b# A) z7 Y" G Disp="Queries"
4 t/ Y7 W) A4 m: X; h. q Case 69 x$ H! ?; H/ @+ Y3 n/ j6 z& {) z
Disp="Last queries"
. A( [: J7 e4 [. E Case 73 n9 Q3 t2 p9 x/ v% S! K- C
Disp="Amount of scanned queries"3 ?* \+ f; S0 a% ~# r
Case 85 l+ b- J% ^ y* H) V' I
Disp="Click above to start the queries analyzis on a specific search engine."_
% e" v3 n8 k/ l! c+ V & " Click again to stop it."% J, f, R5 u; G5 d1 G. w5 X8 E
Case 9
4 J' Q6 N" P" g6 }8 `) B& C Disp="Words"7 V! r3 _0 [1 Q+ v
Case Else) O: Z( k- v) ?( V/ Q( i* U
Disp="###"7 z6 }, c/ J) T$ C4 Q, ~
End Select
9 i+ z% d, v+ b# ^/ I l! F, @ End Select; I4 M; z7 Q1 t& A& f. z
End Function6 F% p0 ~: J: S8 w# Z1 w8 T
Sub DispSE(x)$ p+ U; m3 @6 [) H9 S
Select Case x7 b. R `1 S; L8 m
Case 0
! [$ I2 [5 M' c0 [- P if lycosfr.location="about:blank" Then! @% z3 W" P( Q* \
lycosfr.location="http://www.recherche.lycos.fr/voyeur"6 U7 P; R! P t$ e, Y: E. ~
Else
5 f- i& [& ~1 d# @$ [ lycosfr.location="about:blank"
' C- |! }: m8 d% L End If
& u/ L6 L, e, t4 n9 J: ^ Case 1
( z! B7 G5 b" d if lycosde.location="about:blank" Then9 t/ @0 `" D9 p" K k% p3 [( R
lycosde.location="http://www.lycos.de/inc/content/suche/"_
* P; A, [6 Y& l4 A6 Y' U- J & "includes/livesuche_iframe.htm?ergebnisse=&refresh="
. {4 J8 n1 V% e- c) d' c2 B) y, v Else
, h( |2 o6 S% ~ lycosde.location="about:blank"( _0 r5 b: ?7 p$ x( |
End If
% O* ^$ K& Q$ u8 w; g& x Case 26 H9 u4 G( ]* L& O/ M8 M
if fireballde.location="about:blank" Then
6 y* U4 {' q! f* o2 Q$ d fireballde.location="http://www.fireball.de/livesuche.csp"
S& _+ \+ O, C6 P9 N1 S2 j% T Else
5 z, u4 `# y# L5 q& \ fireballde.location="about:blank"
2 e* X; e' t; B1 a& G End If
1 I p' U. [, B* \% X, B) f Case 3& ?! S. J; K$ M" ?/ T
if metacrawler.location="about:blank" Then
, C6 ?) B7 ^$ L9 X* s: P metacrawler.location="http://www.metaspy.com/info.metac.spy/metaspy/unfiltered.htm"
7 N! Y5 i7 }; R) M) G Else
" M5 J9 H1 ~6 a* P- @! t* N! ^ metacrawler.location="about:blank"! T. E. B v5 U3 Z+ O/ O( V
End If% S5 v* `9 G- z; b; y* P
Case 4) E F" C7 z/ G- ]2 M8 Q
if kanoodle.location="about:blank" Then& \3 j% D; n- n
kanoodle.location="http://www.kanoodle.com/spy/spy.cool") d" B* u; L% d. q) Q
Else/ c& }' J( n0 ?* P0 h2 \
kanoodle.location="about:blank"4 k& t1 x! {: x+ m4 x3 H
End If
# B' j" ~& B( r Case 57 J9 N" l5 O' x
if galaxy.location="about:blank" Then9 X# {+ e4 G+ W4 q7 |! k
galaxy.location="http://watch.galaxy.com/b/watch?filter"
/ i) v- l- D) |/ ~5 c Else
" g* }" M+ R" \ galaxy.location="about:blank"
' ]5 a/ f o* R2 h End If
4 n# S, J/ @' D1 I Case Else8 k, X6 D/ y9 Y: {
Msgbox "DispSE : not found - " & x: Y+ J+ c' z# \; v) B# S
End Select
- }9 `2 i. p+ Y3 F/ A$ T! VEnd Sub
7 l* `% X7 w* P( ~( g @6 C8 Z2 ]- B- a
</script>
, Q1 _- v; M" ~<style>
5 r- i, }, n/ V& q) n! jbody,td,th,p{font-size: 11px;font-family: Tahoma,Arial;}* B! u/ A* N& ^: ]; l: z6 a- ~# p
.topmenu{& Q4 `9 }4 G1 V( _9 `( |
border:1px solid #222222;
9 M% F0 x0 W L( T% G background-color:#eeeeee;
) s" C; Y+ X( v. x- l$ ~}5 w4 L: ~$ }9 l8 J
.topmenu a{
% g$ q) ]3 N! B, ? height:15px;
$ M, F' R% w. n1 u4 U background-color:#BDDCBD;
7 J9 O( b4 u( I3 k padding-top:1px;
9 j1 G! ~' S3 r padding-left:5px;
" C. t) ]( T( E) d padding-right:5px;
; E$ V6 y! `4 ?5 B6 l4 ?; `. k text-decoration:none;2 v; ?+ U# y# C7 S8 g8 v& c
color:black;& H: M ^' ?. _) a# _9 W
text-align:center;
* M- u: E3 a: C8 {: V# S% }4 M display:block;
1 I! O$ ~% y; N}
2 M4 W5 \2 L& @.topmenu a:hover, .topmenu a:active{
: q7 i$ l2 s+ T: D" u% ~background-color:#89DB89;color:black;
& D2 \& [/ B+ ~, x3 f' L6 j4 O}
! o) q2 K$ [. i% C1 V#rb{border-right:1px solid #222222;}! u( D3 M7 F/ o4 e+ U
A {color:#AAFFCC}
z& ~/ ~5 w0 U8 O8 `/ oBUTTON {font-size: 7pt;cursor:hand;}4 \% P, N' n0 b
.userData {behavior:url(#default#userdata);}3 n& _& t, O! F/ d6 g, ?' z
</style>0 A6 P$ p$ ?6 c7 B; |0 D
+ _# c8 \, b8 x4 G7 ]6 h</head>
; p0 o* c; M- H! I- p6 e# y; H( |& x. w6 u' G
<body bgcolor=white text=black style="margin:2">' c4 n7 q! |" B- N+ a' f4 r
<a href=http://www.interclasse.com/scripts/keywordranking.php>
& L' o8 z; W/ v5 T: \7 Y1 R& A$ D<img src=http://www.interclasse.com/pics/avatar.gif align=left border=0></a>
: C! O- _; n: v# p- \1 x$ f4 C7 ~
+ N0 q. W9 H5 w% b6 o0 \<H1 style="margin-bottom: 0px;">Keyword Ranking</H1><Script>document.write Disp(0)</Script>
7 h, s& g! F+ g6 C1 E! z- n8 o8 ?4 E" n4 ^ e1 @+ B" f) l
<table class=topmenu border="0" cellpadding="0" cellspacing="0"><tr>
2 i8 i7 `+ O- u: g<td width=60 id=rb> </td>& e0 \5 n0 V* x/ p$ o N3 \
<td id=rb width=80><a href="#" onClick='options.style.display="block"'>Options</a></td>& X# y! M8 @& F& Y
<td id=rb width=80><a href="#" Title="French">Lycos.fr</a></td>
+ W: E( R7 v$ J4 G" a<td id=rb width=80><a href="#" Title="Deutsch">Lycos.de</a></td>/ m# P5 v! E5 N4 w5 R) j
<td id=rb width=80><a href="#" Title="Deutsch">firball.de</a></td>
4 E0 q+ w; W$ v. [5 j1 L<td id=rb width=80><a href="#" Title="MetaSpy">MetaCrawler</a></td>5 K" Q" G* |! ~0 K
<td id=rb width=80><a href="#">Kanoodle</a></td>
, \3 W! e/ w0 Q1 c2 W<td id=rb width=80><a href="#">Galaxy</a></td>
: ^1 O" H# j5 J& ^<td width=60> </td>
$ w+ F1 H- p5 I# S1 H</tr></table>
4 R! i9 g6 m3 g3 F% m<script>document.write Disp(8)</script><br>9 _/ K0 D% K r; b6 [
$ g! [% {# Y% S# | P<div id=options style="display:none;width:180;border:1px dashed #222222;background-color:#D0D0D0">
2 S4 d$ d0 O( @2 v' {2 J<script>document.write Disp(1)</script>
% B3 p5 }, b( ]6 B7 _<div id=foo class=userData contentEditable=true style="margin=4;width:170;height:14;border:1px solid;background-color:white"></div>0 [# H( _# T) W/ x4 k7 G2 x
<button onClick='DoSave()'><script>document.write Disp(2)</script></button>
0 i0 `% w5 l, q) U' K <button onClick='DoClear()'><script>document.write Disp(3)</script></button>, C$ u. X: F) j
<button onClick='DoLoad()'><script>document.write Disp(4)</script></button>
& e) c. X) ^) {! I <button onClick='options.style.display="none"'>ok</button>, T4 ?; L% v2 }' V: J" N, u
</div>
_8 X; U- v" Q7 C9 I$ [! l( x5 S2 V5 h( Z8 m* D0 a( F5 t/ }6 S
- \7 `- F; T, N$ _$ f4 g
<div ID=MaListe></div>, M- {4 E. N4 g
4 m8 V% _; g0 Q' `+ B4 e; ~! z& A# W+ Y9 C# \$ M e+ e7 I
<table width=100%><tr><td>: F& ]& y% F& q
<iframe id=lycosfr height=200 src="about:blank" width=100%></iframe>
1 }$ q+ G" r/ k<iframe id=fireballde height=200 src="about:blank" width=100%></iframe>
7 f$ X/ ^9 k! ?! b<iframe id=kanoodle height=200 src="about:blank" width=100%></iframe>
! E8 @% `3 z# ~! q {' S5 g</td><td>) U( e2 t+ a; D7 S5 ]
<iframe id=lycosde height=200 src="#" width=100%></iframe>' n& ?! A& g$ F. v" a' x Y
<iframe id=metacrawler height=200 src="about:blank" width=100%></iframe>* n. j M) n. l3 L
<iframe id=galaxy height=200 src="about:blank" width=100%></iframe>
9 t3 W+ e* D- u- i' s</td></tr></table>4 d* Y/ ]9 C* n: K
" F% V# z! |& l7 S2 D0 y, l
</body>
1 F% C4 |0 T( G3 L0 Z- i</html>
* I' J* {2 r: @/ w======================================================: g$ N' _: G: S; C; S6 P
Keyword Ranking
8 n9 V7 g* D8 h a' G5 ^ ?7 K S( W- E. M p" s0 Y/ d" |
Real-time ranking of keywords entered on search engines
( S/ |" o, ]: J9 W
Y8 Y; e) I, B8 K6 tMonitors all queries and lists last queries and top 109 G1 h% x1 W$ S* Q" O: m8 g
- ^" k7 M1 u; s) B6 C% R JFile Name : keywordranking.hta$ G0 I! X8 U2 S7 w( c
Requirement : IE6
) f. c9 S5 ?) EAuthor : Jean-Luc Antoine
2 }0 ~* O3 v# L. ^/ {Submitted : 09/12/20036 n! J) g$ m9 F" I0 U8 t- a
Category : HTA
+ g% ^, ]; p! [' C3 ~7 w& f: x- yRemember : The file extension has to be *.HTA 保存時注意編碼,推薦用utf8格式。$ s& d* N5 U7 g, a1 w4 r2 v- a
! c) v' ?7 l4 A
; ] @9 y# `7 \. O U5 e* b4 ^: e" L( `2 ~& u/ F1 L: J
: t" J' ~ I1 N6 i( E B/ P' @5 h7 u3 ] g% J9 m( y! \# x
- `4 C% @& x- S. h' \; s
+ P O8 J# w/ l! l" ~; u/ x+ S
0 ]% m' k% o) T1 H8 ] B& S# ~# q% Z+ k7 S
4 Z- I) b8 x( Z$ G8 X: g+ _6 O- j
; z7 l( [7 W! S5 O3 B4 s# u! l/ c" f
, l6 [4 g8 g T% ~' ^& \
% \( t8 q/ [& M0 J- F$ x0 F" {% z& e8 [. ~3 G3 a$ J) N
( E& G9 a' B8 I% ~* `7 e
# A( m( P0 C, H: J. k& ?
: ^+ r9 X5 f9 ]- X3 m+ ?" Q- L: v1 Q7 X) g# A7 s8 R; `
2 m4 `/ D& b. V$ ~. G( u2 x
1 u% \. d5 c# s5 M- \- T0 B7 T( {( U+ W. S, W" X h9 [2 Y
* J c/ a9 c$ w+ _: h |