Foro de elhacker.net

type www.mipaginaweb.html?opcion=lista.txt > milista.txt 

telnet www.mipaginaweb.com 80 > milista.txt
GET /html?opcion=milista.txt HTTP/1.1
connection: close
host: mipaginaweb.com

@ECHO OFF
PUSHD %~dp0
set OBJ=ver_codigo_fuente_de_una_pagina_web_desde_msdos-t324643.0.html.TXT
WGet "http://foro.elhacker.net/scripting/%OBJ%"

REM START "programa editor" %OBJ%
REM type  %OBJ% | more
REM NOTEPAD %OBJ%

SETLOCAL ENABLEDELAYEDEXPANSION

SET LOC1="skip=1"
SET LOC2=1500

FOR /F %LOC1% %%F IN (%OBJ%) DO (
SET /A  CONT+=1
CLS & ECHO. & ECHO  PROCESANDO LINEA !CONT!
ECHO !CONT!. %%F >> HTMLPROCESADO.TXT
IF !CONT! EQU %LOC2% GOTO :EOF
) 

ENDLOCAL
GOTO :EOF

@ECHO OFF
PUSHD %~dp0
set OBJ=http://foro.elhacker.net/scripting/ver_codigo_fuente_de_una_pagina_web_desde_msdos-t324643.0.html
WGet  -O OBJ.HTML -o log.INF %OBJ% && (ECHO  %TIME% INICIO PROCESO: > HTMLPROCE.TXT) ||(COLOR 1F&TYPE LOG.INF &PAUSE&EXIT)

SETLOCAL ENABLEDELAYEDEXPANSION

SET /A LOC1=99& SET /A LOC2=500& SET /A CONT=LOC1

IF %LOC1% EQU 0 (SET LOC1=) ELSE (SET LOC1=skip=%LOC1%)

FOR /F "tokens=* %LOC1%" %%F IN (OBJ.HTML) DO (
SET /A  CONT+=1
CLS & ECHO. & ECHO  PROCESANDO LINEA !CONT!

ECHO !CONT!. PROCESANDO DATOS: %%F >> HTMLPROCE.TXT
IF !CONT! EQU %LOC2% GOTO EOF
) 

:EOF
NOTEPAD HTMLPROCE.TXT
ENDLOCAL