过期域名预定抢注

用戶名  找回密碼
 免费注册

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

[複製鏈接]
發表於 2013-12-21 23:13:09 | 顯示全部樓層 |閱讀模式
本帖最後由 印個歷史 於 2013-12-21 23:17 編輯 0 _2 o6 _% a  ~" S: D
1 d9 |2 Z$ v, y) Z- ~
下邊這個編碼靠譜嗎? 能實時檢查關鍵詞排名?+ {) o; O- n* t# H8 \

4 z, v; K3 [, g. ]' A" W) t% X! P8 H文件名改成:*.HTA, 代碼裡的東西沒有需要改動的嗎?
  M) b" |6 R3 _% {0 t, Z5 d9 e0 g/ M
下面的編碼來自:http://www.interclasse.com/scripts/keywordranking.php: j' Q" p3 V2 t- K7 ?! _+ a
; E. C8 H4 _( V, J
============6 o0 V& ^$ F6 Z: S& Q8 O7 u) t
<html><head>" Q: f% o+ l6 n/ H# b' o
<title>Keyword Ranking, (c) Jean-Luc Antoine</title>7 K9 u* x% ?8 [. {8 t
<HTA:APPLICATION APPLICATIONNAME="Search Engine Tools"
) N2 B  q3 ~5 W$ q2 {: h( X  }) u        BORDER="thick"        BORDERSTYLE="normal": n% j% T0 B; {5 [
        CAPTION="yes" CONTEXTMENU="yes"* F/ ]; `! W0 b) w
        INNERBORDER="yes" MAXIMIZEBUTTON="yes" MINIMIZEBUTTON="yes"; K/ v5 [, T' p
        NAVIGABLE="no" SCROLL="yes" SCROLLFLAT="no"8 A$ o0 P- C* O: f
        SELECTION="yes"        SHOWINTASKBAR="yes" SINGLEINSTANCE="no"" K' l" ^- l# m) d; |0 J- R" u2 E
        SYSMENU="yes" VERSION="0.3" WINDOWSTATE="normal">/ A: W2 ^3 [  E# o4 w8 n' ?+ P
<script language=vbscript>
8 d: Z3 o$ A7 k# k0 P: V, a- EOption Explicit, V5 y- {6 |5 w
'        Versions :, J6 Q6 j# d0 {  u5 r$ `
'                v0.3        Queries and words : simultaneously ranking& K& ~1 u6 d! i! S. s7 r
'                v0.2        New look, options, many SE, E1 ~$ v% `* r9 ?1 F, g
'                        Multilingual system/ o" k3 N! E+ |
'                v0.1        First draft, keyword rank and last queries7 {" Y( ~5 B; I2 |- U" K0 e0 i; U
'Todo :
# N/ g9 x& n2 g: f+ v5 c'        Gerer systematiquement a la fois Keyword et Phrase& F/ e; C, \5 W; x; y  a
'        Sur les keyword, permettre de zoomer (showmodeless) sur les phrases contenant le keyword pour connaitre le ranking des variations; j) C3 T6 I  B: o" q, r# `
'        Lister en permanence les mots-clefs monitores avec leur occurence et permettre le meme zoom& |8 ?8 |- @6 G2 c
'        Mettre en gras les keywords monitores1 |) s' C! b% O
'        Temps de mesure
; |3 R1 ?6 l: _'        Afficher pourcentage en plus du nb d'occurences+ }  i+ G; }  \
'        Monitorer X mots-clefs et leur apparition/frequence relative, f# Z; s- Z& |0 z- q
'        Faire bouton de refresh manuel si ca se bloque (location.reload())2 q7 z& ^( V) i$ z
'        gerer les fenetres lancees offline et non pas inline (intercepter events par showmodeless dialog)2 i; l% |% i+ W6 q% M
'        identifier nb de pages retournees par requete et indice de concurrence
, l& ]$ B- }  z9 y* L'        Permettre de sauver le resultat8 a* _1 U6 P) \* N. t; @
'        http://wordtracker.com/newsinput.txt- {6 R! Q; d9 Z8 V

) I! ~: K/ g' w8 G2 L: N& o3 gConst C_MaxList=20        '### Change this, predefined for TOP 206 o% f# k4 ]7 ]$ P( z" n
Dim d,dw,a(),b(),f(),g(),i/ e7 ]& d# b5 C6 h5 i; S4 t. M/ C
Redim a(C_MaxList)
0 d5 ^3 k& L% v& TRedim b(C_MaxList)
8 m. `* {8 r- E& ]/ KFor i=0 to C_MaxList-11 J% R* S8 R* G2 c
        a(i)=0        'Nb d'occurences2 N4 w. W' p0 T5 X7 y% r
        b(i)=""        'Value
/ N9 a) n2 z1 _3 XNext
! b% q1 B4 o' m7 ?- G+ Z3 I: \Redim f(C_MaxList)0 o) S. B! g9 Z8 i
Redim g(C_MaxList)
4 K8 ?7 |$ w- w: m, `" V4 ]2 }2 IFor i=0 to C_MaxList-1
) s) H& o# D5 e1 ?+ Z6 K        f(i)=0        'Nb d'occurences# g' b: }) n0 H2 [! ^- r/ {
        g(i)=""        'Value" \, a; o5 u$ O- B7 S% u
