Outro Transformar .BAT em .EXE

Angelo Felipe · 2 de abril de 2018

Bem... Gostaria de transforma um arquivo .bat em um .exe, mas estou tendo dificuldades

Ja tentei usar o Iexpress, mas depois que ouve a conversao o arquivo .exe meio que nao funciona

Alguem poderia me dar dicas de programas ou algo do tipo?

Obrigado

Basole · 2 de abril de 2018

Segue link de um conversor

https://www.4shared.com/postDownload/qrU_cIqA/Bat_To_Exe_Converter.html

Angelo Felipe · 2 de abril de 2018

8 horas atrás, Basole disse:

Segue link de um conversor

https://www.4shared.com/postDownload/qrU_cIqA/Bat_To_Exe_Converter.html

Aqui diz que ele gerou um .EXE com virus

Basole · 2 de abril de 2018

Não entendi a sua resposta.

Não sei porque utiliza emoticons sendo que pode se expressar melhor através da escrita

Aqui pra mim esse conversor converteu um arquivo com extensão *.bat para *.exe, perfeitamente.

Se não é isso que precisa explique melhor o que precisa, por favor.

Angelo Felipe · 2 de abril de 2018

Desculpa a ultima palavra não foi kkkkk

Eu disse que gerou um arquivo .EXE com virus(pelo menos o Kaspersky achou virus nele ;-;)

Basole · 2 de abril de 2018

O link que postei encontrei neste forum:

https://www.hardware.com.br/comunidade/bat-converter/1109450/

E nenhum membro acusou virus,

Leia aqui tambem:

https://4sysops.com/archives/free-bat-to-exe-converter-4-ways-to-convert-a-batch-file-to-an-exe-file/#comment-243311

https://stackoverflow.com/questions/32168332/after-converting-batch-file-to-exe-windows-defender-shows-the-file-as-trojan-why

https://www.cnet.com/forums/discussions/bat-to-exe-virus-262081/

Dica.: Coloque o comando do seu arquivo *.bat aqui, de repente alguém consegue compliar em *.exe para voce

Angelo Felipe · 2 de abril de 2018

cls
@ECHO Off
title Bloquear Acesso a Pasta!!!
if EXIST "Meu computador.{20d04fe0-3aea-1069-a2d8-08002b30309d}" goto UNLOCK
if NOT EXIST Private goto MDLOCKER
:CONFIRM
color 2
echo ###### ## ### ### ## ## ####### ###
echo ## ## ## ## ## ## ## ## ## ## ## ##
echo ## ## ## ## ## ## ## ## ## ## ## ##
echo ###### ## ## ## ## ## ## ## ##### ## ##
echo ## ## ## ## ## ## ## ## ## ## ## ### ##
echo ## ## ## ## ## ## ## ## ## ## ## ##
echo ###### ######## ### ## ### ####### ## ##
echo ##
echo Tem certeza, que deseja bloquear a pasta? (Y/N)
set /p "cho="
if %cho%==Y goto LOCK
if %cho%==y goto LOCK
if %cho%==n goto END
if %cho%==N goto END
echo Comando Invalido.
pause > nul
goto CONFIRM

:LOCK
ren "Private" "Meu computador.{20d04fe0-3aea-1069-a2d8-08002b30309d}"
echo Folder locked
goto End

:UNLOCK
cls
color 7
echo Digite a senha para desbloquear a pasta Private!!!
set /p "pass="
if NOT %pass%== 123 goto FAIL
ren "Meu computador.{20d04fe0-3aea-1069-a2d8-08002b30309d}" "Private"
cls
color 2
echo !!! PASTA DESBLOQUEADA !!!
echo Sair? aperte (ENTER)
set /p "cho="
if %cho%==enter goto ENTER
goto End

:RELOCK
color c
echo Tentar Novamente? (Y/N)
set /p "cho="
if %cho%==Y goto UNLOCK
if %cho%==y goto UNLOCK
if %cho%==n goto END
if %cho%==N goto END
pause > nul
goto UNLOCK

:FAIL
cls
echo Senha Invalida
goto RELOCK

:MDLOCKER
md Private
color 2
echo A Pasta Private Foi Criada Com Sucesso!!!
echo Avancar aperte ENTER!!!
pause > nul
cls
goto CONFIRM

:End

:ENTER
exit

Esse é um arquivo .BAT no qual se oculta os arquivos(achei em um tropico na net)

Basole · 3 de abril de 2018

Veja o seu *.bat compilado em VB

o *.exe cria um *.bat temporário, roda o bat em seguida deleta.

BatTest.zip

Angelo Felipe · 4 de abril de 2018

Ficou excelente

Poderia me explicar como você fez ele(programa utilizado e etc)?

Agradeço desde já

Basole · 4 de abril de 2018

Ok, vamos lá, eu utilizei o código abaixo adaptado para o ambiente vb6 (visual basic 6) e compilei sem o form.

Se quiser testar o código abaixo é só colar em um modulo padrão do excel salvar o arquivo e rodar.pois esta adaptado ao vba. A macro criará um *bat na mesma pasta da planilha.em seguida roda o *bat e for fim deleta.

