Batch que busca endereço por CEP:
[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
- Código:
@echo off
SETLOCAL ENABLEDELAYEDEXPANSION
SET /P CEP=Digite o cep:
call :HTML http://www.consultarcep.com.br/busca/!CEP!
cls
for /f "tokens=* delims=" %%a in ('TYPE CEP.WIL ^| FIND /V " CEP"') do (
set palavra=%%a
if /i "!palavra!" neq "" ( echo.!palavra!)
)
echo. http://www.consultarcep.com.br/busca/[CEP]
pause
goto :eof
:HTML
echo. Loading...
(
echo.Dim objADODB, objIE
echo.Dim strText
echo.Set objIE = CreateObject^( "InternetExplorer.Application" ^)
echo.With objIE
echo. .Navigate "%*"
echo. .Visible = False
echo. Do While .Busy
echo. WScript.Sleep 25
echo. Loop
echo. strText = .Document.Body.InnerText
echo. Do While .Busy
echo. WScript.Sleep 25
echo. Loop
echo. .Quit
echo.End With
echo.Set objADODB = CreateObject^( "ADODB.Stream" ^)
echo.With objADODB
echo. .Open
echo. .Type = 2
echo. .CharSet = "us-ascii"
echo. .WriteText strText
echo. .SaveToFile "cep.wil", 2
echo. .Close
echo.End With
)>!TEMP!\wget.vbs
cscript //nologo !TEMP!\wget.vbs
exit/b
Última edição por NeoqJav em Seg Out 10, 2011 1:09 pm, editado 2 vez(es) (Motivo da edição : inserir pause no final do batch)