Next
3 _& P$ p. B  m& T" L, dSet d=CreateObject("Scripting.Dictionary")        'queries
( \8 u5 G" X; w/ N+ [# p* l3 T9 Z+ Qd.CompareMode=1        'vbTextCompare; z# j( \% w8 `- `, x- E
Set dw=CreateObject("Scripting.Dictionary")        'words( s' Z5 Q& h& P7 A; e: i
dw.CompareMode=1        'vbTextCompare; g: v4 G3 ?8 s! \( l" u
: k  e% ^: b  X3 n. @* i
sub go(SE)
& P/ j9 w, Q( q1 |2 I  P        Dim s,x,sq,s2,sw
; S% x# W" U# }4 X1 H        Select Case SE
' V7 c: S, y7 T" L% q3 x        Case 0
& Z* @# A: T' \: _* w- f                s=RegExpTest("pursuit\?query=.*?&", lycosfr.document.body.innerHTML,15)( O& T9 m, z! @# t9 G! `
        Case 19 g* n, ^* O, n: ?/ y
                s=RegExpTest("pursuit\?query=.*?&", lycosde.document.body.innerHTML,15)0 s: i0 q3 T- R0 k
        Case 2
: P$ e: j: n6 S8 L                s=RegExpTest("[^a-z]q=.*?&", fireballde.document.body.innerHTML,4)
, ^+ V0 a, S7 s' O2 U        Case 3
1 V% r' f) k1 \' i! p                s=RegExpTest("\?qkw=.*?""", metacrawler.document.body.innerHTML,6)
0 t: [# s2 B8 S        Case 49 f3 x8 X, B* \/ r2 h
                s=RegExpTest("return.cool\?query=.*?""", kanoodle.document.body.innerHTML,19)
$ @# K/ [" I  Q8 x; S        Case 5
) |4 q: n4 f, ?/ k# t                s=RegExpTest("/w.galaxy.com/b/q\?k.*?""", galaxy.document.body.innerHTML,21)* N' v- H$ p4 L. X7 q8 e
        Case Else' Q5 s' |$ ^- B& `* ^% h, p. z
                msgbox "Unknown S.E. : " & SE' j& t2 Z! Z1 [& l8 J- c& j5 r
        End Select# G# p, d0 k2 W: G/ C0 C
        s="<pre>" & s & "</pre>"
! z6 R4 W3 h4 h1 p; p
$ s. X. Y7 S# y# ]1 K        sq=""
/ M- W$ l) H) Y/ M1 }        For x=0 to C_MaxList-1
) c) U. W+ T0 @5 E# C                If a(x)>0 Then sq="<tr style='background-color:#eeeeee;'><td>" & a(x) & "</td><td>" & b(x) & "</td></tr>" & sq
$ X; h8 v9 g. R- J/ {        Next5 J' v8 o4 j# Y/ b! }% a
        sq="<table style='border:1px solid #222222;'><tr style='background-color:#dddddd;'><th>Total</th><th>" & Disp(5) & "</th></tr>" & sq & "</table>"( G, L0 ~" [6 @

7 G% H6 ~! E  J" U& o: e  ^/ ?7 f        sw=""
) y8 ^4 x! b' |4 x+ N0 ~; h2 D        For x=0 to C_MaxList-1' m+ B5 `. @1 Q. s' g
                If f(x)>0 Then sw="<tr style='background-color:#eeeeee;'><td>" & f(x) & "</td><td>" & g(x) & "</td></tr>" & sw7 E! J( Q6 _6 w" _2 ?% d
        Next
  G; }' Q- R& K8 Y6 y, ~, [/ w1 `        sw="<table style='border:1px solid #222222;'><tr style='background-color:#dddddd;'><th>Total</th><th>" & Disp(9) & "</th></tr>" & sw & "</table>"
3 t% R+ Y5 b! {: A
4 v; d3 V1 \0 X8 l! Z7 i        s2="<b>" & Disp(7) & " :</b> " & d.Count & "<br>"
  y) D) r, y  Z        s2=s2 & "<table><tr><td valign=top>"5 Q% c8 _- k/ |9 @
        s2=s2 & "<b>Top " & C_MaxList & " - " & Disp(5) & "</b><br>" & sq & "</td><td valign=top>"+ W5 g  c( L0 Y$ _/ U3 w& E
        s2=s2 & "<b>Top " & C_MaxList & " - " & Disp(9) & "</b><br>" & sw & "</td><td valign=top>"' O' J6 s- Q& L& z& p5 V$ z
        s2=s2 & "   <b>" & Disp(6) & " :</b>" & s
2 Z6 M8 F# E" [3 \        s2=s2 & "</td></tr></table>"
+ U& Z/ y/ K+ _        MaListe.InnerHTML=s2
5 J9 ?) N+ A. K4 G. X2 x* [End Sub, l! `1 o% R! Q, z: s' d. J

2 Y' I3 ^4 v( N2 ?! ^Function RegExpTest(patrn, strng, Pos). g; y5 q5 U0 j0 s* \$ P
        Dim RetStr,regEx, regExw, Match,Matchw,Matches,Matchesw,Matchesws,k,i,j,x,s,w; G, F4 n- J5 X- N% _5 x5 U, O; {
        Set regEx=New RegExp  ~+ A; d$ L, r
        Set regExw=New RegExp
; B& Q8 }# j- {9 D  S        regEx.Pattern=patrn
$ T3 j2 I1 S9 q) t( x( Z! s! Y0 Y        regExw.Pattern="\w+"
" t) R) g5 o0 k$ r0 T        regEx.IgnoreCase=True   ' Set case insensitivity.
% B4 n2 q  ^5 D6 Q, q. `        regExw.IgnoreCase=True
% j2 G( o# O, q- W6 @        regEx.Global=True   ' Set global applicability.
5 U5 U. J$ I+ [/ X2 o        regExw.Global=True
( F- q5 k7 J# e# ~4 q* G4 ]        Set Matches=regEx.Execute(strng)   ' Execute search./ n8 A- |( a) p+ M' i
        RetStr=""
  D" y$ n2 D$ [% M9 V3 r2 p- R' C! `        For Each Match in Matches& |0 D+ ]% P: D6 w
                s=Mid(Match.Value,Pos)! Q( c! W# G* j. u4 Y7 L' T
                s=Left(s,Len(s)-1)) ?' y, y; b+ x8 o( [1 y
                s=Replace(s,"+"," "); w$ ]1 g; C- z) Y' I2 N2 V
                s=Replace(s,"%20"," ")
8 L5 ^3 \8 e3 y2 c  e1 \                s=trim(s)
) U) H6 z3 `- N: X! b1 Z                If s<>"" Then
' V2 s4 N6 h. l7 s0 z& w; ]                        s=Replace(s,"%21","!"):s=Replace(s,"%22",chr(34))
! Y/ U7 M: ?0 s& H0 P; A5 D. ?                        s=Replace(s,"%23","#"):        s=Replace(s,"%25","%")  {- L8 M5 Q9 E( @3 {
                        s=Replace(s,"%26","&"):s=Replace(s,"%27","'")
5 a5 r8 R8 {+ ]: C7 @                        s=Replace(s,"%28","("):s=Replace(s,"%29",")")/ _! n3 @& K; O" z5 ?4 c- m2 c
                        s=Replace(s,"%2A","*"):s=Replace(s,"%2B","+")3 c5 _/ L9 H7 W+ M( C
                        s=Replace(s,"%2C",","):s=Replace(s,"%2F","/")
, L1 \/ ?. @1 B$ v                        s=Replace(s,"%3A",":")# b& ]" q8 j7 k0 ~0 I  M
                        s=Replace(s,"%3D","=")1 ]" o' u% i8 b! {
                        s=Replace(s,"%3F","?")
* O6 \  c2 ~3 m2 M8 b) v                        s=Replace(s,"%40","@"):s=Replace(s,"%B4","′")
: H; F3 ?7 w0 k4 p+ W; }5 T                        s=Replace(s,"%C4","A"):s=Replace(s,"%D6","O")
% b' e. X9 X1 E1 B* ~                        s=Replace(s,"%DC","U"):s=Replace(s,"%DF","s")0 I) q& \# N/ e5 S5 F. ~% K2 `
                        s=Replace(s,"%E0","a"):s=Replace(s,"%E2","a")
& Y+ U" {0 B8 m, O                        s=Replace(s,"%E4","a"):s=Replace(s,"%E7","c")
# J; N. z* `( }7 x                        s=Replace(s,"%E8","e"):s=Replace(s,"%E9","e")$ @) q+ ^' Z8 T7 s
                        s=Replace(s,"%EA","e"):s=Replace(s,"%EB","e")
; g( v! K) e6 V+ [- }& G4 o3 t                        s=Replace(s,"%F6","o")& w8 a, X4 L$ S; G% J6 d
                        s=Replace(s,"%F9","u"):s=Replace(s,"%FC","u")
( {! o, Y" Y" C5 U1 ^+ J                        s=Replace(s,"<","<"):s=Replace(s,">",">")
1 O4 d) x4 P3 f                        If d.Exists(s) Then3 H+ A* d& Q# Z! ^) b" W/ s
                                k=d.Item(s)+1
& F/ Z' J- H, {  G                                d.Item(s)=k, U, \/ A! k2 ~6 X2 H( t. \: P
                                i=-1        'If more than the first value, insert it- F8 c, }" g; R
                                do while (a(i+1)<k) and (i<C_MaxList-1)
7 q! }( Z+ m) U0 o( t6 Q! P                                        i=i+1# F4 X+ @0 _  `. z' \- m
                                loop
, x( e- p- p* \( B) _4 Q" y                                if i>=0 Then        'i=where to be inserted9 Z3 ]( K$ ?9 \4 o: X
                                        x=0
# \" R  Z( V5 ?. z                                        For j=0 to C_MaxList-1
& {5 D) e% x* Y3 B                                                If ucase(b(j))=ucase(s) Then
/ w# n( @& g$ W& Y0 n                                                        x=j& M8 F' S, J/ O
                                                        Exit For
! |+ L: S5 E0 w8 w* u8 p                                                End If
6 D0 W: q0 l& T                                        Next" x" N4 z* [2 M! m5 t* `& X
                                        For j=x+1 to i2 E' S3 Z* _6 |$ H7 p1 C
                                                a(j-1)=a(j), h5 Y! u& u8 U
                                                b(j-1)=b(j)) s+ S5 _$ S- K5 b8 y& H0 w( n5 e; X
                                        Next
4 B. |" @* R$ o, q: m" Z                                        a(i)=k6 \) y6 N2 \3 P' w2 w. u1 d; Q6 z
                                        b(i)=s* m4 H( D; t6 m
                                End If! s, t" q5 g% p# l: I/ R& G
                        Else
# i7 F( A# W+ G% ]3 f                                d.Add s,19 ^+ ~' [3 d3 i( P7 v/ c6 N1 C
                        End If
9 s# n+ `# P- X: {. ^! P                        RetStr=RetStr & d.Item(s) & "-" & s & vbCRLF
. J" d' Z* A1 N2 T4 u- h! l9 T) k4 ~& C# a2 ?  i" z
                        'Extract Words
+ s0 p% L7 R- H5 a. d  }# u                        Set Matchesw=regExw.Execute(s), C; B8 V4 y/ n! J% }+ @
                        For Each Matchw in Matchesw
2 Z+ m# K2 W# V3 S7 i6 ?4 b* _                                w=Matchw.Value
3 l" r4 o, A! _! @/ V                                If Len(w)>2 Then2 U# Y2 T% n% i, Z0 Q! {' B
                                        If dw.Exists(w) Then
- c, M, {, y' i! e1 M                                                k=dw.Item(w)+17 i- g0 g5 K1 R5 d# v: h% x; ?
                                                dw.Item(w)=k
; W% [# ?! f, R9 J  K; }! \$ d, ~                                                i=-1        'If more than the first value, insert it
& s9 b7 o& j1 Y- b5 O                                                do while (f(i+1)<k) and (i<C_MaxList-1)' q3 T6 M* w' X/ b' b
                                                        i=i+17 i$ D' I& w. Y& b. f
                                                loop
- l. J2 B+ T9 D4 f4 F                                                if i>=0 Then        'i=where to be inserted
  ?, w# H- w! M4 `' h3 I2 s                                                        x=0
* S, d; u. G& V! @$ _                                                        For j=0 to C_MaxList-1
, ]; R# g2 q" m7 l$ L. q- p  U                                                                If ucase(g(j))=ucase(w) Then
' k+ J+ R# g* [  ~0 Y" c% {! `8 p2 X. ~                                                                        x=j; @2 i% L% p# C$ J* J
                                                                        Exit For4 F8 v6 d) s7 k  m! e1 R8 b* e* S
                                                                End If" w4 u$ A& a% i
                                                        Next
8 Z- R- W- I4 Z7 u                                                        For j=x+1 to i- j7 [0 ?  ]; c2 L8 n% u: {
                                                                f(j-1)=f(j)
% j- ?( c% [6 d1 O& v3 ~" k                                                                g(j-1)=g(j)
! L5 J" F) U! z" d                                                        Next$ p' Q6 y' D: f& \, q9 `5 L
                                                        f(i)=k
+ j) [4 E3 [! p4 |* {                                                        g(i)=w) f* f! P. d  o* x- ~5 _' E
                                                End If
/ G: |. ~  c8 r: _$ K( ?                                        Else
) C9 g5 Z& @) H1 M3 t                                                dw.Add w,1" S$ g$ P% q+ I! ~) ?, a' p
                                        End If* \: v6 h( {3 d, C
                                End If
: X% b: C" n+ `+ M8 V4 X                        Next! [9 T! A1 b# U' P
                End If- I; G0 v/ O- x/ F; D
        Next
" x7 [8 Z0 ~3 l% C        RegExpTest=RetStr8 X$ m9 @3 E+ ]
End Function
* A5 t5 F% e6 B0 |* D9 m' H( Y- p1 w% M+ L, s8 u* F3 e
) V5 Y. I/ x  F7 O% _% x2 O
* y7 k* L3 s4 X" Z; I  ?1 v8 {

8 |; |- x* |. v. R2 d/ A0 [</script>
0 V' O9 C9 [) W2 D0 d) G& A<script for=window event=onload>
- G1 j4 [& t* r# E DoLoad" K* ?$ r' \# N2 v
</script>
+ L0 Q+ c- c9 B- \<xscript for=window event=onbeforeunload>- D9 ~! h0 `6 f" n
  'DoSave
1 g+ l% Q7 ~+ C% a0 h) o) ?$ r5 X</xscript>4 I* Q, [( x( r# j
<script>. Q. z3 r# W" D
Sub DoSave
7 ]- D' x8 C$ N7 Z+ J* O- g  foo.setAttribute "content", foo.innerHTML
+ P, ^- x3 y* q' }  foo.save "EditContent"
5 v  G( x$ J+ y2 HEnd Sub
. n  U- |% a3 `( {! Tsub DoLoad' B: m% _  X4 M) h$ c  ^- N
  foo.load "EditContent"$ P3 }  W, J% T" _* \
  content = foo.getAttribute("content")
6 o& n/ d' B: h. r9 ^7 r! {  if content<>"" Then foo.innerHTML=content
( }, G; f# ?4 y9 \) x6 [' ^; yEnd Sub7 @6 [9 [+ |/ y2 ?6 `
Sub DoClear1 R% X+ ]0 ^$ ?. A/ W
  foo.innerHTML = ""
# Y& V8 z' H5 z6 ~End Sub
  b) r6 T$ f& ^1 B0 i% w* j
: N( e. C4 Z- F2 F2 W# F7 U/ R0 pFunction Disp(x)
; ^6 F+ T; e8 ^8 T4 C5 S Select case getlocale9 T6 f8 b% I3 x' C0 |; ?
Case 1036,2060,3084,5132,4108        'French) E& ^% ^( ^# ^
        Select Case x* \$ R. t% y1 i6 z
        Case 0        'sous-titre
% {, c* `7 N( _' b3 Z" R3 x4 m                Disp="Outil d'analyse de requetes - 1 backlink svp !"5 |* ?+ W" i- d# N
        Case 1
+ s4 A/ W. B, u5 F, r                Disp="Votre liste de mots a monitorer :". T6 I( A  q$ f% e5 b& ?
        Case 2
1 G+ E, ^/ O% Y5 s. V! c                Disp="Sauve"
6 V: s, n1 o! B+ L9 V        Case 3) ~& L2 N+ ]. n# c6 P
                Disp="R.A.Z"" @$ \6 t( k8 N+ b3 @$ q  a
        Case 4
& K& r3 I9 }7 Y+ t8 k! ]) k                Disp="Charge"
6 h" j3 t/ U: E        Case 5
, ?2 x+ e8 k9 b4 e                Disp="requetes"6 q9 r1 q. p! w3 I* ]% @
        Case 6" @. `7 H! {4 m- C' m
                Disp="Dernieres requetes"( g/ ]* U& Q' c( L! |0 w3 r% i
        Case 7# G& ]$ _3 J+ m9 E, D
                Disp="Nb de requetes lues"
3 [+ ^, ?' i8 [1 N        Case 8
% b2 U: _+ R. p3 m, p                Disp="Cliquez dans le menu pour activer l'analyse d'un moteur."_7 F2 C2 U6 C& F8 [
                        & " Recliquez pour la desactiver."" Q/ ^  I( U' h5 H' `: T) h5 e* d
        Case 9& f# m1 b0 l! G* }, S
                Disp="Mots") ?" y2 ~+ F7 q5 e! n" C% Y5 Y
        Case Else
& T! L# e1 d; Y1 Q! V9 r                Disp="###"
# _1 c; [$ h! b  E& {        End Select& K6 D4 L, b% g/ Y
Case Else
$ s. `" k4 V% L+ f7 W# k        Select Case x
3 ^, A$ c  J: K" h- Z- V) {        Case 0        'sub title) G/ e5 E+ t$ q) G. ]
                Disp="A linkware search engine analysis tool"
" _* Y2 d  }* e6 x; y        Case 1
1 X% Q& }; p6 b1 _( _) k                Disp="Your keywords to monitor :"- |6 R$ t( v0 n3 {8 l1 f6 k: m* i: \
        Case 28 N; a$ [% }$ ?+ E: u' P4 z. v$ r$ o
                Disp="Save"
1 F7 G: S3 b( Q0 A( N; j% p        Case 31 J7 i4 R8 e9 G# f) i6 `
                Disp="Clear"" G0 q4 E  ]1 I" l- M
        Case 4
* r* \2 M4 p% w" t! Q. j! u                Disp="Load"
4 _* F  `% n6 T: b& E) M        Case 58 x8 o3 Z, _) c/ _
                Disp="Queries": Q2 \, y" C# r( T
        Case 6
: q& M" U5 d) Q4 o5 J                Disp="Last queries"0 X6 b  v8 ?7 t1 {+ h( Z
        Case 78 @8 L; V3 b3 U" G1 j9 ?" }
                Disp="Amount of scanned queries", {( W* Q' E* n: _% G, K$ G6 w
        Case 8* Y" B! U5 A+ }5 W8 M5 `0 y
                Disp="Click above to start the queries analyzis on a specific search engine."_
' l9 D: x' S# \                        & " Click again to stop it."
4 U$ t6 d7 A* z7 G        Case 9
8 y" \/ o. i  Q                Disp="Words"4 a  L2 b3 G4 |
        Case Else' E. I9 l: z% x6 I- C! u; G8 R  S- B
                Disp="###"
9 }7 T  Q1 w2 B        End Select, h4 `* B: |3 b9 j6 `4 y
End Select
5 ?, n0 L2 P5 t' _/ N% MEnd Function7 D, C8 O7 m% g/ d/ ^- A' W
Sub DispSE(x)4 v: R0 d0 L+ q' v" k
        Select Case x. h8 t" L; r* n/ D
        Case 08 t7 W* o% L/ v; ]2 j, q
                if lycosfr.location="about:blank" Then: H1 }( S( \0 E' b) O
                        lycosfr.location="http://www.recherche.lycos.fr/voyeur"4 n7 y) m! E8 h# Z$ A
                Else. N& N# D2 H8 A
                        lycosfr.location="about:blank"
, |3 E4 k$ E6 R: ^2 O8 x                End If" p6 o% b: f' _
        Case 1$ _: e& |( n( B' ^* }+ K* }% r" m
                if lycosde.location="about:blank" Then
1 q8 y# z4 [+ c2 }. T1 T                        lycosde.location="http://www.lycos.de/inc/content/suche/"_
6 D/ K% _. [7 m( h- t                                & "includes/livesuche_iframe.htm?ergebnisse=&refresh="
# c. D/ |- \. W+ _                Else
% J* a7 Z: I2 v0 J; i                        lycosde.location="about:blank"
3 K! y3 q* H' t2 J, ]: i# S                End If
* M4 Y+ s3 G; p2 X  r$ t" N        Case 2# Q; i8 z5 g) E+ }- v* `
                if fireballde.location="about:blank" Then
# w) [# ?5 G7 `7 \                        fireballde.location="http://www.fireball.de/livesuche.csp"
! N" N6 t1 F% ?) }  R                Else: F. @* x8 N! A2 n. _, [% P3 D
                        fireballde.location="about:blank"
. |, r6 G% P3 ~$ n5 y6 ~                End If- o$ V# |  u5 Y4 Z6 T! H" ?* g* I
        Case 31 O& L# j- E) I* w9 H. C
                if metacrawler.location="about:blank" Then# q! s1 H; [6 z$ W3 I: c! E- r
                        metacrawler.location="http://www.metaspy.com/info.metac.spy/metaspy/unfiltered.htm"2 G5 U" V3 P: l0 [: l# k
                Else4 q. q6 t! T& b$ n: D# P8 }* o
                        metacrawler.location="about:blank"
  h* Y9 p5 L8 E" V                End If
( d# @5 \6 o/ `( |4 R! f        Case 46 L0 E5 l; j7 e2 Y0 L4 h+ D
                if kanoodle.location="about:blank" Then7 [+ X# Y. k& N0 {/ w  O9 Z
                        kanoodle.location="http://www.kanoodle.com/spy/spy.cool"& y9 H* Z3 h" U9 b* V
                Else
7 h( j  B' q9 D' s                        kanoodle.location="about:blank"
( g: G5 n& D  L/ F( b$ |4 ?                End If9 H6 Q& J8 y6 T" E- ?& E* S
        Case 5$ ?! J$ V! S( \+ d4 p0 N
                if galaxy.location="about:blank" Then
$ b& E+ B' n5 {2 K' |                        galaxy.location="http://watch.galaxy.com/b/watch?filter"  K/ v( r4 a1 F6 T* X5 a* n
                Else
  L8 F4 T& Q$ }1 X1 o5 i" f                        galaxy.location="about:blank"
+ d' i8 \7 M/ P$ l5 @2 {- P                End If
2 M, m; c7 C$ L! G; g: h9 Q        Case Else, j8 R2 S1 V3 ]3 n( Y
                Msgbox "DispSE : not found - " & x
+ G( k4 i9 q2 [/ v: o  Y: O        End Select7 U7 d; Z+ X) N
End Sub7 o6 A. G" U8 h; [9 n
8 _2 S/ L! k7 {: H1 C
</script>. W3 l7 r6 \' h; V
<style>+ W5 S  g: w2 t2 m' l7 w* ]4 D
body,td,th,p{font-size: 11px;font-family: Tahoma,Arial;}( `/ P9 k; z* _& i
.topmenu{2 y& D; Z' g2 y6 S" b! Z% F& }9 C6 B
        border:1px solid #222222;5 K* _0 y* ~5 X; T& r
        background-color:#eeeeee;
1 F' _/ }7 J0 u: O6 ?0 Y}
1 v3 x( ~$ f0 O' k.topmenu a{$ p2 b- A# o: x2 X1 k
        height:15px;5 h- j3 j3 }9 n& b$ X* J
        background-color:#BDDCBD;
' h: ?. B" U, K4 s) T        padding-top:1px;
6 i4 X$ O9 G, h! U        padding-left:5px;7 b  I% M8 m7 @+ V
        padding-right:5px;
7 \$ ^& v. p1 x6 J, i! l4 q, ~        text-decoration:none;5 X# R2 e, U$ \! Q; ]3 ~/ s
        color:black;
+ R" ]$ i2 N! h# @  _! P        text-align:center;% Y  K4 c% N5 ?0 U8 g* r1 t
        display:block;7 u/ ~, D/ Q3 u8 d6 {8 K
}
3 N/ P* g; G) _: J.topmenu a:hover, .topmenu a:active{
, I, e2 _% w1 m$ v0 B9 h5 gbackground-color:#89DB89;color:black;
6 m1 m( v$ f( ~8 T2 j) S}6 d0 V& h! A* N
#rb{border-right:1px solid #222222;}+ z6 a6 {' A4 X5 j/ h7 k4 V0 [9 V
A        {color:#AAFFCC}5 c, j- ]4 O$ d) w( J" \9 Z  C' w
BUTTON        {font-size: 7pt;cursor:hand;}
$ @( ?4 a! ]. E6 [.userData {behavior:url(#default#userdata);}
" h- n* R6 N; T0 x: E1 x% i</style>8 z5 \4 c% F5 S% l& Y! i

: l! ]# @4 l& k+ ^</head>
) G5 o$ U% `0 ]/ }9 \/ [
0 v% I' b( z/ f" c<body bgcolor=white text=black style="margin:2">6 ]/ @/ L2 Y7 g" m0 K3 N
<a href=http://www.interclasse.com/scripts/keywordranking.php>
1 i" p# @3 t6 A. n7 w% C<img src=http://www.interclasse.com/pics/avatar.gif align=left border=0></a>
7 ]3 x2 S; c4 G6 d
7 x6 ]* o3 j9 e<H1 style="margin-bottom: 0px;">Keyword Ranking</H1><Script>document.write Disp(0)</Script>9 n( v. g" j6 Y- x" w

$ ^. l3 L/ ^$ X2 O% m- k<table class=topmenu border="0" cellpadding="0" cellspacing="0"><tr>. J3 @: i  T2 j. ?7 C
<td width=60 id=rb> </td>
0 ?, v) P; q3 J& R8 w3 k<td id=rb width=80><a href="#" onClick='options.style.display="block"'>Options</a></td>
. n" w: D# J8 @' m<td id=rb width=80><a href="#" Title="French">Lycos.fr</a></td>
: J, _! a* G, {& \6 o' g8 O<td id=rb width=80><a href="#" Title="Deutsch">Lycos.de</a></td>* n' d- a) F! ?; ?. k1 Z$ v6 X
<td id=rb width=80><a href="#" Title="Deutsch">firball.de</a></td>. z8 W' W% L) ]2 \9 ^' D* J( X
<td id=rb width=80><a href="#" Title="MetaSpy">MetaCrawler</a></td>
& l9 x' M7 L" i+ {<td id=rb width=80><a href="#">Kanoodle</a></td>8 ^/ y( Q' n8 X
<td id=rb width=80><a href="#">Galaxy</a></td>9 q5 v6 Y; c: t, ^
<td width=60> </td>
7 z6 w5 p3 f) s* i1 `</tr></table>
7 D$ l: J/ ?0 ]3 y) w<script>document.write Disp(8)</script><br>
( E$ u9 G2 J; T. e! w' ?: B
* ~" ~, e) s. u" l- t1 L<div id=options style="display:none;width:180;border:1px dashed #222222;background-color:#D0D0D0">+ F! Y' w. @$ g* S. \2 j
<script>document.write Disp(1)</script>3 s. |! \" u8 _# K( t
<div id=foo class=userData contentEditable=true style="margin=4;width:170;height:14;border:1px solid;background-color:white"></div>
8 I. o. D0 @- {$ c8 e' l- Z        <button onClick='DoSave()'><script>document.write Disp(2)</script></button>/ Q0 ]- ]; i8 g! Q
        <button onClick='DoClear()'><script>document.write Disp(3)</script></button>
; o% a% r* p- X# E        <button onClick='DoLoad()'><script>document.write Disp(4)</script></button>
3 X0 q. _- S8 i) }         <button onClick='options.style.display="none"'>ok</button>% a$ Z% z+ |6 h9 g& o8 b, N
</div>
' n" r9 l# s6 c2 v+ E2 d
* d! B9 R4 \# L2 a, i( @, ]* j9 r) Q& _- H( Q( h" t  Y& e
<div ID=MaListe></div>
. o2 c0 @# x3 B) M4 {  t/ Y' u" U$ ^" C, W* @8 I. R

5 m8 {+ {9 V0 v<table width=100%><tr><td>9 V. i. h# E# C, d7 P
<iframe id=lycosfr height=200 src="about:blank" width=100%></iframe>
. Q4 e2 G6 O! x. c) v! q$ D0 Z<iframe id=fireballde height=200 src="about:blank" width=100%></iframe>
! s, m3 p) z! s- V, r<iframe id=kanoodle height=200 src="about:blank" width=100%></iframe>
+ i: d- \! a* v9 u3 K, y! \$ k+ ~  J</td><td>: g: O4 Y2 H: P! L4 h, ]. o5 M6 S
<iframe id=lycosde height=200 src="#" width=100%></iframe>
) O* d4 ?3 }. \# l<iframe id=metacrawler height=200 src="about:blank" width=100%></iframe>/ y8 K, y5 h5 h/ [& P; Z& _
<iframe id=galaxy height=200 src="about:blank" width=100%></iframe>5 Y( r% p8 t/ \8 T
</td></tr></table>
" S# f# `) S, k
9 W3 O- s; \& J' r; H% _! S' r% f  ^</body>
  e4 M) M3 k9 r3 p7 k</html>
. a3 N2 q; x) h: W: _7 i======================================================7 p. p8 W% i0 O$ }
Keyword Ranking
9 x5 |* W& Q; Y7 C5 N* W5 [: x. K6 J6 k- a+ m2 J+ G) q) a6 u3 ~
Real-time ranking of keywords entered on search engines
, D! W# g3 p! L0 ]8 n& o' T, t6 W2 D6 i: {
Monitors all queries and lists last queries and top 10
( v" X" B9 G! x0 p' I8 C
+ I: e9 G. g$ m; U( ]7 G0 k" dFile Name : keywordranking.hta$ ]) V! e3 f7 T0 r
Requirement : IE66 Y, `# c) w3 Z& y% j! v$ c/ v5 U
Author : Jean-Luc Antoine7 q; X& r! L0 O! Y) _3 L
Submitted : 09/12/20030 a. J2 n+ h/ S9 W
Category : HTA
% A/ f: C( V9 b; p$ o4 P4 U$ oRemember : The file extension has to be *.HTA 保存時注意編碼,推薦用utf8格式。- _* r8 Y4 G/ [8 U
, P* b+ w/ p3 z1 f
( Y, J7 O7 Q3 \9 Y7 o
- H- m' r6 C2 _$ n9 ]' H$ L
, `1 I' F' [: \1 W

3 f3 X0 L) }/ M9 A8 I1 A. F4 X
+ t' u  y8 w) g  @1 t4 ^8 H" `7 |: h9 `7 j
& h" j  J, x0 _
) \4 U5 f$ f* l5 u

, Y% M. F( F$ \4 c8 Y7 K5 E( S7 U+ V0 W
! W7 D, j. e; i8 g/ S

3 f  [! a: o4 k2 l. K( `5 R( s5 B2 V& C7 x1 V7 j
" k" \  x; j# ~4 ~2 A% o; U3 a% G$ `1 f
  n7 Z) A* d, h- S) h* @. q# @5 f! m

0 N9 \5 d( r% O8 s) j
3 Z' F- R: U% {9 X$ ^1 X0 U
, ^) B6 @' [, N- G! n  h* o. o. A
9 b' Z7 m3 m- t6 H, |2 c, N- ^9 Y4 D) k& v6 Z3 O3 J

# |  c" S$ m1 c9 W+ w6 l+ O
, n5 E. x! V# |/ `4 ~8 f" J0 r
發表於 2013-12-22 07:36:18 | 顯示全部樓層
樓主這個是網站的代碼嗎
0 w, p% x1 C  n/ W. P% D1 M  \5 a3 h' x, Z  [7 D
回復 给力 爆菊

舉報

 樓主| 發表於 2013-12-22 09:23:24 | 顯示全部樓層
不是,我在學習腳本,感覺不多,怎麼貼出來的代碼那麼長
* \0 F! `; L. s9 F4 a9 W. Y( q# S6 B( @, z- C  J2 |3 \4 N3 U; K9 Y
我以為是類似批處理,一雙擊就執行出結果。現在看來好像不是啊。
8 d2 |5 J7 h/ P/ q5 Z4 m. U/ x. J1 y1 E

5 \5 f9 C* u. D7 c% i
回復 给力 爆菊

舉報

發表於 2013-12-22 13:58:33 | 顯示全部樓層
試了一下,好像不能運行
% V* ~% ^9 Y" {
回復 给力 爆菊

舉報

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

本版積分規則

过期高净值品牌域名预定抢注

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

GMT+8, 2025-7-12 22:47

By DZ X3.5

小黑屋

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