Public Sub Main()
Dim MyFile As String

On Error GoTo Erro

'MyFile = VB.App.Path & "\SeuBat.bat"
MyFile = ThisWorkbook.Path & "\SeuBat.bat"

fnum = FreeFile()

Open MyFile For Output As #fnum

Print #fnum, "cls"
Print #fnum, "@echo off"
Print #fnum, "title Bloquear Acesso a Pasta!!!"
Print #fnum, "if EXIST ""Meu computador.{20d04fe0-3aea-1069-a2d8-08002b30309d}"" goto UNLOCK"
Print #fnum, "if NOT EXIST Private goto MDLOCKER"
Print #fnum, ":CONFIRM"
Print #fnum, "color 2"
Print #fnum, "echo ######   ##         ###       ###    ##     ## #######    ###"
Print #fnum, "echo ##    ## ##       ##   ##   ##   ##  ##     ## ##       ##   ##"
Print #fnum, "echo ##    ## ##      ##     ## ##     ## ##     ## ##      ##     ##"
Print #fnum, "echo ######   ##      ##     ## ##     ## ##     ## #####   ##     ##"
Print #fnum, "echo ##    ## ##      ##     ## ##     ## ##     ## ##      ## ### ##"
Print #fnum, "echo ##    ## ##       ##   ##   ##   ##   ##   ##  ##      ##     ##"
Print #fnum, "echo ######   ########   ###        ##       ###    ####### ##     ##"
Print #fnum, "echo"
Print #fnum, "echo Tem certeza, que deseja bloquear a pasta? (S/N)"
Print #fnum, "set /p ""cho="""
Print #fnum, "if %cho%==s goto LOCK"
Print #fnum, "if %cho%==n goto END"
Print #fnum, "if %cho%==N goto END"
Print #fnum, "echo Comando Invalido."
Print #fnum, "pause > nul"
Print #fnum, "goto CONFIRM"


Print #fnum, ":LOCK"
Print #fnum, "ren ""Private"" ""Meu computador.{20d04fe0-3aea-1069-a2d8-08002b30309d}"""
Print #fnum, "echo Folder locked"
Print #fnum, "goto End"


Print #fnum, ":UNLOCK"
Print #fnum, "cls"
Print #fnum, "color 7"
Print #fnum, "echo Digite a senha para desbloquear a pasta Private!!!"
Print #fnum, "set /p ""pass="""
Print #fnum, "if NOT %pass%== 123 goto FAIL"
Print #fnum, "ren ""Meu computador.{20d04fe0-3aea-1069-a2d8-08002b30309d}"" ""Private"""
Print #fnum, "cls"
Print #fnum, "color 2"
Print #fnum, "echo !!! PASTA DESBLOQUEADA !!!"
Print #fnum, "echo    Sair? aperte (ENTER)"
Print #fnum, "set /p ""cho="""
Print #fnum, "if %cho%==enter goto ENTER"
Print #fnum, "goto End"


Print #fnum, ":RELOCK"
Print #fnum, "color c"
Print #fnum, "echo Tentar Novamente? (S/N)"
Print #fnum, "set /p ""cho="""
Print #fnum, "if %cho%==s goto UNLOCK"
Print #fnum, "if %cho%==S goto UNLOCK"
Print #fnum, "if %cho%==n goto END"
Print #fnum, "if %cho%==N goto END"
Print #fnum, "pause > nul"
Print #fnum, "goto UNLOCK"


Print #fnum, ":FAIL"
Print #fnum, "cls"
Print #fnum, "echo Senha Invalida"
Print #fnum, "goto RELOCK"


Print #fnum, ":MDLOCKER"
Print #fnum, "md Private"
Print #fnum, "color 2"
Print #fnum, "echo A Pasta Private Foi Criada Com Sucesso!!!"
Print #fnum, "echo Avancar aperte ENTER!!!"
Print #fnum, "pause > nul"
Print #fnum, "cls"
Print #fnum, "goto CONFIRM"

Print #fnum, ":End"

Print #fnum, ":ENTER"
Print #fnum, "exit"

Close #fnum

'Sleep 5000
Application.Wait VBA.Now + VBA.TimeValue("00:00:05")

If Dir(MyFile, vbDirectory) <> "" Then
' roda bat-file:
Shell MyFile, vbNormalFocus

'Sleep 5000
Application.Wait VBA.Now + VBA.TimeValue("00:00:05")
' remove bat-file:
Kill MyFile
   
End If

Exit Sub

Erro:
If Dir(MyFile, vbDirectory) <> "" Then
Kill MyFile
End If

MsgBox Err.Number & " " & Err.Description

End Sub

Angelo Felipe · 4 de abril de 2018

Só mais uma coisa(se não for muito incomodo)

Poderia concerta esse erro do ECHO está desativo?

Porque tem vezes que ele não "oculta" a pasta e por isso ela continua do mesmo jeito

Suspeito que o problema seja esse

Basole · 4 de abril de 2018

10 minutos atrás, Angelo Felipe disse:

Só mais uma coisa(se não for muito incomodo)

Poderia concerta esse erro do ECHO está desativo?

