@echo off
TITLE SUBIDOR DE ESTATISTICAS
Color 0a
if "%1" neq "Administrador" call :elevate
cd %~dp0

SETLOCAL
SETLOCAL EnableDelayedExpansion EnableExtensions
SET "TextFile=Buscas.txt"
chcp 1252 >nul
set nn=2
set nn2=0
set off=N
set shhh=50

if not exist "%textfile%" (
Set "Ti_Tle_Men=Arquivo inexistente"
set "M_ensa=Seu arquivo %textfile% nao existe \n\nEstamos criando um arquivo para voce \nQuando ele abrir salve os links de pesquiza do google\nque voce quer e salve\n\nEx: \nhttps://www.google.com.br/search....\nhttps://www.google.com.br/search...\nhttps://www.google.com.br/search....\nE assim por diante...."
CALL:MENS_AGENS "%M_ensa%" "%Ti_po_men%" "%Ti_Tle_Men%" "1" "64"
if "!botao!"=="OK" (
echo.>%textfile%
notepad %textfile%
) else ( call:gerabuscas )
)





SET RandomLine2=1




:ini_cccio

Set "Ti_Tle_Men=Desligar o computador ?"
set "M_ensa=Desligar o computador após executar o Backup ? \n\nCertifique-se de que todos os aplicativos estão fechados. e seus trabalhos salvos"
CALL:MENS_AGENS "%M_ensa%" "%Ti_po_men%" "%Ti_Tle_Men%" "4" "32"
if "!botao!"=="Sim" (
set "shutdown=Sim"
set /p shhh=Quantidade de tokens ? :
call:num_lt !shhh!
set "off=S"
)
if "!botao!"=="Nao" (
set "shutdown=NÆo"
set "off=N"
)



:main
cls
mode 70,5
set /a nn2=%nn2%+1
if not exist "%textfile%" call:gerabuscas
FOR /f %%a IN ('type "%textfile%"^|find /c /v ""') DO SET /a numlines=%%a
:rando
SET /A RandomLine=(%RANDOM% %% %NumLines%)
set /a RandomLine2=%nn2%*%RandomLine%
if !RandomLine2! gtr 100 SET RandomLine2=100


rem set "tempor=Timeout /T !RandomLine2!"

rem echo %tempor%

IF "%RandomLine%"=="0" (SET "RandomLine=" & goto rando) ELSE (SET "RandomLine=skip=%randomline%")
FOR /F "usebackq tokens=* %RandomLine% delims=" %%A IN (`TYPE %TextFile%`) DO (
set linha=%%A
GOTO Finish
)

:Finish
IF "!linha:~0,3!"=="htt" start /min "" !linha!
IF "!linha:~0,1!"=="#" iexplore "https://www.google.com.br/!linha:"=!" & goto ttttt
IF not "!linha:~0,3!"=="htt" start /min iexplore "!linha!"
:ttttt

for /l %%i in (1,1,!RandomLine2!) do (
echo.
echo.
@echo  %%i   de   !RandomLine2!

ping -n 2 -w 1 127.0.0.1 1>nul
cls
)

rem %tempor%
call :killa_
if %nn2%==10 (
call:para_crome
set nn2=0
)
goto main












:MENS_AGENS
if exist "%temp%\$" del /q /s "%temp%\$" >nul
if exist "%temp%\#" del /q /s "%temp%\#" >nul
set "botao="
::**********************************************************
::-Selecione o botão da msgbox:
set "b_m=%~4"
::-0) Somente OK
::-1) OK and Cancelar
::-2) Anular, Repetir, Ignorar
::-3) Sim, Não, Cancelar
::-4) Sim ou Não
::-5) Retornar e cancelar
set "i_m=%~5"
::-Select msgbox icons:
::-16) Critico
::-32) Questão
::-48) Exclamação
::-64) Informação
set /a style=%b_m%+%i_m%
(
echo. set args=WScript.Arguments
echo. Dim text,style,title,return
echo. text=args.item(0^)
echo. style=args.item(1^)
echo. title=args.item(2^)
echo. x=msgbox(Replace(text,"\n",vbCrLf^),style,title^)
echo. if x=vbOK then
echo. return=1
echo. elseif x=vbCancel then
echo. return=2
echo. elseif x=vbAbort then
echo. return=3
echo. elseif x=vbRetry then
echo. return=4
echo. elseif x=vbIgnore then
echo. return=5
echo. elseif x=vbYes then
echo. return=6
echo. elseif x=vbNo then
echo. return=7
echo. end if
echo. wscript.quit return
)>"%temp%\%~n0.vbs"

Cscript /nologo "%temp%\%~n0.vbs" "%M_ensa%" "%style%" "%Ti_Tle_Men%"
echo.%errorlevel%>"%temp%\$"
set /p BB_ton=<"%temp%\$"

