过期域名预定抢注

 找回密碼
 免费注册

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

[複製鏈接]
發表於 2013-12-21 23:13:09 | 顯示全部樓層 |閱讀模式
本帖最後由 印個歷史 於 2013-12-21 23:17 編輯 2 j. y( c2 n' Z/ m) i/ f3 H

: Z+ i" b7 G8 u下邊這個編碼靠譜嗎? 能實時檢查關鍵詞排名?
) c; _8 h' s2 L9 p0 |
% a9 X1 o! N4 a+ t  R文件名改成:*.HTA, 代碼裡的東西沒有需要改動的嗎?
* u5 m- Z) \7 Q- }3 p
7 h# X1 z- I( [下面的編碼來自:http://www.interclasse.com/scripts/keywordranking.php
0 I; m8 I2 r+ C7 Q- Y1 M) ^
! G( r1 ]) j; \5 W============
: V# z3 w. ?) Q& t+ H <html><head>
8 ^6 @+ y+ m0 Z" I<title>Keyword Ranking, (c) Jean-Luc Antoine</title>
( g' i5 ~2 Y8 X$ r/ I0 [% x( [<HTA:APPLICATION APPLICATIONNAME="Search Engine Tools"  E7 ^% ]: _  q$ C5 d
        BORDER="thick"        BORDERSTYLE="normal"
, s5 H* L- x; C3 m) k; O  j3 d        CAPTION="yes" CONTEXTMENU="yes"
4 I2 T. y9 Z" e8 y8 k        INNERBORDER="yes" MAXIMIZEBUTTON="yes" MINIMIZEBUTTON="yes"" t. M$ o$ u4 j
        NAVIGABLE="no" SCROLL="yes" SCROLLFLAT="no"* C2 F( @7 U& ~5 }% ^
        SELECTION="yes"        SHOWINTASKBAR="yes" SINGLEINSTANCE="no"
