Criador de Batch Script

[Imoogi]

Esse é um editor de batch script feito em!!!! Batch Scritp!!! ;D

Code Select Expand

@echo off
color 0A
title Criador de Batch Script

:start
cls
echo.
echo                    ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo                    º   Criador de Batch Script                º
echo                    ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹
echo                    º  1.Criar um novo bat                     º
echo                    º  2.Editar um bat j  existente            º
echo                    º  3.Excluir um bat                        º
echo                    º +4.Adicionar op‡äes e efeitos especi is  º
echo                    º  5.Mostrar execu‡Æo do bat               º
echo                    º  6.Sair                                  º
echo                    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
set /p menu1=Op‡Æo:
IF %menu1%==1 goto criarbat1
IF %menu1%==2 goto editbat1
IF %menu1%==3 goto delbat1
IF %menu1%==4 goto menu2
IF %menu1%==5 goto startbat1
IF %menu1%==6 exit
IF "%menu1%"=="" goto start
goto start

:menu2
cls
echo.
echo                    ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo                    º   Criador de Batch Script                 º
echo                    ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹
echo                    º  1.Criar um novo bat                      º
echo                    º  2.Editar um bat j  existente             º
echo                    º  3.Excluir um bat                         º
echo                    º +4.Adicionar op‡äes e efeitos especi is   º
echo                    º    a.Seleccionar cores de fundo e frente  º
echo                    º    b.Adicionar um titulo a um arquivo     º
echo                    º    c.Executar o arquivo ao iniciar        º
echo                    º    d.Efeitos de entrada                   º
echo                    º    e.Box de Menu                          º
echo                    º  5.Mostrar execu‡Æo do bat                º
echo                    º  6.Sair                                   º
echo                    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.

set /p menu2=Op‡Æo:

IF %menu2%==1 goto criarbat1
IF %menu2%==2 goto editbat1
IF %menu2%==3 goto delbat1
IF %menu2%==4 goto menu2
IF %menu2%==5 goto startbat1
IF %menu2%==6 exit
IF %menu2%==a goto color1
IF %menu2%==b goto title1
IF %menu2%==c goto regrun1
IF %menu2%==d goto entrada1
IF %menu2%==e goto menubox1
IF "%menu2%"=="" goto start
goto start

:criarbat1
cls
echo.

echo.
set /p batname=Coloque o nome do Batch Script:
echo @echo off>%batname%.bat
echo.
set /p battitu=Coloque o titulo do Batch Script:
echo.
echo title %battitu%>>%batname%.bat
@echo off
:comecocor
title cores de tela
COLOR %num%%num2%
cls
COLOR %num%%num2%
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³                                              ³
ECHO ³          Agora configure as cores            ³
echo ³            que serao apresentadas            ³
ECHO ³            na tela do programa               ³
Echo ³                                              ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³    0 = Preto        8 = Cinza                ³
echo ³    1 = Azul         9 = Azul claro           ³
echo ³    2 = Verde        A = Verde claro          ³
echo ³    3 = Verde-agua   B = Verde-agua claro     ³
echo ³    4 = Vermelho     C = Vermelho claro       ³
echo ³    5 = Roxo         D = Lilas                ³
echo ³    6 = Amarelo      E = Amarelo claro        ³
echo ³    7 = Branco       F = Branco brilhante     ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³            Para sair pressione " S "         ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
ECHO.
ECHO.
:FRENTE
SET/P color=Cor de Fundo de tela :
if "%color%"=="" set color=1
IF "%color%" equ "0" goto 0
IF "%color%" equ "1" goto 1
IF "%color%" equ "2" goto 2
IF "%color%" equ "3" goto 3
IF "%color%" equ "4" goto 4
IF "%color%" equ "5" goto 5
IF "%color%" equ "6" goto 6
IF "%color%" equ "7" goto 7
IF "%color%" equ "8" goto 8
IF "%color%" equ "9" goto 9
IF "%color%" equ "a" goto A
IF "%color%" equ "A" goto A
IF "%color%" equ "b" goto B
IF "%color%" equ "B" goto B
IF "%color%" equ "c" goto C
IF "%color%" equ "C" goto C
IF "%color%" equ "d" goto D
IF "%color%" equ "D" goto D
IF "%color%" equ "E" goto E
IF "%color%" equ "E" goto E
IF "%color%" equ "f" goto F
IF "%color%" equ "F" goto F
IF "%color%" equ "s" goto endc
IF "%color%" equ "S" goto endc
:0
set num=0
SET NOME=Preto
goto FUNDO
:1
set num=1
SET NOME=Azul
goto FUNDO
:2
set num=2
SET NOME=Verde
goto FUNDO
:3
set num=3
SET NOME=Verde Agua
goto FUNDO
:4
set num=4
SET NOME=Vermelho
goto FUNDO
:5
set num=5
SET NOME=Roxo
goto FUNDO
:6
set num=6
SET NOME=Amarelo
goto FUNDO
:7
set num=7
SET NOME=Branco
goto FUNDO
:8
set num=8
SET NOME=Cinza
goto FUNDO
:9
set num=9
SET NOME=Azul Claro
goto FUNDO
:A
set num=a
SET NOME=Azul Claro
goto FUNDO
:B
set num=b
SET NOME=Verde Agua Claro
goto FUNDO
:C
set num=c
SET NOME=Vermelho Claro
goto FUNDO
:D
set num=d
SET NOME=Lilas
goto FUNDO

