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