if "%BB_ton%"=="1" ( echo.OK>"%temp%\#" )
if "%BB_ton%"=="2" ( echo.Cancelar>"%temp%\#" )
if "%BB_ton%"=="3" ( echo.Abortar>"%temp%\#" )
if "%BB_ton%"=="4" ( echo.Retornar>"%temp%\#" )
if "%BB_ton%"=="5" ( echo.Ignorar>"%temp%\#" )
if "%BB_ton%"=="6" ( echo.Sim>"%temp%\#" )
if "%BB_ton%"=="7" ( echo.Nao>"%temp%\#" )
for /f "tokens=*" %%i in ('type "%temp%\#"') do set botao=%%i
SET botao=%botao: =%

::********************
GOTO:EOF



:killa_



call:clen_crhome
 goto:eof


:clen_crhome
set /a nn=%nn%+1
set /a shhh=%shhh%-1

if /i "%off%"=="S" (
if %shhh%==0 ( shutdown -s -t 0 -f )
)

if /i "%off%"=="N" (
if %nn%==50 ( set nn=0 )
)
title **** %shhh% **** Finalizar e desligar: %shutdown%
goto:eof



:para_crome
 FOR /f "tokens=1" %%a IN ('"wmic nic get physicaladapter, index, name | findstr TRUE"') DO (
    rem Get the index of the interface
    wmic nic where index=%%a get name | findstr -v Name
echo %%a
    rem Disable the interface - this will flush the previous ip address
    wmic path win32_networkadapter where index=%%a call disable >nul 2>&1
    if NOT %ERRORLEVEL%==0 (
      echo Error %ERRORLEVEL% when disabling interface
    ) ELSE (
      echo Disabling interface...
    )

    rem Enable the interface
    wmic path win32_networkadapter where index=%%a call enable >nul 2>&1

    if NOT %ERRORLEVEL%==0 (
      echo Error %ERRORLEVEL% when enabling interface
    ) ELSE (
      echo Enabling interface...
    )

    echo.
  )

call:GOO_GLE


    del "%tmp%\*.*" /s /q /f
    FOR /d %%p IN ("%tmp%\*.*") DO rmdir "%%p" /s /q
Echo Clearing cache, cookies and history for:
start "" "C:\Windows\System32\rundll32.exe" InetCpl.cpl,ClearMyTracksByProcess 255
start "" "C:\Windows\System32\rundll32.exe" InetCpl.cpl,ClearMyTracksByProcess 2
start "" "C:\Windows\System32\rundll32.exe" InetCpl.cpl,ClearMyTracksByProcess 8
start "" "C:\Windows\System32\rundll32.exe" InetCpl.cpl,ClearMyTracksByProcess 43

call :kill chrome
call :kill firefox
call :kill opera
call :kill iexplore
:: -------------
:: Flash Cookies
:: -------------
set /p "=* Flash Player... "<NUL
set FlashCookies=%APPDATA%\Macromedia\Flashp~1

>NUL (
    if exist "%FlashCookies%" (
        del /q /s /f "%FlashCookies%"
        rd /s /q "%FlashCookies%"
    )
)
echo Done.

goto :EOF

:: -------------
:: Google Chrome
:: -------------

set ChromeDataDir="C:\Users\%USERNAME%\AppData\Local\Google\Chrome\User Data\Default"
set ChromeCache=%ChromeDataDir%\Cache>nul 2>&1
del /q /s /f "%ChromeCache%\*.*">nul 2>&1
del /q /f "%ChromeDataDir%\*Cookies*.*">nul 2>&1
del /q /f "%ChromeDataDir%\*History*.*">nul 2>&1


set ChromeDataDir="C:\Users\%USERNAME%\Local Settings\Application Data\Google\Chrome\User Data\Default"
set ChromeCache=%ChromeDataDir%\Cache>nul 2>&1
del /q /s /f "%ChromeCache%\*.*">nul 2>&1
del /q /f "%ChromeDataDir%\*Cookies*.*">nul 2>&1
del /q /f "%ChromeDataDir%\*History*.*">nul 2>&1
ECHO **** Clearing Chrome cache DONE


pushd "%LOCALAPPDATA%\Google\Chrome\User Data\Default" 2>NUL && (

    set /p "=* Google Chrome... "<NUL
    call :kill chrome

    for /f "delims=" %%I in (
        'dir /b ^| find /v /i "bookmarks" ^| find /v /i "extension" ^| find /v /i "preferences"'
    ) do (
        if exist "%%~fI\" (
            rmdir /q /s "%%~fI"
        ) else del /f "%%~fI" >NUL
    )

    popd
    echo Done.
)


:: -------
:: Firefox
:: -------
pushd "%LOCALAPPDATA%\Mozilla\Firefox\Profiles" 2>NUL && (

    set /p "=* Firefox... "<NUL
    call :kill firefox

    for /f "delims=" %%I in ('dir /b /s /ad *cache* 2^>NUL') do (
        if exist "%%~fI" rmdir /q /s "%%~fI"
    )

    popd
    pushd "%APPDATA%\Mozilla\Firefox\Profiles" 2>NUL && (

        for %%I in (history.dat formhistory.dat downloads.rdf cookies.txt) do (
            for /f "delims=" %%x in ('dir /b /s /a-d %%I 2^>NUL') do (
                if exist "%%~fI" del /f "%%~fI" >NUL
            )
        )
        for /f "delims=" %%I in ('dir /b /s /ad *cache* 2^>NUL') do (
            if exist "%%~fI" rmdir /q /s "%%~fI"
        )
        popd
    )

    echo Done.
)