Porque tem vezes que ele não "oculta" a pasta e por isso ela continua do mesmo jeito

Suspeito que o problema seja esse

Verdade, acabei comendo bola e escrevi errado esta linha.

Segue com a alteracao.

BatTest.zip

Angelo Felipe · 4 de abril de 2018

So mais uma coisinha

Coloca aqui o código que o senhor utilizou por favor

Agradeço

Basole · 4 de abril de 2018

3 minutos atrás, Angelo Felipe disse:

So mais uma coisinha

Coloca aqui o código que o senhor utilizou por favor

Seria o código que compilei ?

Angelo Felipe · 4 de abril de 2018

Esse mesmo

O código sem aquele pequeno erro do ECHO

Basole · 4 de abril de 2018

Segue

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Sub Main()
Dim MyFile As String

On Error GoTo Erro

MyFile = VB.App.Path & "\SeuBat.bat"

fnum = FreeFile()

Open MyFile For Output As #fnum

Print #fnum, "cls"
Print #fnum, "@echo off"
Print #fnum, "title Bloquear Acesso a Pasta!!!"
Print #fnum, "if EXIST ""Meu computador.{20d04fe0-3aea-1069-a2d8-08002b30309d}"" goto UNLOCK"
Print #fnum, "if NOT EXIST Private goto MDLOCKER"
Print #fnum, ":CONFIRM"
Print #fnum, "color 2"
Print #fnum, "echo ######   ##         ###       ###    ##     ## #######    ###"
Print #fnum, "echo ##    ## ##       ##   ##   ##   ##  ##     ## ##       ##   ##"
Print #fnum, "echo ##    ## ##      ##     ## ##     ## ##     ## ##      ##     ##"
Print #fnum, "echo ######   ##      ##     ## ##     ## ##     ## #####   ##     ##"
Print #fnum, "echo ##    ## ##      ##     ## ##     ## ##     ## ##      ## ### ##"
Print #fnum, "echo ##    ## ##       ##   ##   ##   ##   ##   ##  ##      ##     ##"
Print #fnum, "echo ######   ########   ###        ##       ###    ####### ##     ##"
Print #fnum, "echo                                  ##"
Print #fnum, "echo Tem certeza, que deseja bloquear a pasta? (S/N)"
Print #fnum, "set /p ""cho="""
Print #fnum, "if %cho%==s goto LOCK"
Print #fnum, "if %cho%==n goto END"
Print #fnum, "if %cho%==N goto END"
Print #fnum, "echo Comando Invalido."
Print #fnum, "pause > nul"
Print #fnum, "goto CONFIRM"


Print #fnum, ":LOCK"
Print #fnum, "ren ""Private"" ""Meu computador.{20d04fe0-3aea-1069-a2d8-08002b30309d}"""
Print #fnum, "echo Folder locked"
Print #fnum, "goto End"


Print #fnum, ":UNLOCK"
Print #fnum, "cls"
Print #fnum, "color 7"
Print #fnum, "echo Digite a senha para desbloquear a pasta Private!!!"
Print #fnum, "set /p ""pass="""
Print #fnum, "if NOT %pass%== 123 goto FAIL"
Print #fnum, "ren ""Meu computador.{20d04fe0-3aea-1069-a2d8-08002b30309d}"" ""Private"""
Print #fnum, "cls"
Print #fnum, "color 2"
Print #fnum, "echo !!! PASTA DESBLOQUEADA !!!"
Print #fnum, "echo    Sair? aperte (ENTER)"
Print #fnum, "set /p ""cho="""
Print #fnum, "if %cho%==enter goto ENTER"
Print #fnum, "goto End"


Print #fnum, ":RELOCK"
Print #fnum, "color c"
Print #fnum, "echo Tentar Novamente? (S/N)"
Print #fnum, "set /p ""cho="""
Print #fnum, "if %cho%==s goto UNLOCK"
Print #fnum, "if %cho%==S goto UNLOCK"
Print #fnum, "if %cho%==n goto END"
Print #fnum, "if %cho%==N goto END"
Print #fnum, "pause > nul"
Print #fnum, "goto UNLOCK"


Print #fnum, ":FAIL"
Print #fnum, "cls"
Print #fnum, "echo Senha Invalida"
Print #fnum, "goto RELOCK"


Print #fnum, ":MDLOCKER"
Print #fnum, "md Private"
Print #fnum, "color 2"
Print #fnum, "echo A Pasta Private Foi Criada Com Sucesso!!!"
Print #fnum, "echo Avancar aperte ENTER!!!"
Print #fnum, "pause > nul"
Print #fnum, "cls"
Print #fnum, "goto CONFIRM"

Print #fnum, ":End"

Print #fnum, ":ENTER"
Print #fnum, "exit"

Close #fnum

Sleep 5000

If Dir(MyFile, vbDirectory) <> "" Then
' roda bat-file:
Shell MyFile, vbNormalFocus

Sleep 5000
' remove bat-file:
Kill MyFile
   
End If

Exit Sub

Erro:
If Dir(MyFile, vbDirectory) <> "" Then
Kill MyFile
End If

MsgBox Err.Number & " " & Err.Description

End Sub