过期域名预定抢注

 找回密碼
 免费注册

這個實時關鍵詞排名的腳本怎麼用?

[複製鏈接]
發表於 2013-12-21 23:13:09 | 顯示全部樓層 |閱讀模式
本帖最後由 印個歷史 於 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
發表於 2013-12-22 07:36:18 | 顯示全部樓層
樓主這個是網站的代碼嗎
/ |7 P' L, ~. w1 y# J) |# H! W1 {) K: h$ I
回復 给力 爆菊

使用道具 舉報

 樓主| 發表於 2013-12-22 09:23:24 | 顯示全部樓層
不是,我在學習腳本,感覺不多,怎麼貼出來的代碼那麼長
# v* H' d/ `$ J) l0 C0 g  D; a) R4 L. P# l$ n$ T0 K* T
我以為是類似批處理,一雙擊就執行出結果。現在看來好像不是啊。2 i) d7 f  ]3 ^1 l. E/ ^
# y  @: Y) r  j; X- a* N
8 D; G* v+ z  g% n! V, p
回復 给力 爆菊

使用道具 舉報

發表於 2013-12-22 13:58:33 | 顯示全部樓層
試了一下,好像不能運行
8 S: I4 a+ P# F
回復 给力 爆菊

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 免费注册

本版積分規則

點基跨境 數位編輯創業論壇

GMT+8, 2025-2-19 06:35

By DZ X3.5

小黑屋

快速回復 返回頂部 返回列表