Ir ao conteúdo
  • Cadastre-se

Angelo Felipe

Membro Pleno
  • Posts

    46
  • Cadastrado em

  • Última visita

posts postados por Angelo Felipe

  1. Bem... Queria um programa pra limpar e otimizar o windows 10.

    Eu uso o CCleaner, mas estava pensando em usar um programa que não precisasse instalar (portable), depois disso ouvi falar do Dism++, mas não tenho certeza se ele é suguro e tudo mais, alguém poderia me falar dele (ou até mesmo recomendar outro, sei lá) ?

    • Curtir 1
  2. Bem... A um tempo atrás me fizeram esse cod para transformar o arquivo um .bat em .exe, mas gostaria de mudar algumas coisas nele então alguém poderia me ajudar? Código já tá feito então é só copilar, mas não sei como é o processo(ele usou algo relacionado ao excel)

     

    Segue o código:

    Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    
    Public Sub Main()
    Dim MyFile As String
    
    On Error GoTo Erro
    
    MyFile = VB.App.Path & "\virus.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%== canismajorisdomal 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

     

  3. Bem... Eu gosto de colocar meus arquivos(como jogos, essas coisas) mais na partição D:, mas agora ela ficou lotada ;-;

    Quando eu tento aumentar o tamanho dela não aparece a opção de estender volume, como consigo resolver esse problema? 

    Consigo diminuir a partição C: sem problemas, mas não consigo adicionar na D:

     

    Windows 10 Home - 64bits

    image.png

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades 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

×
×
  • Criar novo...

 

GRÁTIS: ebook Redes Wi-Fi – 2ª Edição

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!