本帖最後由 印個歷史 於 2013-12-21 23:17 編輯 $ _0 Q; Z! B! Y4 L4 F( d/ O
5 j% i0 Q: a1 w. _( F下邊這個編碼靠譜嗎? 能實時檢查關鍵詞排名?
* H# T, }# O: N/ `
7 l$ N! I$ k$ Z' k9 ^文件名改成:*.HTA, 代碼裡的東西沒有需要改動的嗎?2 e1 p+ K, P- o* {
. C0 k5 P( C+ A- G( I下面的編碼來自:http://www.interclasse.com/scripts/keywordranking.php7 h" H9 l) ? ?/ B+ x2 O
$ F% K) W3 [3 Y7 t# r============
; D$ w' _- K+ ]/ z9 f/ v) ]% C; L <html><head>- j I" ^9 e$ e5 z
<title>Keyword Ranking, (c) Jean-Luc Antoine</title>
3 a( e3 z4 a/ }% P e5 Z8 p% g<HTA:APPLICATION APPLICATIONNAME="Search Engine Tools"
, E, C: p- N; {) w" n5 u BORDER="thick" BORDERSTYLE="normal"$ @( K8 j9 ~5 i9 `
CAPTION="yes" CONTEXTMENU="yes"
6 l5 @- F. i- m$ M1 G INNERBORDER="yes" MAXIMIZEBUTTON="yes" MINIMIZEBUTTON="yes". e9 a- ^; p& X5 T) U
NAVIGABLE="no" SCROLL="yes" SCROLLFLAT="no"' _2 y3 I! `+ P7 S& q
SELECTION="yes" SHOWINTASKBAR="yes" SINGLEINSTANCE="no"
6 v$ n% ^- b5 k4 F: w4 w M& U SYSMENU="yes" VERSION="0.3" WINDOWSTATE="normal">
3 }: j9 [. C! G! [4 U<script language=vbscript>% l2 ^4 Y- Y3 R: k# \6 g! E R
Option Explicit+ a9 j8 y) M8 g: p1 Q/ E
' Versions :
. f! N! r0 C3 k) R8 L' v0.3 Queries and words : simultaneously ranking9 u# H: l, X- t- \4 c& w* ^
' v0.2 New look, options, many SE
! n2 Y- m$ ?) e. s& z' Multilingual system
0 ?/ s. v2 U) _4 r) G' v0.1 First draft, keyword rank and last queries
$ U/ P5 I3 l& Z Z2 L'Todo :
2 m( d) C# s# V0 i$ z5 Q, w( S0 k' Gerer systematiquement a la fois Keyword et Phrase
# p! Y5 w6 Y: T( b7 P" i- Q, b$ h' Sur les keyword, permettre de zoomer (showmodeless) sur les phrases contenant le keyword pour connaitre le ranking des variations+ k( k2 n3 q: q) V6 k: B/ y% s
' Lister en permanence les mots-clefs monitores avec leur occurence et permettre le meme zoom
6 H# [, G9 T: o. |0 `" Q4 L8 A' Mettre en gras les keywords monitores! |7 J, N7 M8 z/ Z5 `3 b0 ~6 r
' Temps de mesure0 W. n3 |3 g; J7 D- s/ h# V8 L _
' Afficher pourcentage en plus du nb d'occurences
* Q& y# f9 G* f; ^. `' Monitorer X mots-clefs et leur apparition/frequence relative
( a4 P$ @0 N" o/ i- @4 q5 b' Faire bouton de refresh manuel si ca se bloque (location.reload())
% v! ]8 K) r b- d/ |# v- N9 L+ E; a( w' gerer les fenetres lancees offline et non pas inline (intercepter events par showmodeless dialog) i, S, A& @( @5 f5 v
' identifier nb de pages retournees par requete et indice de concurrence. Q+ L* V( ?; T3 D$ f
' Permettre de sauver le resultat" j' m1 o% i( H; ]* t/ x s( _
' http://wordtracker.com/newsinput.txt
$ F i8 f' v5 r+ X, Z
& K* k9 l8 l3 P1 PConst C_MaxList=20 '### Change this, predefined for TOP 20
% G2 ?: C& Z- w2 RDim d,dw,a(),b(),f(),g(),i" P9 [3 |5 A; @0 _; Z7 A
Redim a(C_MaxList)
0 x$ Y z0 ~0 J$ oRedim b(C_MaxList)
1 V: d5 r9 B! o- p7 s5 BFor i=0 to C_MaxList-1: N a) C+ `, G" l
a(i)=0 'Nb d'occurences
! a7 f1 J. i& l+ D b(i)="" 'Value
7 H5 H* } [& ]% [Next
/ t0 ^6 j4 D: ?* `* U6 iRedim f(C_MaxList)) s6 K1 C- {! i& }% a' O3 O
Redim g(C_MaxList)' J* Z! {/ T1 Z1 O: E0 D
For i=0 to C_MaxList-15 X, ]& N& ~. P- T
f(i)=0 'Nb d'occurences8 Z. N: `: E( U P+ o
g(i)="" 'Value
* U. w5 D* l* I xNext
* u8 @! h( T' B- C+ P2 g9 ASet d=CreateObject("Scripting.Dictionary") 'queries
: o2 Q, \7 `( O# {) W0 |d.CompareMode=1 'vbTextCompare( N/ }3 G5 q! D; l
Set dw=CreateObject("Scripting.Dictionary") 'words
% Z" r" e# V- O5 I9 Jdw.CompareMode=1 'vbTextCompare8 A1 g- w b2 K c
, y4 @% n* W i5 P( |
sub go(SE), |+ W: {8 r# ]
Dim s,x,sq,s2,sw
- [& O8 \7 G5 T; [( P2 J Select Case SE
6 v$ I" s: n8 ?: B* u0 F Case 0& Q# B7 v5 g( C' r+ }2 ]
s=RegExpTest("pursuit\?query=.*?&", lycosfr.document.body.innerHTML,15)
( [5 P' s; v! H. n# i5 c6 }$ T5 V Case 1
. O! t! J$ i; g& u( s s=RegExpTest("pursuit\?query=.*?&", lycosde.document.body.innerHTML,15)
8 i4 t+ }6 Z' @/ f. L Case 2
( Y4 J# y: C9 d% k6 \. K9 f s=RegExpTest("[^a-z]q=.*?&", fireballde.document.body.innerHTML,4)
& f$ b3 D: M: k/ b$ C Case 3$ ]2 K% Q1 U5 F; M) v( r
s=RegExpTest("\?qkw=.*?""", metacrawler.document.body.innerHTML,6)
* x8 o& Q2 V. k4 W Case 4) i3 I `6 t0 [* N6 X: u6 `
s=RegExpTest("return.cool\?query=.*?""", kanoodle.document.body.innerHTML,19)
5 V) c* S* X( W% ^6 V8 r E4 a5 p Case 5, b1 B0 O3 {- o2 X( k# C
s=RegExpTest("/w.galaxy.com/b/q\?k.*?""", galaxy.document.body.innerHTML,21)
2 _. \3 ]! `, V7 e6 b7 U) ` Case Else7 y) X4 @- S; a( ?% s' S# G# J
msgbox "Unknown S.E. : " & SE
% h0 @6 P+ P& A+ z8 R4 s4 x End Select
A; g/ N& R+ X- W+ ]# O s="<pre>" & s & "</pre>"9 X8 Q$ Z# ~ R6 s0 z) u5 q
5 R+ k9 s; x3 Z+ E- u% [ sq="". y8 r& U! F. y. o% I: I1 U
For x=0 to C_MaxList-1; u/ z U8 Y E% c3 |* u. U* i Y
If a(x)>0 Then sq="<tr style='background-color:#eeeeee;'><td>" & a(x) & "</td><td>" & b(x) & "</td></tr>" & sq. W% j; m$ l) y% v+ T( v* D
Next5 k! j1 }) s( M
sq="<table style='border:1px solid #222222;'><tr style='background-color:#dddddd;'><th>Total</th><th>" & Disp(5) & "</th></tr>" & sq & "</table>") {0 W/ J) h) |
6 b. b2 d6 e: K8 `0 D$ W5 O2 j
sw=""
5 M% b$ v6 D; P2 ~( D For x=0 to C_MaxList-1# |; v7 Z9 h- b4 r/ e* k& T* i
If f(x)>0 Then sw="<tr style='background-color:#eeeeee;'><td>" & f(x) & "</td><td>" & g(x) & "</td></tr>" & sw2 z* D3 N4 p# p
Next2 x- y5 K; H1 t: ^% R+ }7 X6 I
sw="<table style='border:1px solid #222222;'><tr style='background-color:#dddddd;'><th>Total</th><th>" & Disp(9) & "</th></tr>" & sw & "</table>", ] W! A* f( J3 ^( }
- O: Z7 x* Q" `( t K s2="<b>" & Disp(7) & " :</b> " & d.Count & "<br>"
' s+ ^: \5 [ ^+ ~ s2=s2 & "<table><tr><td valign=top>"3 p) | S# a/ A8 Z3 H. R
s2=s2 & "<b>Top " & C_MaxList & " - " & Disp(5) & "</b><br>" & sq & "</td><td valign=top>") p8 S$ ?; h6 X! k
s2=s2 & "<b>Top " & C_MaxList & " - " & Disp(9) & "</b><br>" & sw & "</td><td valign=top>"
1 \* O% i2 @ v H$ W q0 p5 [ H2 K- M s2=s2 & " <b>" & Disp(6) & " :</b>" & s% [, \4 T8 B0 j; Z1 ]
s2=s2 & "</td></tr></table>"
) d* ]/ q, n: S, [: H3 c, b MaListe.InnerHTML=s2/ E4 C8 R: I) g0 q; ~; E4 u% P, h
End Sub
* f, z/ n j' S& m8 J8 U2 X2 z" c- \) ]
Function RegExpTest(patrn, strng, Pos)1 V6 n. G$ P: V7 T* I
Dim RetStr,regEx, regExw, Match,Matchw,Matches,Matchesw,Matchesws,k,i,j,x,s,w
& p2 m6 [- Q; V& y" Y Set regEx=New RegExp6 i& v: O& F" u. T9 E
Set regExw=New RegExp1 I8 Y5 q: r I) M1 t& k- T* d
regEx.Pattern=patrn
1 x m5 H% l4 ~' O3 z regExw.Pattern="\w+". b2 q/ F: Y- @! ~& O
regEx.IgnoreCase=True ' Set case insensitivity.
: Z4 t" X1 V4 i4 H5 y regExw.IgnoreCase=True/ p) t7 `0 @2 ~
regEx.Global=True ' Set global applicability.0 H0 a- F2 s. U$ t
regExw.Global=True0 Z" o0 w/ m# p7 t$ s1 w
Set Matches=regEx.Execute(strng) ' Execute search.! ]2 P' }; d" S7 [/ {
RetStr=""
9 a$ M9 d }( a5 n$ ^ For Each Match in Matches( r9 K8 f! T" n4 y6 n1 v- X) z9 J
s=Mid(Match.Value,Pos)6 b9 I2 R' k# A9 h; a9 K3 z4 E3 p
s=Left(s,Len(s)-1)
& l/ |; O4 S0 u/ I" P s=Replace(s,"+"," ")! R1 h! H/ I7 y/ `
s=Replace(s,"%20"," ")
1 [& q. l. D2 Q/ w) u s=trim(s)3 l1 e! M, |- I7 q( ~ v) p
If s<>"" Then
) ^; B5 D: X1 V1 z ` s=Replace(s,"%21","!"):s=Replace(s,"%22",chr(34))
* N4 |7 J* H/ Q& _; v" F s=Replace(s,"%23","#"): s=Replace(s,"%25","%")3 {" z- ?- i7 j# k) L+ {# j* V
s=Replace(s,"%26","&"):s=Replace(s,"%27","'")) [- `4 m7 P+ g4 }2 |
s=Replace(s,"%28","("):s=Replace(s,"%29",")")
$ K3 m' A: l4 R2 _, E s=Replace(s,"%2A","*"):s=Replace(s,"%2B","+")2 w# q, x( e7 G4 s. H+ O/ k, s
s=Replace(s,"%2C",","):s=Replace(s,"%2F","/")0 ^8 t2 d: l3 j' j( i
s=Replace(s,"%3A",":")3 A: [+ [ L2 L/ X
s=Replace(s,"%3D","=")
7 v; V4 k# s* D3 G+ D9 S2 [! ?) ? s=Replace(s,"%3F","?")' v- ~7 z/ x4 D0 C d
s=Replace(s,"%40","@"):s=Replace(s,"%B4","′")
& n, M) o) z# w, ~/ Z# s s=Replace(s,"%C4","A"):s=Replace(s,"%D6","O")
4 I+ A) ]: T2 }7 U6 ^ s=Replace(s,"%DC","U"):s=Replace(s,"%DF","s")
- ~+ T3 a S m. t s=Replace(s,"%E0","a"):s=Replace(s,"%E2","a")
: ^0 Y& \# X& ~5 k s=Replace(s,"%E4","a"):s=Replace(s,"%E7","c")
" L. |( ?3 G8 l( F s=Replace(s,"%E8","e"):s=Replace(s,"%E9","e")% Q. j; \- l, h; O
s=Replace(s,"%EA","e"):s=Replace(s,"%EB","e")( Q/ w1 _9 N4 ?5 g: N. k$ G3 L- G, w
s=Replace(s,"%F6","o")( o$ d! k t7 o& s& @4 C
s=Replace(s,"%F9","u"):s=Replace(s,"%FC","u")# ~: V# |3 |! ?( d3 Q% v
s=Replace(s,"<","<"):s=Replace(s,">",">")
^) @6 e* H' N' @; K1 M4 [" y If d.Exists(s) Then
9 F, z- q4 F* K4 Y' h: q. R8 n: q k=d.Item(s)+1
, O& N/ t" M3 p4 G4 J* f4 b d.Item(s)=k$ X1 v9 l' [# v1 S+ h- Y' K
i=-1 'If more than the first value, insert it
* F7 t0 t) N, j" [" Y do while (a(i+1)<k) and (i<C_MaxList-1)
% ?4 M; _9 p% W0 B1 D i=i+1
' d: c: Y1 d8 Y' Q7 q6 Z3 X9 T* _ loop
: o( Q( V( z' Y) v& W( T if i>=0 Then 'i=where to be inserted
4 O& X) N% z$ a" B x=0
# |# X1 X/ c) b8 X For j=0 to C_MaxList-1
- ^9 }( U9 G9 E If ucase(b(j))=ucase(s) Then0 X9 G8 m. D2 O$ ]. F3 T7 m G
x=j3 d' }9 ~; A# q
Exit For, }& w9 U0 a- k
End If
& Y: ]4 i" }. i( L, M7 {# q& N3 ] Next, i0 ~7 H8 I! l7 B
For j=x+1 to i
9 a$ E, B7 x* j+ c, q2 N; {4 [ a(j-1)=a(j)
6 ]+ ?7 N o- l2 h b(j-1)=b(j)6 e' ]. `& G9 C; ?4 B6 }' E8 m
Next8 C1 ~9 ?- q6 Y% f W* ]6 z
a(i)=k
5 e2 q+ P$ F" ^' E' \. y b(i)=s F, Q$ K# m- O; ]9 K0 L6 E
End If
$ G' j/ w0 m F- g8 `5 [3 V0 t Else0 F1 I) G1 p( J7 f0 ?, V
d.Add s,1
2 Y3 O) x4 q2 z+ x; t7 { End If
" l- X2 G0 f/ ` RetStr=RetStr & d.Item(s) & "-" & s & vbCRLF
) e( x5 W h, S3 z6 ~- x
1 x% m& U* E' \6 A 'Extract Words
P" G: T% b6 [2 P8 O Set Matchesw=regExw.Execute(s)+ J1 G( }) J! M, b
For Each Matchw in Matchesw
: r2 Y3 W* j: M. a# y w=Matchw.Value
% i" L y0 v+ {. D- p: x( C8 W If Len(w)>2 Then( X* [+ I! z% u* {- B, L( j5 Z
If dw.Exists(w) Then/ g% i7 f& b) f% J6 P6 W0 d3 l
k=dw.Item(w)+1
0 E* S$ B- B# a7 `' v' u dw.Item(w)=k
; {; B# a2 n& g& M i=-1 'If more than the first value, insert it
7 X" A6 r* y2 l/ o2 S6 }7 ]' J do while (f(i+1)<k) and (i<C_MaxList-1)
/ b* S7 x5 z$ Q. Y+ [7 H5 O" E7 x i=i+10 \* f" ~8 r2 m% u ?0 G
loop0 Q. e1 T' U& k0 E* F, R3 J
if i>=0 Then 'i=where to be inserted
9 F% C% L% m" L. A& [# {+ U7 w x=07 ~0 H2 C. f. z- q+ C' B$ U, ?
For j=0 to C_MaxList-1
6 o0 {9 ~" |5 i+ S6 v" G7 Q* v8 O If ucase(g(j))=ucase(w) Then8 I# h4 `/ b" U5 ?; i3 a
x=j" q5 ~+ R0 F/ G
Exit For* }7 _5 U& [5 b6 \5 o, c, L1 T; K
End If3 O: c" }% F3 ]7 r/ H" ~9 B
Next2 _4 {9 X5 e2 n6 H0 ?
For j=x+1 to i
( L+ y( D ?: D' }8 ]8 e f(j-1)=f(j)
M+ j* k3 L( ~7 H g(j-1)=g(j)
! P1 Q& Y, o. Y) C: z Next: N% a2 `. j" {7 z5 g& ~8 K
f(i)=k" q z& }, Z I+ d
g(i)=w2 V1 u& v4 \6 h
End If
9 s- v1 g; K6 B4 z0 T Else
! A9 f% z$ E4 c% U6 z/ P7 E; D dw.Add w,11 ?2 T. K; X+ t
End If; R8 V2 V& o8 [8 F i0 v+ x: c
End If5 x$ a- z4 h0 s
Next3 L# A4 ~$ y- ~, E( ^) N5 N
End If
6 Y& R! `5 y y; d) W8 S) S/ w6 | Next
/ t' r" t3 O! v9 D RegExpTest=RetStr& L% \0 W3 U1 X6 K
End Function
6 s2 S9 E0 \* g5 h+ x7 @2 u# Z" |: i' ?. x( z: G
! @ f+ l1 o4 g" }4 S
5 X: h& [' w/ I. S$ G
/ G( C8 b! n' B% V2 T</script>, l; ^5 @' |) b/ T& N/ J4 G" ?7 |1 z
<script for=window event=onload>
$ s. f+ H7 }' r DoLoad
# E. @6 l$ m- W, z</script>
# A: I6 l [9 P+ F<xscript for=window event=onbeforeunload>
0 l) Q' L9 ~! m& ~" I 'DoSave6 D# v& m( A. R( Q- R. k' Q
</xscript>: I2 v% x8 C& d K/ o
<script>4 i; w; D4 Q: M# M+ I
Sub DoSave
) i/ g. x% I% }; D. k3 Y6 ^ foo.setAttribute "content", foo.innerHTML
: B1 e7 u2 \; H- y9 a foo.save "EditContent"
v$ |3 t* O% S) H% r+ W# PEnd Sub$ ~3 ^$ w6 I( K
sub DoLoad( p( l: C: `9 u; T
foo.load "EditContent"
c3 R/ G: u y8 X' D# u. @ content = foo.getAttribute("content")4 d5 i' r/ u5 ~+ f. u2 u7 \. C
if content<>"" Then foo.innerHTML=content8 Z' C4 I0 h# p) o3 a+ p+ i% x
End Sub
7 J- [9 x2 C& {- F* [0 Y1 iSub DoClear6 L L8 ^: _9 ^
foo.innerHTML = ""
8 n: q' B% s9 [End Sub
# I: M* T6 f- { s6 {% u E+ g8 P) d+ B! ?6 J
Function Disp(x)
9 i5 {' P \" [3 Z3 z- r2 { Select case getlocale. @ K; R# Q$ y% i8 u, T
Case 1036,2060,3084,5132,4108 'French% F6 r) G+ I$ x* e3 i+ m5 [7 |
Select Case x: K5 L6 z. Z8 k* y9 X
Case 0 'sous-titre
; Z5 T5 t, f/ o: A Disp="Outil d'analyse de requetes - 1 backlink svp !"; B4 z5 u# _; F! _# ?7 j9 C
Case 1" M. u9 C. g+ ?" `* T- J% {
Disp="Votre liste de mots a monitorer :"
, \: P0 x5 w# s$ @- z& C8 \ Case 22 V7 x1 }0 I2 t8 x0 A9 N) s
Disp="Sauve"
, O/ G" C! k1 F+ D1 c4 [" W Case 35 T6 J, Q8 I4 I2 w
Disp="R.A.Z"% S3 K0 Q' Y0 ?& }3 X
Case 43 T1 Z6 Z8 R6 I
Disp="Charge"
' T4 L' _$ f, W8 S" g Case 5' _9 E* G9 [- V3 ^$ r
Disp="requetes"
+ s9 D- P* r+ M$ E6 U" R Case 6
) r) E3 _, S, ]3 F/ N3 d4 b" } Disp="Dernieres requetes"
! W5 k$ B n, R" P, W* l Case 7
; Z: [- ~4 K5 M5 B: e2 \ Disp="Nb de requetes lues"1 {' A E* A# M1 @
Case 8
" ?# M: `9 o6 ] Disp="Cliquez dans le menu pour activer l'analyse d'un moteur."_
* g) P4 \6 R, ^& n1 ? & " Recliquez pour la desactiver."
, L/ Z3 {* T! U3 ?/ t2 B3 k* k4 a& W Case 9
0 Z9 [% f' |& o Disp="Mots"
D# r+ J5 o9 F I% F Case Else
1 w1 C% C" q) w j0 [. t9 L6 S8 Y Disp="###"
% S- U" b* J l- S+ t% Q End Select
: `/ Z; k/ c# | Case Else
7 U+ o0 N) T" t6 U Select Case x
C* n7 i( R" u8 o' ~6 D Case 0 'sub title
4 U5 W3 N1 G# D Disp="A linkware search engine analysis tool"
- h' {/ r1 `* I8 _! I1 O$ @5 K* r Case 17 F. n- b; o. I, M
Disp="Your keywords to monitor :"1 O9 }/ i9 B$ A. Y# M
Case 2" }4 ^4 U, b) E/ j
Disp="Save"" n+ O# O" t4 Y' M+ R, G$ u
Case 3
' N2 ]7 ~( [2 X- z Disp="Clear"
* S3 d5 Z, ^* R4 V8 X Case 4
w/ i1 [4 ~) \: N: {; o$ L' U Disp="Load"0 T& A. `) C' t2 `* j- p
Case 52 ^) s* u% e' y; \
Disp="Queries"3 y7 e) ?9 [2 z1 F, h3 f( E
Case 64 r2 e; G6 r i5 k6 |4 w
Disp="Last queries"5 ? I2 Z3 W, s1 s: o' F7 W2 E
Case 77 R3 _* Y# A9 B. v( Q3 m3 q8 b: \! B
Disp="Amount of scanned queries"
# h2 y, F# K. c l Case 82 n8 k% ` e. E, ^
Disp="Click above to start the queries analyzis on a specific search engine."_
* l, e3 K, }% Z8 ^6 }, r' ? & " Click again to stop it."" G! i. }6 F7 N; ~
Case 9; T: I7 S! a% v3 [
Disp="Words"( |2 s* Z* U" h8 F% b2 g
Case Else3 ]! o' b: |. P% J1 h( i
Disp="###"& y( T: ?9 X* x
End Select
2 r$ P8 o& z& h+ h End Select
8 ?* d& l1 ?+ o9 p7 P) }End Function
2 z x, v9 ]& o2 `6 y% J( ISub DispSE(x)! B% W( ~/ z. _: s0 n+ P v0 N
Select Case x' E: |+ q* @% Y, @4 D
Case 0
2 `/ n0 ~+ b" P7 e9 }/ U if lycosfr.location="about:blank" Then
. l2 V' J3 @( _: } lycosfr.location="http://www.recherche.lycos.fr/voyeur", l; [ t4 A' V: Y" H" `( B
Else7 a! y+ B" v! `
lycosfr.location="about:blank"9 u2 U7 U) e. M8 a8 M
End If
, o# W$ N$ G5 \0 P# p ?, Z Case 1
7 N6 [. j4 L! m3 }8 s: } if lycosde.location="about:blank" Then
4 B; ~( `0 r, T s lycosde.location="http://www.lycos.de/inc/content/suche/"_3 V, S1 e: ^6 d6 i
& "includes/livesuche_iframe.htm?ergebnisse=&refresh="
7 u+ B. F* D$ I Else
# {" e) e- @ y% C lycosde.location="about:blank"
1 c1 G/ I7 u4 s' e/ V/ K* y End If
) n( H0 `. Z+ x# ^ Case 2( i/ b$ d9 x" ?9 V- k1 n
if fireballde.location="about:blank" Then
$ ?6 }6 @4 Y! ~1 A% v fireballde.location="http://www.fireball.de/livesuche.csp", L6 ?% q( \7 M+ P4 M
Else
6 n1 e7 d/ B: y6 s0 V" l/ E fireballde.location="about:blank"
8 T: l5 n3 O6 g; f End If
8 {+ N W' Q& p$ B6 y) t, s Case 3
$ k! d0 H& G" l* u6 J if metacrawler.location="about:blank" Then6 D7 o9 G' {3 Q1 m8 _& ^/ d$ ?
metacrawler.location="http://www.metaspy.com/info.metac.spy/metaspy/unfiltered.htm" z* }9 X' X8 c& w/ b
Else
% ~* }+ F7 Q7 c, H ^" W; q- F' Z, N metacrawler.location="about:blank"' |. m" H9 @7 F9 y
End If
. i: f; n( L, u# T6 o) G" s Case 43 ?8 V: Y: C. O' D' ~* w% r
if kanoodle.location="about:blank" Then2 u+ Y' ~7 Z0 o3 m
kanoodle.location="http://www.kanoodle.com/spy/spy.cool"
: Z& I; f. f6 z Else
# i1 ?2 g+ ?4 M kanoodle.location="about:blank"
3 p: t2 O1 t) H( y5 f End If) [2 H4 d H/ {
Case 5+ E G) M- v% G+ C
if galaxy.location="about:blank" Then
% g4 k4 Z3 `+ T! F7 w: V1 h1 V galaxy.location="http://watch.galaxy.com/b/watch?filter"0 \! A0 ^ L) L- U& ]
Else( Q6 B8 J: C9 ~: u* G) Y/ T) k
galaxy.location="about:blank"! D2 O" T1 }" I% t( J- n) H( h
End If
8 ?& N. j g' A6 u Case Else& t3 {' Y* ]$ ^; E
Msgbox "DispSE : not found - " & x
, L8 `# k% h, E4 ` End Select& {, p7 Q% \2 y' z* [! @
End Sub: L* t: E! U0 Q3 h( m0 L4 x* h$ {7 e* k
3 n/ O* a+ T% S! r2 v, X</script>
% |; H6 Q% g5 Q$ z8 } D<style>& |6 q- Y& l9 d2 g
body,td,th,p{font-size: 11px;font-family: Tahoma,Arial;}
9 x6 J; e: R8 v8 F/ y7 M" X.topmenu{
( _3 ? v4 Y& ` border:1px solid #222222;
+ Z* ?3 P0 E2 p& H, _2 H* s- _/ t ` background-color:#eeeeee;& Y8 \/ a1 [" ^
}, E: v6 x, h: J/ o7 n
.topmenu a{
' k) R% ?3 u; g+ X) } height:15px;
: P6 Q7 n {$ N7 _( B! i6 S background-color:#BDDCBD;
' ~ I% V# M! t" {: u8 c& R0 p padding-top:1px;9 R! d% ]% }8 W+ U
padding-left:5px;
* E n4 @- t N padding-right:5px;
3 Y/ x8 y: k- d0 c, V9 p text-decoration:none;% R! b- Q+ h: b0 _; x* `
color:black;' }7 m1 |- M3 C+ X, L) B8 G- e
text-align:center;
2 S& O2 h) G3 A$ F5 E display:block;, m7 L7 w0 o8 j+ K7 B
}' o' Y! k/ g( h. i& n- V4 `+ A
.topmenu a:hover, .topmenu a:active{
6 q) j! x) D2 E' U5 s5 u5 \background-color:#89DB89;color:black;
; R0 O4 W R2 J}
" h( Q9 v# r0 `5 L) f, i5 m* I#rb{border-right:1px solid #222222;}
+ J) A* }7 W" X* i6 FA {color:#AAFFCC}# A; v% m% {2 d( G3 f2 ?! l2 Y
BUTTON {font-size: 7pt;cursor:hand;}
: R3 }0 l: S8 ].userData {behavior:url(#default#userdata);}. d0 |* T5 `' a5 f* X
</style>8 E! u3 t* c2 ]
7 y* K _- {- k6 y5 Y</head>
7 P1 b& ?9 J- T7 u- Z
$ r/ y0 v2 T# }/ ^: V<body bgcolor=white text=black style="margin:2">* l6 }1 f" G# B9 r( g& {5 O
<a href=http://www.interclasse.com/scripts/keywordranking.php>5 x8 m- r1 ]8 r; i1 Y& V8 V1 n
<img src=http://www.interclasse.com/pics/avatar.gif align=left border=0></a>" k8 d1 h! {( `; o$ D M
$ {# q9 R/ A3 v; k0 B# D
<H1 style="margin-bottom: 0px;">Keyword Ranking</H1><Script>document.write Disp(0)</Script>
$ R; t: [- D6 e- Y- z! u/ M3 d5 }% y& D* t8 m/ Q' `
<table class=topmenu border="0" cellpadding="0" cellspacing="0"><tr>7 O8 J6 d+ |4 K2 Z3 R" E( @
<td width=60 id=rb> </td> B: D4 A. t( K! q% U
<td id=rb width=80><a href="#" onClick='options.style.display="block"'>Options</a></td>
, z/ r ~2 K- N6 w! a8 y<td id=rb width=80><a href="#" Title="French">Lycos.fr</a></td>7 P: P, i* ]4 |7 R; r; v ]/ U6 c+ M
<td id=rb width=80><a href="#" Title="Deutsch">Lycos.de</a></td>9 X$ Q0 V; d! w, w; y3 H9 ?
<td id=rb width=80><a href="#" Title="Deutsch">firball.de</a></td>7 N" N$ z; G; [9 t" T
<td id=rb width=80><a href="#" Title="MetaSpy">MetaCrawler</a></td>2 U/ ]3 m" ^% [! I5 q* E
<td id=rb width=80><a href="#">Kanoodle</a></td>2 \( Y3 l9 [. [1 s" }
<td id=rb width=80><a href="#">Galaxy</a></td>' P. j% O9 w3 K
<td width=60> </td>
4 L( j+ c+ K; @) |" a</tr></table>/ w9 d" s- G5 a6 Q. n2 k" G( i
<script>document.write Disp(8)</script><br>" J2 Y. V" A4 r; g# F/ u) j
8 I6 k1 f, M" G3 [5 t<div id=options style="display:none;width:180;border:1px dashed #222222;background-color:#D0D0D0">
_) f; c& Q. ~! S; f) `, S<script>document.write Disp(1)</script>( d$ `$ f# l9 }/ r+ A
<div id=foo class=userData contentEditable=true style="margin=4;width:170;height:14;border:1px solid;background-color:white"></div># G2 c0 @& a% {. @
<button onClick='DoSave()'><script>document.write Disp(2)</script></button>$ A4 Y! d4 e- Z# {1 n* }! T2 T
<button onClick='DoClear()'><script>document.write Disp(3)</script></button>9 d# O) k0 h- S
<button onClick='DoLoad()'><script>document.write Disp(4)</script></button>5 T) ?$ ~: \. A8 v, \2 W, E$ z
<button onClick='options.style.display="none"'>ok</button>
) ^/ @% }9 M$ D' p, ^9 |</div> z5 `. V: `+ L3 J! Y ]
7 P6 t* a6 p: ~
5 z) [7 N" b3 X8 O" H3 {( H<div ID=MaListe></div>; O5 |/ R8 b& O7 Y& Q1 R
+ }$ m: a8 C% W
8 h( I1 S5 o1 ]4 W+ A% W" t
<table width=100%><tr><td>
1 V9 Z1 E9 o. f3 a6 |1 X<iframe id=lycosfr height=200 src="about:blank" width=100%></iframe>; g( _' T2 [$ @
<iframe id=fireballde height=200 src="about:blank" width=100%></iframe>8 g0 q' y a: `1 ^4 T1 Q( N8 n! r
<iframe id=kanoodle height=200 src="about:blank" width=100%></iframe>7 G7 D$ J- D0 r# |, M
</td><td>( q( |' G9 B/ y
<iframe id=lycosde height=200 src="#" width=100%></iframe>
. |, ?+ S+ p: h<iframe id=metacrawler height=200 src="about:blank" width=100%></iframe>7 G$ t6 c8 o5 W; p
<iframe id=galaxy height=200 src="about:blank" width=100%></iframe>
) _1 X9 S* L/ a& _7 N; d$ M6 ^</td></tr></table> L4 ?- n8 u4 ^+ j) W7 T
& Q% x2 I7 E U7 W
</body>- \9 W, X9 L" I2 w! g1 Y+ I
</html>
. f1 n3 M3 y' f- S0 i0 a1 J" ~======================================================
; U: O( j& Z- s$ a, Y: u1 VKeyword Ranking
9 X. w3 e% N$ I2 a4 ?
1 {% A p& e4 l' nReal-time ranking of keywords entered on search engines
/ d4 C: j* v/ W) r: I9 F0 ]! Q7 K. b# F2 d) W+ C; `7 j
Monitors all queries and lists last queries and top 10/ q( ~+ r2 f" W, Y
; a1 ~$ H' x9 [% v5 H3 yFile Name : keywordranking.hta) \( s$ s/ W. W6 J. L+ b
Requirement : IE6
5 K6 G* {7 L! q# z1 `Author : Jean-Luc Antoine
/ {' n" S* m: Z& p5 O% Y- ~! I" sSubmitted : 09/12/2003- k" w/ _5 j% D4 X* u
Category : HTA! a+ h q( Z& Y* _$ S& s% r
Remember : The file extension has to be *.HTA 保存時注意編碼,推薦用utf8格式。" a3 D: b4 ^% G! ~. ?8 B
& V# }( p) g& V8 ~ |0 K0 ~ T6 @2 J! A. ]% X( J* P
/ k% }* b& x. e: \& n# h
) M# ]: @! Y! `% \8 @5 Q. C1 q; }) f. {, M n( s" A5 K) W
( |: |/ i- ]! P, ~0 H, Z, [ @" N8 A# Y
) g. U4 e) `& G p
' C* q7 `- ]" W' J& |- Y/ j
" I G4 @1 B- L3 R: x
4 l9 o, Y5 v: R( L/ N8 V7 c
) ?- z. c: c& b& F6 f9 k- w& G% ?, V. o! T. r7 s
7 n( a. r, j/ q; W8 e% D' F0 o& n- J# q$ X
& `9 b6 Y2 D" g K* Y) n2 s C. F* [, H! X5 N7 y4 p0 d" e3 R
. b4 c8 m Y" {( d! B
( h' L D# L+ {. E
' X; Y; w. R( S2 t n
$ L9 w* H1 y- j6 L* n- Y) v; f! O; Y0 F2 m1 E
' I0 x9 C( v' _7 ]; O* ~5 B
|