Revela o ID e baixa avatares dos usuários do Chat da UOL

@echo off

rem Este script serve para ver o ID dos usuários do chat UOL e baixar as fotos de avatar.
rem Para que funcione, é preciso ter o aplicativo 'wget.exe' instalado.
rem Se não for possível instalá-lo, copie o aplicativo para dentro da mesma pasta deste script.
rem Salve este script renomeando-o como "avatar_grabber.cmd" e o execute.

setlocal
set input=%~1
if not "%~1"=="" goto begin
color f0
title Baixador de Avatares do Chat
cls<nul
for /f "delims=: tokens=2" %%a in ('chcp') do set chcp$=%%a
chcp 1252 >nul 2>&1
echo.
echo Este script revela o ID de um usuário da UOL e baixa o seu respectivo avatar.
echo No navegador, clique com o botão direito sobre o perfil da pessoa e escolha a
echo opção "copiar endereço da imagem".  Em seguida, cole o endereço nesta janela.
echo Para isso, clique nesta janela com o botão direito e escolha a opção "colar".
echo.
chcp %chcp$% >nul 2>&1
set /p input=Cole aqui:
if not defined input goto :eof
:begin
echo Ok. Aguarde...
set pget=wget --continue --retry-connrefused --tries=0 --no-check-certificate --user-agent="Mozilla/5.0;Gecko/20100101;Firefox/25.0"
set prefix=%input%
set prefix=%prefix:.=/%
set prefix=%prefix://=/%
for /f "delims=/ tokens=2" %%a in ("%prefix%") do set profile=%%~na
for /f "delims=/> tokens=7" %%a in ('%pget% -q -O - stdout http://mais.uol.com.br/sys/content/author?codProfile^=%profile% ^| find "usr"') do (
	set usr="%%~a
	goto jmpoff
)
:jmpoff
for /f "delims=" %%a in (%usr%) do set usr=%%~a
%pget% -q -O%usr%$%profile%.jpg https://%profile%.avataruol.com.br/avatar.jpg
cls<nul
echo.
echo Dados:
echo User=%usr%
echo Profile=%profile%
echo Avatar=%cd%\%usr%_%profile%.jpg
echo.
pause