:: -----
:: Opera
:: -----
pushd "%APPDATA%\Opera\Opera\" 2>NUL && (
    set /p "=* Opera... "<NUL
    call :kill opera
    for %%I in (history cookie session) do (
        for /f "delims=" %%x in ('dir /b "*%%I*" 2^>NUL') do (
            if exist "%%~fx\" (
                rmdir /q /s "%%~fx"
            ) else del "%%~fx"
        )
    )
    popd
    pushd "%LOCALAPPDATA%\Opera\Opera\" 2>NUL && (
        for /d %%I in (*cache) do rmdir /q /s "%%~fI"
        for /d %%I in (*temp*) do rmdir /q /s "%%~fI"
        popd
    )
    echo Done.
)


:: ------
:: Safari
:: ------
pushd "%APPDATA%\Applec~1\Safari" 2>NUL && (
    set /p "=* Safari... "<NUL
    call :kill safari
    rmdir /q /s "%LOCALAPPDATA%\Applec~1\Safari" 2>NUL
    for /f "delims=" %%I in (
        'dir /b ^| find /v /i "bookmark" ^| find /v /i "configuration"'
    ) do (
        if exist "%%~fI\" (
            rmdir /q /s "%%~fI"
        ) else del "%%~fI"
    )
    echo Done.
)


:: -----------------
:: Internet Explorer
:: -----------------
set /p "=* Internet Explorer... "<NUL
call :kill iexplore
>NUL (
    set History=%LOCALAPPDATA%\Microsoft\Windows\History

    if exist "%History%" (
        del /q /s /f "%History%"
        rd /s /q "%History%"
    )

    set IETemp=%LOCALAPPDATA%\Microsoft\Windows\Tempor~1

    if exist "%IETemp%" (
        del /q /s /f "%IETemp%"
        rd /s /q "%IETemp%"
    )

    set Cookies=%APPDATA%\Microsoft\Windows\Cookies

    if exist "%Cookies%" (
        del /q /s /f "%Cookies%"
        rd /s /q "%Cookies%"
    )

    reg delete "HKCU\Software\Microsoft\Internet Explorer\TypedURLs" /va /f 2>NUL
)
echo Done.


:: -------------
:: Flash Cookies
:: -------------
set /p "=* Flash Player... "<NUL
set FlashCookies=%APPDATA%\Macromedia\Flashp~1

>NUL (
    if exist "%FlashCookies%" (
        del /q /s /f "%FlashCookies%"
        rd /s /q "%FlashCookies%"
    )
)
echo Done.

goto :EOF

:kill
taskkill /f /im "%~1.exe" >NUL 2>NUL
set "task=%~1"
:killwait
for /f "tokens=2 delims==" %%I in ('wmic process where "name like \"%%%task%%%\"" get name /format:list 2^>NUL') do (
    ping -n 2 0.0.0.0 >NUL
    goto killwait
)
goto :EOF

:Elevate
  Echo CreateObject^("Shell.Application"^).ShellExecute WScript.Arguments^(0^),"Administrador","","runas",1 >"%~dp0Elevating.vbs"
  cscript.exe //nologo "%~dp0Elevating.vbs" "%~dpnx0"
  del "%~dp0Elevating.vbs" >nul
Exit


:GOO_GLE
SET ADSL=0
FOR /F %%A IN ('"ping -n 1 www.google.com |find /i "recebidos""') DO SET ADSL=1
IF "!ADSL!"=="1" (GOTO ADSL) ELSE (COLOR CF & echo        PRECISA ESTAR CONECTADO NA INTERNET      &  GOTO GOO_GLE)
:ADSL
Color 0a
goto:eof


:num_lt
Set num=0
Set Ti_po=0
Set T1=%~1

:Igu_al

If not defined T1 Goto Fim
Set T2=!T1:~0,1!
If !T2!==0 (
Set num=1
Goto Mos_tra
)
Set/a T2=!T2!
If !T2!==0 (
Set Ti_po=1
) Else (
Set num=1
)

:Mos_tra

Set T1=!T1:~1!
Goto Igu_al

:Fim
If not !num!!Ti_po!==10 (
cls
echo.
echo.
echo.
echo Digite somente numeros
echo.
echo.
echo.

Timeout /T 50
Cls
goto ini_cccio
)

goto:eof

:gerabuscas
(
echo. Batch-satti side de linguagem batch
echo. Batch-satti  conteúdo batch script
echo. Batch-satti  melhor site batch
echo. Batch-satti  msdos
echo. Batch-satti  vbscript
echo. Batch-satti  melhores scripts
echo. Batch-satti  subidor de estatisticas batch
echo. Batch-satti  boss-head super programador
echo. Batch-satti  melhor não tem
echo. Batch-satti  site super show de bola programadores
echo. http://batch-satti.forumeiros.com/t3415-subidor-de-estatisticas#20836
)>Buscas.txt
goto:eof