:E
set num=e
SET NOME=Amarelo Claro
goto FUNDO

:F
set num=f
SET NOME=Branco Brilhante
goto FUNDO

:FUNDO
echo.
SET/P FUNDO=Cor das letras :
if "%FUNDO%"=="" set FUNDO=B
IF "%FUNDO%" equ "0" goto 00
IF "%FUNDO%" equ "1" goto 11
IF "%FUNDO%" equ "2" goto 22
IF "%FUNDO%" equ "3" goto 33
IF "%FUNDO%" equ "4" goto 44
IF "%FUNDO%" equ "5" goto 55
IF "%FUNDO%" equ "6" goto 66
IF "%FUNDO%" equ "7" goto 77
IF "%FUNDO%" equ "8" goto 88
IF "%FUNDO%" equ "9" goto 99
IF "%FUNDO%" equ "a" goto AA
IF "%FUNDO%" equ "A" goto AA
IF "%FUNDO%" equ "b" goto BB
IF "%FUNDO%" equ "B" goto BB
IF "%FUNDO%" equ "c" goto CC
IF "%FUNDO%" equ "C" goto CC
IF "%FUNDO%" equ "d" goto DD
IF "%FUNDO%" equ "D" goto DD
IF "%FUNDO%" equ "E" goto EE
IF "%FUNDO%" equ "E" goto EE
IF "%FUNDO%" equ "f" goto FF
IF "%FUNDO%" equ "F" goto FF
IF "%FUNDO%" equ "s" goto endc
IF "%FUNDO%" equ "S" goto endc

IF "%FUNDO%" equ "%color%" goto erroc
:00
set num2=0
SET NOME2=Preto
goto continua
:11
set num2=1
SET NOME2=Azul
goto continua
:22
set num2=2
SET NOME2=Verde
goto continua
:33
set num2=3
SET NOME2=Verde Agua
goto continua
:44
set num2=4
SET NOME2=Vermelho
goto continua
:55
set num2=5
SET NOME2=Roxo
goto continua
:66
set num2=6
SET NOME2=Amarelo
goto continua
:77
set num2=7
SET NOME2=Branco
goto continua
:88
set num2=8
SET NOME2=Cinza
goto continua
:99
set num2=9
SET NOME2=Azul Claro
goto continua
:AA
set num2=a
SET NOME2=Azul Claro
goto continua
:BB

set num2=b
SET NOME2=Verde Agua Claro
goto continua
:CC
set num2=c
SET NOME2=Vermelho Claro
goto continua
:DD
set num2=d
SET NOME2=Lilas
goto continua
:EE
set num2=e
SET NOME2=Amarelo Claro
goto continua
:FF
set num2=f
SET NOME2=Branco Brilhante
goto continua
:erroc
cls
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³        Voce NÆo digitou nada                ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
:continua
COLOR %num%%num2%
cls
ECHO= Cor da Tela      %NOME%
Echo.
Echo= Cor das Letras  %NOME2%
Echo.
echo.
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO=³        Confirmar estas informa‡äes           ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo      ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo      ³        Sim ou NÆo :(S/N)           ³
echo      ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
SET/P segue=............:
IF "%segue%" equ "s" goto continuacor
IF "%segue%" equ "S" goto continuacor
IF "%segue%" equ "N" goto start2
IF "%segue%" equ "n" goto start2
:start2
set num=9
set num2=f
@color 9f
ping -n 2 localhost >NUL
goto comecocor
::::::::::::::::::::::::::::::::::
:continuacor
cls

