Jump to content
Search In
  • More options...
Find results that contain...
Find results in...
  • Chatbox

    Lembre-se de ler as nossas regras!
    Load More
    You don't have permission to chat.
Sign in to follow this  
Wiz-Khalifa

Injetar DLL de recursos VB

Recommended Posts

- Primeiro você precisa declarar essas funções

   Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
    Private Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Integer, ByVal lpAddress As Integer, ByVal dwSize As Integer, ByVal flAllocationType As Integer, ByVal flProtect As Integer) As Integer
    Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByVal lpBuffer() As Byte, ByVal nSize As Integer, ByVal lpNumberOfBytesWritten As UInteger) As Boolean
    Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Integer, ByVal lpProcName As String) As Integer
    Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Integer
    Private Declare Function CreateRemoteThread Lib "kernel32" (ByVal hProcess As Integer, ByVal lpThreadAttributes As Integer, ByVal dwStackSize As Integer, ByVal lpStartAddress As Integer, ByVal lpParameter As Integer, ByVal dwCreationFlags As Integer, ByVal lpThreadId As Integer) As Integer
    Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Integer, ByVal dwMilliseconds As Integer) As Integer
    Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Integer) As Integer

Deve ser assim: https://prnt.sc/hgxvfk
 
-Agora você faz uma função e você pode nomeá-la como quiser, eu nomeei minha função "Injetar"

Private Function Inject(ByVal pID As Integer, ByVal dllLocation As String) As Boolean
        Dim hProcess As Integer = OpenProcess(&H1F0FFF, 1, pID)
        If hProcess = 0 Then Return False
        Dim dllBytes As Byte() = System.Text.Encoding.ASCII.GetBytes(dllLocation)
        Dim allocAddress As Integer = VirtualAllocEx(hProcess, 0, dllBytes.Length, &H1000, &H4)
        If allocAddress = Nothing Then Return False
        Dim kernelMod As Integer = GetModuleHandle("kernel32.dll")
        Dim loadLibAddr = GetProcAddress(kernelMod, "LoadLibraryA")
        If kernelMod = 0 OrElse loadLibAddr = 0 Then Return False
        WriteProcessMemory(hProcess, allocAddress, dllBytes, dllBytes.Length, 0)
        Dim libThread As Integer = CreateRemoteThread(hProcess, 0, 0, loadLibAddr, allocAddress, 0, 0)
 
        If libThread = 0 Then
            Return False
        Else
            WaitForSingleObject(libThread, 5000)
            CloseHandle(libThread)
            CloseHandle(libThread)
            CloseHandle(libThread)
            CloseHandle(libThread)
        End If
 
        CloseHandle(hProcess)
 
        Return True
    End Function

Deve ser assim: https://prnt.sc/hgxwub
 
- Agora você precisa fazer um temporizador e colocar o seguinte código no código do temporizador

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim TempFile As String = My.Computer.FileSystem.GetTempFileName
        IO.File.WriteAllBytes(TempFile, My.Resources.yourcheat)
        Dim TargetProcess As Process() = Process.GetProcessesByName("yourgame")
        If TargetProcess.Length = 0 Then
 
        Else
            Dim ProcID As Integer = Process.GetProcessesByName("yourgame")(0).Id
            Timer1.Stop()
            Inject(ProcID, TempFile)
        End If
    End Sub


Na linha 3. você precisa mudar (TempFile, My.Resources.yourcheat) para o nome .dll da sua fraude, mas sem o .dll no final.


E você também precisa alterar os códigos no 4.line e no 8.line Process.GetProcessesByName ("yourgame" (0) .Id para o jogo que deseja injetar a dll. Basta iniciar o jogo e assistir no seu gerenciador de tarefas como o jogo é chamado e coloque o nome nele sem .exe ou outras coisas. Apenas o nome.

Deve ser assimhttps://prnt.sc/hgxysg

 


- Agora você precisa colocar seu .dll em seus recursos vb

Vá para as propriedades do seu projeto

Vá para recursos e basta colocar o seu .dll nele

 

- Agora você precisa iniciar seu temporizador para injetar a dll no seu jogo. Você pode apenas fazê-lo com um botão ou na carga do formulário.

Timer1.Start()


Você pode colocá-lo aqui : https://prnt.sc/hgy27w
Ou você faz um botão e coloque no código do botão : https://prnt.sc/hgy2x9


Você também pode usar uma caixa de combinação se desejar usar mais de uma .dll, apenas assista na fonte que adicionei neste tópico.

Se você não sabe como inserir coisas na sua forma. Carregar ou código de botão. Basta pressionar duas vezes o botão ou o formulário e você pode inseri-lo.https://workupload.com/file/ttykr4q

Credits : 

Forum American;

And member18Karat;

WizKhalifa por trazer ao forum;

Edited by Wiz-Khalifa

Share this post


Link to post
Share on other sites

Isso ta virando ppf, só q pior, ctrl c + ctrl v e nem traduzir o tópico traduz

pelo amor

Share this post


Link to post
Share on other sites
O Usuário tem 24 horas para deixar o tópico em Português, visto que não há utilidade nele em Inglês, considerando que o fórum é BR.

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×