过期域名预定抢注

 找回密碼
 免费注册

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

[複製鏈接]
發表於 2013-12-21 23:13:09 | 顯示全部樓層 |閱讀模式
本帖最後由 印個歷史 於 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
發表於 2013-12-22 07:36:18 | 顯示全部樓層
樓主這個是網站的代碼嗎- \6 K4 z* z& t

6 r: e: D! H* R6 I
回復 给力 爆菊

使用道具 舉報

 樓主| 發表於 2013-12-22 09:23:24 | 顯示全部樓層
不是,我在學習腳本,感覺不多,怎麼貼出來的代碼那麼長. a+ z, o% d- r" ^/ R, u

& e# j; m( @  w* P我以為是類似批處理,一雙擊就執行出結果。現在看來好像不是啊。1 I; R2 F$ ^* ?5 t2 k7 h- d
7 |$ L) d) p6 i: O+ b7 \  D# P
& s  n& i' D2 l% T: P
回復 给力 爆菊

使用道具 舉報

發表於 2013-12-22 13:58:33 | 顯示全部樓層
試了一下,好像不能運行
* r, [: f- v3 t) _- |
回復 给力 爆菊

使用道具 舉報

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

本版積分規則

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

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

By DZ X3.5

小黑屋

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