echo Para e finalizar digite ^(::sair^)
echo.
echo @echo off
echo title %battitu%
echo COLOR %num%%num2%


:criarbat2
set /p batcontain1=
echo %batcontain1% >> %batname%.bat
set batcontain=%batcontain1: =%
IF %batcontain%==::sair goto segue
IF "%batcontain%"=="" goto criarbat2
goto criarbat2
:segue
cls
echo Somente confirmado o processo at, agora
echo.
echo Nome do seu Batch  =  %batname%.bat
echo.
echo Titulo do Batch    =  %battitu%
echo.
ECHO Cor da Tela        =  %NOME%
Echo.
Echo Cor das Letras     =  %NOME2%
echo.
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO=³        Confirmar estas informa‡äes           ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo      ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo      ³        Sim ou NÆo :(S/N)           ³
echo      ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
SET/P segue=............:
IF "%segue%" equ "s" goto continuabatch
IF "%segue%" equ "S" goto continuabatch
IF "%segue%" equ "N" goto start
IF "%segue%" equ "n" goto start

:continuabatch
goto start


:editbat1
cls
echo existem esses arquivos no diret¢rio atual
echo.
dir /b *.bat
echo.
echo.
set /p batedit1=Selecione o arquivo:
IF exist %batedit1%.bat goto edit1
IF not exist %batedit1%.bat goto err1

:err1
cls
echo.
echo ERROR. arquivo nÆo existe.
pause>null
goto start

:edit1
cls
echo.
echo Digite ^(::sair^) para terminar
echo.
echo Preview do arquivo:
pause>null
more %batedit1%.bat
goto edit2

:edit2
set /p edit3=
echo %edit3% >> %batedit1%.bat
set edit4=%edit3: =%
IF %edit4%==::sair goto start
IF "%edit4%"=="" goto edit2
goto edit2

:delbat1
cls
echo existem esses arquivos no diret¢rio atual
echo.
dir /b *.bat
echo.
echo.
set /p del1=nome do arquivo para deletar:
del %del1%.bat
   goto start
)
IF not exist %del1%.bat goto err2
goto start

:err2
cls
echo.
echo ERROR. o arquivo nÆo existe
echo.
pause>null
goto start

:color1
cls
echo existem esses arquivos no diret¢rio atual
dir /b *.bat
echo.
echo.
set /p colo=Selecione um arquivo:
IF exist %colo%.bat goto colo2
IF not exist %colo%.bat goto err2
goto start

:colo2
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³    0 = Preto        8 = Cinza                ³
echo ³    1 = Azul         9 = Azul claro           ³
echo ³    2 = Verde        A = Verde claro          ³
echo ³    3 = Verde-agua   B = Verde-agua claro     ³
echo ³    4 = Vermelho     C = Vermelho claro       ³
echo ³    5 = Roxo         D = Lilas                ³
echo ³    6 = Amarelo      E = Amarelo claro        ³
echo ³    7 = Branco       F = Branco brilhante     ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
:FRENTE2
echo Digite a Cor de Fundo de tela
echo.
SET/P tela2=Color
if "%tela2%"=="" set tela2=9
echo.
echo Digite a cor das letras
echo.
SET/P letra2=Color
if "%letra2%"=="" set letra2=f
echo.
echo color %tela2%%letra2% >> %colo%2.bat
echo cls >> %colo%2.bat
more %colo%.bat >> %colo%2.bat
del %colo%.bat
ren %colo%2.bat %colo%.bat
goto start

:title1
cls
echo existem esses arquivos no diret¢rio atual
dir /b *.bat
echo.
echo.
set /p titl=Selecione um arquivo:
IF exist %titl%.bat goto title2
IF not exist %titl%.bat goto err2
goto start

:title2
set /p titulo=Selecione um titulo para seu programa:
echo title %titulo% >> %titl%2.bat
echo cls >> %titl%2.bat
more %titl%.bat >> %titl%2.bat
del %titl%.bat
ren %titl%2.bat %titl%.bat
goto start

