过期域名预定抢注

 找回密碼
 免费注册

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

[複製鏈接]
發表於 2013-12-21 23:13:09 | 顯示全部樓層 |閱讀模式
本帖最後由 印個歷史 於 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
發表於 2013-12-22 07:36:18 | 顯示全部樓層
樓主這個是網站的代碼嗎, O) t$ _+ S# n1 D
! J6 J4 ~* b: i  j3 g
回復 给力 爆菊

使用道具 舉報

 樓主| 發表於 2013-12-22 09:23:24 | 顯示全部樓層
不是,我在學習腳本,感覺不多,怎麼貼出來的代碼那麼長# I7 u1 n' X1 e& y/ `

. I7 L2 l4 R+ Q2 n& m' z* U我以為是類似批處理,一雙擊就執行出結果。現在看來好像不是啊。0 {7 R3 y( J; c" V* s
7 v& E7 m% X5 P, ^* j9 E- @
/ m2 n2 Z0 b* q# R7 Q) Z
回復 给力 爆菊

使用道具 舉報

發表於 2013-12-22 13:58:33 | 顯示全部樓層
試了一下,好像不能運行
7 z+ ~9 V. S2 ?& ]
回復 给力 爆菊

使用道具 舉報

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

本版積分規則

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

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

By DZ X3.5

小黑屋

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