검색 엔진에 입력 된 키워드의 실시간 순위
모든 쿼리 및 마지막 쿼리 및 상위 10 개를 모니터링합니다.
파일 이름 : keywordRanking.hta
요구 사항 : IE6
저자 : Jean-Luc Antoine
제출 : 2003 년 9 월 12 일
카테고리 : HTA
기억하십시오 : 파일 확장자는 *.hta 여야합니다
将下面的代码保存为 keyword.hta 即可。保存时注意编码 即可。保存时注意编码, 推荐用 UTF8 格式。
代码如下 :
<html> <head>
<title> 키워드 순위, (c) Jean-Luc Antoine </title>
<HTA : Application ApplicationName = "검색 엔진 도구"
Border = "Deich"Borderstyle = "정상"
캡션 = "예"ContextMenu = "예"
Innerborder = "Yes"MaximizeButton = "Yes"MinimizeButton = "Yes"
navigable = "no"scroll = "yes"scrollflat = "no"
선택 = "예"showintaskbar = "예"Singleinstance = "No"
sysmenu = "예"버전 = "0.3"Windowstate = "Normal">
<script language = vbscript>
옵션 명시 적
'버전 :
'v0.3queries and Words : 동시에 순위
'v0.2new 룩, 옵션, 많은 SE
'다국어 시스템
'v0.1first draft, 키워드 순위 및 마지막 쿼리
'TODO :
'gérer systématiquement à la fois 키워드 et 문구
'Sur Les Keyword, Permettre de Zoomer (Showmodeless) Sur Les 문구 오염 물질 LE 키워드 Pour Connaître Le ranking des variations
'리스터 en 영구 LES MOTS-CLEFS MONITOLES AVEC LEUR 발생 ET ET PERMETTRE LE Même ZOOM
'Mettre en Gras Les 키워드 모니터
'임시 메스저
'Afficher pourcentage en plus du nb d'발생
'모니터 X MOTS-CLEFS et leur ightiition/fréquence intrative
'Faire Bouton de Refresh Manuel Si Ça SE Bloque (location.reload ())
'gérer les fenêtres lancées 오프라인 et non pas inline (intercepter events par showmodeless 대화 상자)
'식별자 nb de pages retournées par requete et indice de concurrence
'Permettre de sauver le résultat
'http://wordtracker.com/newsinput.txt
const c_maxlist = 20 '###이를 변경하여 상위 20으로 사전 정의되었습니다
dim d, dw, a (), b (), f (), g (), i
redim a (c_maxlist)
REDIM B (C_MAXLIST)
i = 0에서 c_maxlist-1까지
a (i) = 0'nb d '발생
b (i) = "" '값
다음
redim f (c_maxlist)
redim g (c_maxlist)
i = 0에서 c_maxlist-1까지
f (i) = 0'nb d '발생
g (i) = "" ''값
다음
set d = createobject ( "scripting.dictionary") '쿼리
d.comparemode = 1'vbtextCompare
dw = createobject ( "scripting.dictionary") '단어를 설정하십시오
dw.comparemode = 1'vbtextCompare
Sub Go (SE)
Dim S, X, SQ, S2, SW
CASE SE를 선택하십시오
사례 0
s = regexptest ( "pursuit/? query =.*? &", lycosfr.document.body.innerhtml, 15)
사례 1
s = regexptest ( "pursuit/? query =.*? &", lycosde.document.body.innerhtml, 15)
사례 2
s = regexptest ( "[^az] q =.*? &", fireballde.document.body.innerhtml, 4)