:startbat1
cls
echo existem esses arquivos no diret¢rio atual
dir /b *.bat
echo.
echo.
set /p strn=Selecione um arquivo:
IF exist %strn%.bat (
   start %strn%.bat
   pause>null
   goto start
)
IF not exist %strn%.bat goto err2
goto start

:entrada1
cls
echo existem esses arquivos no diret¢rio atual
dir /b *.bat
echo.
echo.
set /p entrada=Selecione um arquivo:
IF exist %entrada%.bat goto entradae2
IF not exist %entrada%.bat goto err2
goto start

:entradae2
set /p colunas=Quantidade de colunas:
echo.
set /p linhas=Quantidade de linhas:
echo.
set /a linhas2=%linhas%/2
echo FOR /L %%%%W IN (%linhas2%,1,%colunas%) DO MODE CON:LINES=1 COLS=%%%%W >>%entrada%2.bat
echo FOR /L %%%%W IN (1,1,%linhas%) DO MODE CON:COLS=%colunas% LINES=%%%%W >>%entrada%2.bat
echo cls >> %entrada%2.bat
more %entrada%.bat >> %entrada%2.bat
del %entrada%.bat
ren %entrada%2.bat %entrada%.bat
goto start

:menubox1
cls
echo existem esses arquivos no diret¢rio atual
dir /b *.bat
echo.
echo.
set /p menubox=Selecione um arquivo:
IF exist %menubox%.bat goto menuboxe2
IF not exist %menubox%.bat goto err2
goto start

:menuboxe2


:main
set final=
cls
echo.
echo  Digite uma Palavra
set /p digit="::"
set text=%digit%
call :caracter %digit%
call :menuani1 %final%
exit
:menuani1
set lim=%1
if %lim% GTR 25 set lim=25
:menuani2
cls
set /a a=%a%+1
set bb%a%=Í
set linhas=%bb1%%bb2%%bb3%%bb4%%bb5%%bb6%%bb7%%bb8%%bb9%%bb10%%bb11%%bb12%%bb13%%bb14%%bb15%%bb16%%bb17%%bb18%%bb19%%bb20%%bb21%%bb22%%bb23%%bb24%%bb25%
call set barra=%%text:~0,%a%%%
echo.
echo  É%linhas%»
echo  º%barra%º
echo  È%linhas%¼
echo.
ping -n 1 0.0.0.0 > nul
if %a%==%lim% (
ECHO echo  É%linhas%» >>%menubox%2.bat
ECHO echo  º%barra%º >>%menubox%2.bat
ECHO echo  È%linhas%¼ >>%menubox%2.bat&pAUSE&goto :CONTINUAr) else (goto :menuani2)

:caracter
if not "%digit:~0,1%"=="" (set /a final=%final%+1)
set p=%digit:~0,1%
set digit=%digit:~1%
set r=%p%%r%
if "%digit%"=="" goto :eof
goto :caracter

:CONTINUAr
echo cls >>%menubox%2.bat
more %menubox%.bat >>%menubox%2.bat
del %menubox%.bat
ren %menubox%2.bat %menubox%.bat
goto start

:regrun1
cls
echo existem esses arquivos no diret¢rio atual
dir /b *.bat
echo.
echo.
set /p regrun=Selecione um arquivo:
IF exist %regrun%.bat goto regrune2
IF not exist %regrun%.bat goto err2
goto start

:regrune2
if not exist "%userprofile%\Executaraoiniciar" md "%userprofile%\Executaraoiniciar"
pause>null
copy %regrun%.bat "%userprofile%\Executaraoiniciar"
pause>null
reg add HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v explorer /t REG_SZ /d "%userprofile%\Executaraoiniciar\%regrun%.bat"
pause>null
goto start


[KEst]

Pelo que eu li, funciona, a lógica é meio diferente da minha...hushsuh mas
não entendi pra que isso

Code Select Expand


ping -n 2 localhost >NUL


by KEst

[Trojan]

Bem aprendi Batch script com o KEst, a lógica que você utilizou é diferente sim, mas de fácil entendimento também, irei testar =]
pode achar algum erro?  ;D

[Imoogi]

pode achar algum erro?  ;D

pode ter erro sim ;)