Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  

Recommended Posts

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

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 :tw_heart:

Compartilhar este post


Link para o post
Compartilhar em outros sites

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. 

 

 

 

 

 

 

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites
Postado (editado)

Desculpa a ultima palavra não foi kkkkk

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

Editado por Angelo Felipe

Compartilhar este post


Link para o post
Compartilhar em outros sites
Postado (editado)

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 

Editado por Basole
  • Amei 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

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)

Compartilhar este post


Link para o post
Compartilhar em outros sites
Postado (editado)

Veja o seu *.bat compilado em VB

 

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

 

BatTest.zip

 

image.png.bdd759292c09bcedbf6e8f824887c072.png

Editado por Basole
  • Amei 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ficou excelente :tw_heart:

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

Agradeço desde já 

Compartilhar este post


Link para o post
Compartilhar em outros sites
Postado (editado)

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

 

Editado por Basole
  • Amei 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

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

NaoSei.PNG.88e93b21264d234f3522b6e67dfcadc8.PNG

Compartilhar este post


Link para o post
Compartilhar em outros sites
10 minutos atrás, Angelo Felipe disse:

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

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

 

:oops:Verdade, acabei comendo bola e escrevi errado esta linha.

 

Segue com a alteracao.  

BatTest.zip

  • Amei 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

So mais uma coisinha :tw_blush:

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

Agradeço :tw_heart::tw_heart::tw_heart:

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites
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 ? 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Esse mesmo :tw_heart:

O código sem aquele pequeno erro do ECHO

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

 

  • Amei 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Muito obrigado mesmo viu :tw_blush::tw_heart:

E desculpa o incomodo :P

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário






Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×