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