; Q! H( L% ?7 W        SYSMENU="yes" VERSION="0.3" WINDOWSTATE="normal"># ]1 S4 g( V6 ^% c9 _
<script language=vbscript>
. |5 B% f0 I/ _Option Explicit8 C/ v- w$ v) u
'        Versions :
4 v* [( R' }4 [" n' B2 U% `& Y" @'                v0.3        Queries and words : simultaneously ranking7 f$ z& g- O" R$ P" p
'                v0.2        New look, options, many SE: {( D1 \% P- Y1 a- G6 m; [
'                        Multilingual system( P" O+ E+ b/ B$ J3 b1 ~9 ]; e% ^
'                v0.1        First draft, keyword rank and last queries
. r7 @$ h. v# B9 W# T'Todo :
+ Y/ T+ z- f* o7 Y  @" A( l'        Gerer systematiquement a la fois Keyword et Phrase
* E2 J) {) U3 P+ c'        Sur les keyword, permettre de zoomer (showmodeless) sur les phrases contenant le keyword pour connaitre le ranking des variations0 l5 C; C  w! ?- k5 I- c+ G* O
'        Lister en permanence les mots-clefs monitores avec leur occurence et permettre le meme zoom
! j6 I7 V. v! g'        Mettre en gras les keywords monitores
! ?5 `+ c( K" \'        Temps de mesure
# ~% z+ v5 z/ J: _3 K2 K- [! p'        Afficher pourcentage en plus du nb d'occurences
" Y" }) H9 f* @'        Monitorer X mots-clefs et leur apparition/frequence relative# O" Z0 F8 \5 a7 S- J: H/ I
'        Faire bouton de refresh manuel si ca se bloque (location.reload())
' d0 _9 y9 r- w2 q* ^: S2 s'        gerer les fenetres lancees offline et non pas inline (intercepter events par showmodeless dialog)
+ v  N0 Z* q) b# s4 p6 H'        identifier nb de pages retournees par requete et indice de concurrence3 a* H5 \) d& S5 l
'        Permettre de sauver le resultat
: ]; D5 ]3 K  b4 Q0 J% F'        http://wordtracker.com/newsinput.txt
( u( C4 Y; x9 c9 j+ j6 v5 M) ~% C6 X( p
Const C_MaxList=20        '### Change this, predefined for TOP 20* w+ R. o8 e/ g& s* K/ U+ o, N
Dim d,dw,a(),b(),f(),g(),i
& |! G2 I. u; SRedim a(C_MaxList)
0 M7 m6 R* ^- K" w  }Redim b(C_MaxList)3 T# f2 h, d8 x8 h# G
For i=0 to C_MaxList-1
4 E5 [% ~3 o6 @( J! ~: ^5 m        a(i)=0        'Nb d'occurences: K9 r; C! J* n6 D
        b(i)=""        'Value  o# j7 C8 m7 ]. W" H! |
Next
" C" b' F1 j% m! i4 \3 yRedim f(C_MaxList)
6 T) {( V+ T2 l3 G( Y, E  s4 W4 nRedim g(C_MaxList)
7 V, D- f" X4 EFor i=0 to C_MaxList-1  s* D8 Y$ V1 Y. D7 C
        f(i)=0        'Nb d'occurences4 l( V, h8 D4 E
        g(i)=""        'Value
1 U- W/ n0 n+ o9 }Next
2 @$ \, y: \" R; zSet d=CreateObject("Scripting.Dictionary")        'queries
+ a: v6 p0 U7 H( W& _0 N$ sd.CompareMode=1        'vbTextCompare
" h$ w& C/ m$ O  g6 @  r/ g  u, KSet dw=CreateObject("Scripting.Dictionary")        'words
9 [- x" d5 }$ v* n3 udw.CompareMode=1        'vbTextCompare$ U% Z( q# G( a) J
% ?, n/ Q% M, b2 t& z  j( y
sub go(SE)
8 a4 T; s' t6 [8 s! j        Dim s,x,sq,s2,sw- X- o* \- N" o$ `5 o6 I; S. p
        Select Case SE* X7 H, p$ s2 V$ B9 E2 S* m9 d8 U& ^
        Case 0" g: M. F/ j3 K/ M' G2 R
                s=RegExpTest("pursuit\?query=.*?&", lycosfr.document.body.innerHTML,15)
3 e, |- e: e2 ]        Case 1/ ]$ l' ?" d2 t7 L  H1 P3 c
                s=RegExpTest("pursuit\?query=.*?&", lycosde.document.body.innerHTML,15)9 s2 c8 U7 z5 N
        Case 2
. r* R6 H; R3 k; d6 D6 Z8 V- I                s=RegExpTest("[^a-z]q=.*?&", fireballde.document.body.innerHTML,4)$ p8 Q: }0 k- R, H
        Case 3. N) v$ T" w( X0 [. }2 P. s
                s=RegExpTest("\?qkw=.*?""", metacrawler.document.body.innerHTML,6)
3 w( t% R: M. o+ x+ {5 k- h$ t/ Z        Case 4
3 s, r6 d5 I% |/ y  m                s=RegExpTest("return.cool\?query=.*?""", kanoodle.document.body.innerHTML,19)
' E) W& w, }1 V0 h2 R        Case 5
3 ^, K7 Z4 x* c- @4 j) ]- t) u; }                s=RegExpTest("/w.galaxy.com/b/q\?k.*?""", galaxy.document.body.innerHTML,21)' t$ V2 Q5 x" r& A( l) U
        Case Else+ Z9 B+ J% u5 u- w6 o
                msgbox "Unknown S.E. : " & SE
* l' g/ A: d1 F0 x8 q8 A        End Select
6 v' r. f" C( ?% l3 P        s="<pre>" & s & "</pre>"
* ~7 j' h' J& r& q# C6 l( y+ m0 b. W8 l0 K0 b8 I  B
        sq=""
2 I/ g7 N& {+ |- S( a: o5 y9 N        For x=0 to C_MaxList-1" o( h; f$ p* a
                If a(x)>0 Then sq="<tr style='background-color:#eeeeee;'><td>" & a(x) & "</td><td>" & b(x) & "</td></tr>" & sq
; F6 f3 U; F0 {1 \+ Y; J  ~        Next2 l. c6 b1 D' Z! ]* B
        sq="<table style='border:1px solid #222222;'><tr style='background-color:#dddddd;'><th>Total</th><th>" & Disp(5) & "</th></tr>" & sq & "</table>"
8 F# z; a6 h9 G( V1 e
* V- v* I: b* S3 _        sw=""8 ?' ?2 W/ e  q: E
        For x=0 to C_MaxList-14 M. N" G& ^- k5 U) d0 d
                If f(x)>0 Then sw="<tr style='background-color:#eeeeee;'><td>" & f(x) & "</td><td>" & g(x) & "</td></tr>" & sw: _& r6 m3 x( ?" G& ]
        Next
$ X3 Z: b" d0 P        sw="<table style='border:1px solid #222222;'><tr style='background-color:#dddddd;'><th>Total</th><th>" & Disp(9) & "</th></tr>" & sw & "</table>"
3 @3 X( M: ]' v; e5 z$ p! m2 T$ c5 Q7 s9 S+ z9 N5 b& K
        s2="<b>" & Disp(7) & " :</b> " & d.Count & "<br>"
! E  y- H1 ]$ I5 F9 A' l% R        s2=s2 & "<table><tr><td valign=top>"! a. b' e: V: C  c0 R5 I* B
        s2=s2 & "<b>Top " & C_MaxList & " - " & Disp(5) & "</b><br>" & sq & "</td><td valign=top>"9 r9 {- p$ K$ t/ b- O
        s2=s2 & "<b>Top " & C_MaxList & " - " & Disp(9) & "</b><br>" & sw & "</td><td valign=top>"' T+ U9 q8 {! ?/ f9 c8 C
        s2=s2 & "   <b>" & Disp(6) & " :</b>" & s
3 k7 [2 A. X; q- m        s2=s2 & "</td></tr></table>"$ z' v4 r2 }: k3 e
        MaListe.InnerHTML=s21 [, ]9 q- i4 w! h
End Sub8 N. T* |* Q! O6 I4 Y- i
3 N  F( M; S/ P" H8 e3 U4 N
Function RegExpTest(patrn, strng, Pos)
0 ]) h% G! d6 k* a3 w4 T        Dim RetStr,regEx, regExw, Match,Matchw,Matches,Matchesw,Matchesws,k,i,j,x,s,w' ~/ D- y# e9 s& S3 j2 R7 U* U; Y
        Set regEx=New RegExp& \, i5 s+ ~) U9 _( `
        Set regExw=New RegExp0 x0 y9 j4 V* ]3 \2 ?1 D3 i) W
        regEx.Pattern=patrn1 _) t4 I8 B5 L/ m% i4 c& W
        regExw.Pattern="\w+"
, W$ s3 x6 f2 L" _: e7 P" w8 A! A        regEx.IgnoreCase=True   ' Set case insensitivity.
8 d7 f" F* P! u' s6 Q        regExw.IgnoreCase=True
" r3 i+ b# D- w# h* I4 `6 x        regEx.Global=True   ' Set global applicability.
; M& p- ]2 |* }4 R4 B9 `        regExw.Global=True7 p' L; y* O( C$ u6 Z% q0 C+ h6 _
        Set Matches=regEx.Execute(strng)   ' Execute search.9 a$ I" i1 y2 U2 `2 ~$ k9 V
        RetStr="". i. [' b- P3 g* D
        For Each Match in Matches2 O1 G6 O% w4 W& d6 z
                s=Mid(Match.Value,Pos)- E/ c2 D+ @$ d% l. }
                s=Left(s,Len(s)-1)5 N' E. V7 ~6 q( F7 x# G& C
                s=Replace(s,"+"," ")
: I: K" C3 p% v/ ]- a. T                s=Replace(s,"%20"," ")9 {4 H! Y, \/ r& ]
                s=trim(s)# c! M% t( f# T
                If s<>"" Then" \: }/ I' I. G, v
                        s=Replace(s,"%21","!"):s=Replace(s,"%22",chr(34))
$ z/ N6 Y8 P, K, R* j/ o; \, W                        s=Replace(s,"%23","#"):        s=Replace(s,"%25","%")0 [0 K" {0 ~+ y% y$ f0 }
                        s=Replace(s,"%26","&"):s=Replace(s,"%27","'")
0 {/ j+ x9 R, Y3 f+ m: S( Q                        s=Replace(s,"%28","("):s=Replace(s,"%29",")"), ~& `( j  j# W6 f5 m+ Z
                        s=Replace(s,"%2A","*"):s=Replace(s,"%2B","+")
! |; c: g& X& u                        s=Replace(s,"%2C",","):s=Replace(s,"%2F","/")
- @/ I! T8 m: A, a. \4 B                        s=Replace(s,"%3A",":")( ~) f, v9 J- Z( a# r8 b6 u
                        s=Replace(s,"%3D","=")
( D0 S& _1 \  _1 \7 S                        s=Replace(s,"%3F","?")
0 z+ Q0 ~4 ?6 `5 l, ~0 d) ?                        s=Replace(s,"%40","@"):s=Replace(s,"%B4","′")
8 D7 D. o- g& W3 j                        s=Replace(s,"%C4","A"):s=Replace(s,"%D6","O")2 f! @  z' V$ \& B, K7 }
                        s=Replace(s,"%DC","U"):s=Replace(s,"%DF","s")
( A' \+ _) H. W; m) |- W                        s=Replace(s,"%E0","a"):s=Replace(s,"%E2","a")
7 t" s: V4 \+ B7 |" Q* T2 Q                        s=Replace(s,"%E4","a"):s=Replace(s,"%E7","c")
% Y4 X8 {' ^4 p  X) s/ Y- Z                        s=Replace(s,"%E8","e"):s=Replace(s,"%E9","e")5 K8 v1 E" A4 j# ]
                        s=Replace(s,"%EA","e"):s=Replace(s,"%EB","e")9 I& @0 W! J: Y$ F) q3 M1 l% K
                        s=Replace(s,"%F6","o")( p' [; b/ `1 R
                        s=Replace(s,"%F9","u"):s=Replace(s,"%FC","u")% U( B& r  w  |/ k; f+ l5 P; @
                        s=Replace(s,"<","<"):s=Replace(s,">",">")
5 T) C$ d0 K. {; b6 D: w; Z                        If d.Exists(s) Then* O* k5 j4 G" b% ?
                                k=d.Item(s)+1# [% b  Q. c0 O& W8 K# e4 A
                                d.Item(s)=k
& o. a$ N7 k3 c5 {/ X3 g3 G                                i=-1        'If more than the first value, insert it
' Y9 c. l% T$ p, @  ~                                do while (a(i+1)<k) and (i<C_MaxList-1)
/ q! l# h! f; R; G3 D( K6 C                                        i=i+1
' Z2 V7 L# y" x6 C7 P$ U7 O                                loop' r0 f$ v1 q4 q7 k' R
                                if i>=0 Then        'i=where to be inserted
( v- J- I0 [3 S" K+ J                                        x=0
! j( H  O0 g' |                                        For j=0 to C_MaxList-17 v7 y0 c( P+ O2 s! p) @; m
                                                If ucase(b(j))=ucase(s) Then
9 V- Z' q; X7 X9 R7 V) t- e' c8 S                                                        x=j
- m3 F& [& P; y                                                        Exit For
* z6 ]* h: i6 w# E0 Z/ l                                                End If* A. _; r: B+ R% U
                                        Next% m/ n: V+ z; q$ H/ E7 R
                                        For j=x+1 to i& r' P) ~- t1 i5 k$ ~3 k5 m6 B
                                                a(j-1)=a(j)
4 T: i1 B9 l- D; t  R; R                                                b(j-1)=b(j)
( V$ M+ {0 o; Y7 {" K# d$ Q2 X' |                                        Next
" g9 o* Y( a- C4 q7 j3 n1 T                                        a(i)=k) B! {/ m1 I, n/ X9 S4 l
                                        b(i)=s$ y' O  b+ y6 g' Q. i
                                End If
) d1 Q: J; M( e3 ~& M7 X& Z                        Else
) f7 Z/ t4 \! J3 R  {                                d.Add s,16 E. m; j5 `9 o$ k* f$ b1 T
                        End If+ S% G0 Y* m1 m2 Q8 C8 r" k/ ]$ v
                        RetStr=RetStr & d.Item(s) & "-" & s & vbCRLF+ w8 R$ F  w3 w. R- R8 n

$ B- H: R$ S/ x8 {                        'Extract Words3 g0 f" h% a/ H5 j
                        Set Matchesw=regExw.Execute(s)7 I: Q' W! y; u7 a# c
                        For Each Matchw in Matchesw# w) G, J* O$ @. J7 s" U8 K
                                w=Matchw.Value
7 b- k6 e7 S2 ?) G, s9 {+ M6 Z& s                                If Len(w)>2 Then0 o" |4 F  B. P' Y
                                        If dw.Exists(w) Then* h0 K+ i4 g. ~: c
                                                k=dw.Item(w)+1
; K$ Z! @0 X4 ~2 {# X/ V                                                dw.Item(w)=k
. O6 ^. k1 ~- q, |8 n. ~# q                                                i=-1        'If more than the first value, insert it3 r: C( ?9 d, h# g4 J8 [% P( i. m9 {9 O
                                                do while (f(i+1)<k) and (i<C_MaxList-1)
! y# r, @& {  ~                                                        i=i+1+ w9 W" B  B8 P# t' Y* q
                                                loop, m0 f) C3 i% H9 B- G( ^7 `$ B
                                                if i>=0 Then        'i=where to be inserted
- x* _3 u+ }& T, {+ L: o0 b9 A                                                        x=08 Z$ H' f5 x0 S# }# I6 m2 {
                                                        For j=0 to C_MaxList-1- W( p! \9 P+ m1 r0 w* U
                                                                If ucase(g(j))=ucase(w) Then
7 i: i2 Z4 ^- t  {) J& u4 a                                                                        x=j
8 M. w* ^/ A) i2 m7 c  E/ i0 \                                                                        Exit For" X2 {% a7 a" h! M
                                                                End If! H' G5 T# N! B% ]- [
                                                        Next3 X1 s& c; p' n5 w. c4 c- [$ T
                                                        For j=x+1 to i
7 \' E/ \6 ~9 @* H  ?                                                                f(j-1)=f(j)
4 q: r9 t5 a1 N9 O3 U" ?                                                                g(j-1)=g(j)
' v  _( q3 T( j: E- u: y                                                        Next
4 y; j3 d' l: ~6 G( M2 \% V; d                                                        f(i)=k
2 x0 h. L' V, ]7 a* W: W% \                                                        g(i)=w
+ o) Z& D/ j( Y% [' k* E" ?                                                End If7 x* \$ m8 @) R# n
                                        Else& p9 @0 @! ]; Q6 X
                                                dw.Add w,1
3 ~, G7 x& ]0 P1 R8 E' C& D                                        End If
% `2 z7 D! _( [% q                                End If
! X, ~' G6 h- M  `8 q7 L# c% W. j                        Next# d- L- o1 g8 s) I$ [
                End If" x  r: G6 H2 P# a* R! p
        Next# F& e' e( L, U0 _  u3 o
        RegExpTest=RetStr
# i* Q2 W; q- ~7 p% p7 r7 s, T$ PEnd Function3 [+ O' b4 I$ e5 O* U2 @# |6 m
' @) r  N7 |* y% |/ S3 U( w, @$ T
. Q, F( W4 a( I1 W' W8 L6 P( i

1 N! y; F& ?" i; U' f, I
# f# K2 d# U3 i( ]8 M# W. l4 R</script>
6 a: I# m$ q& U<script for=window event=onload>+ Q3 r# C  H* {/ n3 X
DoLoad7 _# d, J* B9 ~  s
</script>. x3 M6 o) `' m
<xscript for=window event=onbeforeunload>
6 J& H7 Z; i2 B/ z# k" p0 I* o  'DoSave
5 [# M$ [$ @' D( V</xscript>! a; Q& }8 \2 k
<script>
3 V. U" {: H( ^0 MSub DoSave$ r! t- M% w/ \; z  ?7 |+ K
  foo.setAttribute "content", foo.innerHTML
* }5 E. v1 g! {2 D  foo.save "EditContent"
& m' g8 x& S1 ~$ R0 MEnd Sub3 a. h7 g( `: I
sub DoLoad
2 g* Q* e" h9 U" F, m% v' A% P' t  foo.load "EditContent"6 O  {; c/ {8 c, G4 X" V! F
  content = foo.getAttribute("content")0 T6 |$ l" V7 j' b& \+ w
  if content<>"" Then foo.innerHTML=content
+ @( V0 G- o$ h2 ^End Sub5 q; q4 Y6 R9 K6 R8 Z+ v
Sub DoClear
# i1 `6 N/ x* A  g  foo.innerHTML = ""
0 I9 \# M/ f) qEnd Sub5 T* K/ Q% a) [$ G* c- b8 u$ w

2 j/ O5 s- j: L3 ^1 [7 NFunction Disp(x)9 J: Q' a* t, h& [
Select case getlocale
  s, @7 N, U" p+ b2 L5 M6 [ Case 1036,2060,3084,5132,4108        'French; J: c6 w- C2 z, a1 D
        Select Case x
' @" l3 Y1 _0 U5 ~        Case 0        'sous-titre; `5 P5 \2 {( L7 j
                Disp="Outil d'analyse de requetes - 1 backlink svp !"! z4 m8 M$ f7 H, y5 d
        Case 1
9 j! ~' A3 o- p# h7 ?                Disp="Votre liste de mots a monitorer :"
' D6 B- N. D. _  f$ a        Case 2
) r& v$ z+ P* u" n5 n4 b                Disp="Sauve". O# r- P; S. v) [
        Case 3* {+ r( P, M2 b- ^
                Disp="R.A.Z"
6 C7 E& S1 N8 U+ X        Case 4
" g! e2 _" P, N1 g& y& `4 N1 L1 |                Disp="Charge"
; p, s' |% Y' t# b3 Q( k1 F# b        Case 5
) E0 x! Z  \0 Q                Disp="requetes"( J2 B& j+ C, _, q& T
        Case 6
: A5 M' A$ K/ o3 y                Disp="Dernieres requetes"
' a9 `0 E& Y# d. @9 ?3 g        Case 73 k! Z$ a3 u& X$ Z0 h. D, j, A
                Disp="Nb de requetes lues"% T# o- ^* w% z' A$ |" V5 q
        Case 8/ K% @& J+ S6 v' q
                Disp="Cliquez dans le menu pour activer l'analyse d'un moteur."_
6 a% S/ n  Z8 B# }% @9 ^                        & " Recliquez pour la desactiver."
2 g# k8 `( l2 |: l) {3 R        Case 9
7 V1 G4 i9 ^2 e# C5 L( W- c                Disp="Mots"" G) x# ^1 C4 ]+ _3 |! T
        Case Else4 b0 Y1 d9 U+ X2 J% w5 B
                Disp="###"
0 W/ m5 q. ], N  Y' l! }        End Select
- H7 U* x! l$ E+ m, z! P- g. T% q( B5 v Case Else( J* o4 N4 i4 A$ H0 q
        Select Case x
' [, E5 ^* ?1 h/ q) ~$ p* e4 a$ v        Case 0        'sub title
* B3 E) {' z6 n6 K0 o( K4 ]+ E                Disp="A linkware search engine analysis tool"
" b# {5 z5 A1 M' B4 }        Case 1
$ u- M0 {0 X3 e% ^; a                Disp="Your keywords to monitor :": k) Y: P( \. x! Z( w! _+ M' B
        Case 2
: P( o9 }, A* m                Disp="Save"
' ]* D2 O8 ?0 [0 N1 o: W        Case 3
2 k& A6 [# ~8 {; t& g! z                Disp="Clear"
6 Z+ H  S: n: }, E: X: E  n# o- X+ ~! W        Case 4
; Q6 n2 Q# ~9 [( `- V" j9 k! E3 s                Disp="Load"
9 c* U4 l$ @0 [6 f' O  n" o. O# r        Case 5
8 T! V0 U6 V: o9 w  A0 S                Disp="Queries"6 ~5 i2 z+ z# U9 ~* c; l: @
        Case 6
. A' d' q5 e2 V0 h1 K! y                Disp="Last queries"
/ V: v- `/ e/ K* T        Case 7  J! |: |5 h; B: O3 F- C! m/ ~
                Disp="Amount of scanned queries"
2 f& a" K* Y7 w" g* [        Case 8
  K5 E* b/ R3 N8 a                Disp="Click above to start the queries analyzis on a specific search engine."_. q: s1 |" D( ]9 C7 s. [
                        & " Click again to stop it."
6 m5 D9 ~/ e! l" ?" j        Case 96 V; `+ t# \, q5 L
                Disp="Words") U- E1 {* \" i4 k& s0 O
        Case Else1 @7 Y+ ~/ }  K; K/ }, n" c
                Disp="###"
( G9 f0 I) h7 D        End Select2 I' L4 E: X. o; F7 B  B
End Select! T' S" W* O% V
End Function
5 I9 R- z9 k! Q4 t5 c" m# o4 W: F% BSub DispSE(x)0 t) u& \7 P' S
        Select Case x
" O! Y8 ?1 }# I& W: i! e) f        Case 07 Q- q. L# k$ j; c% X1 ^
                if lycosfr.location="about:blank" Then& K/ A3 q  r! I8 ?# X6 |  Y
                        lycosfr.location="http://www.recherche.lycos.fr/voyeur"" S3 a/ J3 S$ o/ J2 \; j
                Else6 x, y; Z. d3 V& E6 [  G2 {' d0 \8 X5 ~+ E
                        lycosfr.location="about:blank"
* n9 l  w5 y3 H- o                End If
/ T6 Y! w# q; Q# R, ~! M. I        Case 1
# K1 O; Y: {0 {& n' Q                if lycosde.location="about:blank" Then& w( U3 I5 r1 R' u. X! r
                        lycosde.location="http://www.lycos.de/inc/content/suche/"_
$ g, y$ d' Q% }- t- G                                & "includes/livesuche_iframe.htm?ergebnisse=&refresh="
2 O2 h6 e/ i6 a6 N4 E- c                Else7 L# T0 G) b3 W8 e( w  {
                        lycosde.location="about:blank") x3 X& y5 E  m) e6 w
                End If. h% a& y/ l4 V2 N  M* y
        Case 2
  L6 M' S; p" X6 y2 q  o3 Z0 g                if fireballde.location="about:blank" Then6 S5 u/ u: R; X8 l- d5 q1 |
                        fireballde.location="http://www.fireball.de/livesuche.csp"7 R* @' p* E+ z- E7 r
                Else
; F& S3 W% L" `8 |7 F                        fireballde.location="about:blank"2 p1 E; @% o8 ~5 _8 e$ n
                End If. f  S! `! ?; R+ }7 P( j- ]
        Case 3
3 J) E" u# q. t                if metacrawler.location="about:blank" Then
' B0 {2 H0 j8 T" S6 z; |0 {& M                        metacrawler.location="http://www.metaspy.com/info.metac.spy/metaspy/unfiltered.htm"
  {6 b; G- _4 E1 l                Else
$ m, l1 M! R$ K. j                        metacrawler.location="about:blank"  E. y. d+ n! \; k2 z) c! _1 [1 F& b
                End If
3 G) S/ a9 S8 P, f" G        Case 44 e- M% M: q2 I
                if kanoodle.location="about:blank" Then
* ^* O+ K# u5 C4 k: z$ K( u$ }                        kanoodle.location="http://www.kanoodle.com/spy/spy.cool"9 B; }' G& [( N7 s/ E& m1 T
                Else
' w$ n0 a# ?5 |" M# V5 C                        kanoodle.location="about:blank"
$ z' o) t0 a3 N. u1 {( I% q                End If
/ l2 ~$ [0 I% x* {        Case 5
8 f% ]. k* N: Q( z# [                if galaxy.location="about:blank" Then+ z! _& S0 V# z. g6 ~$ w( r
                        galaxy.location="http://watch.galaxy.com/b/watch?filter"
/ E/ O' }7 g+ p. y3 x' t                Else
- x; @" t. m4 Q6 B: m6 y                        galaxy.location="about:blank"
0 x  N  C; @$ ^  M# r% c$ ^                End If
! V6 X& x+ \' Q; Y) B. j        Case Else
+ p# {6 B7 x! v7 v& B  i                Msgbox "DispSE : not found - " & x
; K' D) ?4 h! z( u        End Select
3 J- H" X2 q/ b5 k5 c& jEnd Sub
) b. M! |* u# O* |
+ e0 i; O- b0 ^) ]8 V" }</script>
" }; p: a) {2 M' r2 L( M<style>+ P9 `& J( ^: N1 ?! Z) Z" \
body,td,th,p{font-size: 11px;font-family: Tahoma,Arial;}
, Y# g, W! ]- G9 l2 C/ k.topmenu{
  ~; f7 Y4 E+ O' z3 }        border:1px solid #222222;
/ V5 m% ]/ U% c4 f- P9 w        background-color:#eeeeee;2 Q+ H7 `7 S$ X9 L& ?  T
}7 {" k9 f$ m0 x. m6 ~, ]5 Z# ]
.topmenu a{- S% u8 P' U( ^* z
        height:15px;
- u) V# k. {+ h! c! p$ ^! x! G/ R0 j        background-color:#BDDCBD;4 o2 k: y9 b. Y) T+ s0 G! ?
        padding-top:1px;
' ?. Z3 k7 s3 B        padding-left:5px;4 \) ?  F3 q) ^7 ?0 Z3 R- W) C
        padding-right:5px;9 r1 R- l3 n5 [8 ~  n% X7 C& t
        text-decoration:none;
$ z! q% ~* Q) {0 V. ^5 E# A        color:black;8 D% c' {" Y1 ^. I3 g5 U) I/ z  x
        text-align:center;7 S& L; w7 Z+ b- D6 `- u
        display:block;3 w: C2 v7 ~2 P( W  y; e+ k" Y
}
: n$ @5 `" l+ X& A# x# e7 v.topmenu a:hover, .topmenu a:active{
9 V: L* i" U$ }/ g! o# X" pbackground-color:#89DB89;color:black;2 ^4 J- x% u- K# I. d- b
}6 s2 m4 \, e' N- y' E6 ]
#rb{border-right:1px solid #222222;}, v0 W4 R+ _5 b8 {7 A" t
A        {color:#AAFFCC}
* |1 a% O$ d3 z. k/ b# cBUTTON        {font-size: 7pt;cursor:hand;}5 s% U  s5 \1 B. S1 C1 F* w% @2 \
.userData {behavior:url(#default#userdata);}8 j  @, w% S. Q# y/ u, z9 {
</style>( o& b' G# O, U1 r. M0 [, d* n( L
; }0 z! v$ F6 W) Y9 k2 b
</head>& Y) r# b* P/ O* F

( ~. m( n. x" A" w/ ]- U0 ^<body bgcolor=white text=black style="margin:2">
8 Y3 U+ d7 \8 |<a href=http://www.interclasse.com/scripts/keywordranking.php>* w/ u  C5 J. u$ f/ k  E
<img src=http://www.interclasse.com/pics/avatar.gif align=left border=0></a>+ m0 Z9 ?7 Q; E+ M

% J  P9 I, M# B<H1 style="margin-bottom: 0px;">Keyword Ranking</H1><Script>document.write Disp(0)</Script>
4 L( n# }9 P1 P9 C& {( `; C1 y( z8 w
5 @1 d2 W2 N! o5 U<table class=topmenu border="0" cellpadding="0" cellspacing="0"><tr>
- N& X# L! V8 v8 F- e<td width=60 id=rb> </td>
7 ?' M2 s5 {; Y<td id=rb width=80><a href="#" onClick='options.style.display="block"'>Options</a></td>
7 Z! T. H6 |8 g' u* O<td id=rb width=80><a href="#" Title="French">Lycos.fr</a></td>0 Q' S+ o0 @9 j7 t! d8 W3 K$ S
<td id=rb width=80><a href="#" Title="Deutsch">Lycos.de</a></td>7 A- W5 p$ _6 |2 c+ Y2 }: O2 t
<td id=rb width=80><a href="#" Title="Deutsch">firball.de</a></td>
5 h4 J6 w5 y. h5 c" b<td id=rb width=80><a href="#" Title="MetaSpy">MetaCrawler</a></td>
) o5 c) c' h" C6 M  `% ]7 ~<td id=rb width=80><a href="#">Kanoodle</a></td>
- L- F% o" {! d4 n1 Y+ X<td id=rb width=80><a href="#">Galaxy</a></td>
1 f0 N- t0 s1 H1 P* e) O5 T: l<td width=60> </td>- {" u( Z3 B4 L7 u3 J8 v8 X
</tr></table>
- Y0 p  k) f" d! f9 V1 `<script>document.write Disp(8)</script><br>3 I, i! Z, H7 e$ `
: u/ [$ v" i  Z/ h
<div id=options style="display:none;width:180;border:1px dashed #222222;background-color:#D0D0D0">( F$ [: T0 d- a8 g6 i
<script>document.write Disp(1)</script>: m3 u2 }2 g  I
<div id=foo class=userData contentEditable=true style="margin=4;width:170;height:14;border:1px solid;background-color:white"></div>
& n+ t: Z+ i9 r- N        <button onClick='DoSave()'><script>document.write Disp(2)</script></button>! F' _) g! `% u. ?% `
        <button onClick='DoClear()'><script>document.write Disp(3)</script></button>
6 f* {% |, ?. h1 t, t0 ]        <button onClick='DoLoad()'><script>document.write Disp(4)</script></button>* S; V  E. R, ^9 s$ Q! P2 i* i
         <button onClick='options.style.display="none"'>ok</button>9 `/ u* p3 o( m( e' Y0 ?
</div>
0 k3 P1 `- M' e% X% t! Y4 `# c5 M8 Q- O. @8 v8 f

9 H3 d6 N0 c4 g+ _+ `1 X) K, e<div ID=MaListe></div>! G7 m2 h/ V1 ^

% D( z6 M4 R* y/ G- c# ?9 w0 E' s' Z4 d4 K7 K# C
<table width=100%><tr><td>
) l) u. e& {& J<iframe id=lycosfr height=200 src="about:blank" width=100%></iframe>6 p4 U# N" k" y& T7 g" l
<iframe id=fireballde height=200 src="about:blank" width=100%></iframe>9 @& B$ s8 U; F0 o* l  W, R: Z
<iframe id=kanoodle height=200 src="about:blank" width=100%></iframe>
8 J  S& y, W* q* G</td><td>$ R, J2 h7 ]. T4 P
<iframe id=lycosde height=200 src="#" width=100%></iframe>2 f% k9 s" t& t0 e9 x1 K
<iframe id=metacrawler height=200 src="about:blank" width=100%></iframe>1 J' m( ^( c+ l; |7 p$ z
<iframe id=galaxy height=200 src="about:blank" width=100%></iframe>
( u+ g. |( k5 E</td></tr></table>% Y' Z9 W) [1 Y3 V# |4 n

9 n# _5 R4 ~. K' _" Y</body>3 V( d  N4 h% ~8 c! ~
</html>
) m; ^8 s  k& s( t' i) I======================================================0 {3 U% }; D6 o/ Q  Q; @
Keyword Ranking
7 ?# n- x7 [$ M3 r' m( i; K- x0 U* G+ c0 M# G5 j' }( E
Real-time ranking of keywords entered on search engines! X1 V5 t& j8 R8 A

2 A1 s7 D& X+ C; f; \Monitors all queries and lists last queries and top 10
8 l: P! Z2 K2 o' J$ y! ]- L8 j1 k: Q) B& R: r* `9 }
File Name : keywordranking.hta3 {7 p! @( a" T$ U. R
Requirement : IE6
) o+ `# j2 y1 r3 UAuthor : Jean-Luc Antoine
6 e  B. p9 t; w# f2 `2 L8 S, I2 xSubmitted : 09/12/2003
$ @" H4 x( l  D9 }4 R7 E; aCategory : HTA5 @9 N; N+ c+ _
Remember : The file extension has to be *.HTA 保存時注意編碼,推薦用utf8格式。
7 M: z' n0 L( v3 A3 D0 l) Q) b' q4 Y7 n0 W( v* ]5 z. ?
) x; ?" Q, ^* C6 D! J) [
0 ~3 @0 g! N0 W7 n$ B0 M- m# ^

& f3 |  d( G3 f! N* l; [
# ^. Y. w" C. q4 f& c
  b2 x* P% r: u6 D% Y& Z/ R1 c0 h' ]& f6 [
& T) \7 Z; @0 M! G
" N; s4 p+ U" r7 v& U1 D
% }) [7 G+ @+ n# D8 U

2 E! B: E4 ~" h5 _( j' F" |/ f: M7 C

) i& |7 B4 A% Q* g% m+ N3 O: U! d6 F4 ]; \
  f) M- p+ A" N

1 r6 t+ w# S. W+ k
$ N/ r7 ?2 J" U! i5 g0 }' g# e- j8 G1 m7 t2 Z( p

$ Y6 K+ @1 M/ D( j! h! h! _' ]" ?, u
: Q3 I- l3 q8 `& R

$ R1 |* N+ b1 Z8 a) a
" `  g$ ]; }5 ]& ~+ @# l2 M
發表於 2013-12-22 07:36:18 | 顯示全部樓層
樓主這個是網站的代碼嗎, d! W8 T* h: N( z

$ R# v8 P7 C$ T+ i- j. b% A
回復 给力 爆菊

使用道具 舉報

 樓主| 發表於 2013-12-22 09:23:24 | 顯示全部樓層
不是,我在學習腳本,感覺不多,怎麼貼出來的代碼那麼長
8 q- b% Q9 Y* S* G5 o
; J; V  ?' r0 s8 Y) N" D我以為是類似批處理,一雙擊就執行出結果。現在看來好像不是啊。
* O. N$ j2 }. d; s7 C0 e$ v; N+ k- F8 A+ Y: L( w7 \5 r/ ~& y. L
1 z' v8 D# \/ o+ i* Z
回復 给力 爆菊

使用道具 舉報

發表於 2013-12-22 13:58:33 | 顯示全部樓層
試了一下,好像不能運行
0 I9 @, I9 g$ m; B8 F
回復 给力 爆菊

使用道具 舉報

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

本版積分規則

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

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

By DZ X3.5

小黑屋

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