[Mega Tutorial]Como fazer um Injetor para Combat Arms

[pedrodf90retorno 0]

E ai pessoal da Web Cheats blz?

Eu vim aki postar para vocês como fazer um injetor para o C.A

 

Download no final do topico

 

1- Baixe o Visual Basic 2008

 

2-Dentro do Visual Basic aperte em "File" depois em "New Project" depois em "Template Windows Forms Applications" e coloque o nome do injetor na parte "Name" e clique em OK

 

 

 

 

3-Vai aparecer um quadrado, clique nele. Vai aparecer as opções para você editar seu injetor.

 

 

4-Para você por o nome no injetor vá nas opções e procure por "Text" na frente coloque o nome do injetor

 

 

5-Para você arrumar o fundo você vai em "BackgroundIm" e clica nos "..."

 

 

6-Clique em "Local Resourse" e Depois em "Import

 

 

7-E escolha a imagem que você quiser eu escolhi essa:

 

8-Aperte CTRL+ALT+X (No teclado) e aparecerá um negocio com o nome ToolBox

 

 

 

9- Na "ToolBox" procure "Text Box" e coloque 2

 

 

10-Procure por "Timer" e coloque 1

 

 

11-Coloque um "Label"

 

 

12-Vá nas configurações e procure por "Text" que na frente esteja escrito "Label1"

 

 

13-Escreva o que você quiser

 

14-Se quiser mudar de cor ou de fonte procure por "Fore Color" para mudar de cor e se quiser mudar de fonte procure por "Font"

 

15-Clique com o botão direito no form (Seu injetor) e clique em View Code

 

16- Apague tudo que tiver lá e coloque isso:

 

Public Class Form1

 

Private TargetProcessHandle As Integer

Private pfnStartAddr As Integer

Private pszLibFileRemote As String

Private TargetBufferSize As Integer

 

Public Const PROCESS_VM_READ = &H10

Public Const TH32CS_SNAPPROCESS = &H2

Public Const MEM_COMMIT = 4096

Public Const PAGE_READWRITE = 4

Public Const PROCESS_CREATE_THREAD = (&H2)

Public Const PROCESS_VM_OPERATION = (&H8)

Public Const PROCESS_VM_WRITE = (&H20)

 

Public Declare Function ReadProcessMemory Lib "kernel32" ( _

ByVal hProcess As Integer, _

ByVal lpBaseAddress As Integer, _

ByVal lpBuffer As String, _

ByVal nSize As Integer, _

ByRef lpNumberOfBytesWritten As Integer) As Integer

 

Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" ( _

ByVal lpLibFileName As String) As Integer

 

Public 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

 

Public Declare Function WriteProcessMemory Lib "kernel32" ( _

ByVal hProcess As Integer, _

ByVal lpBaseAddress As Integer, _

ByVal lpBuffer As String, _

ByVal nSize As Integer, _

ByRef lpNumberOfBytesWritten As Integer) As Integer

 

Public 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

 

Public 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, _

ByRef lpThreadId As Integer) As Integer

 

Public Declare Function OpenProcess Lib "kernel32" ( _

ByVal dwDesiredAccess As Integer, _

ByVal bInheritHandle As Integer, _

ByVal dwProcessId As Integer) As Integer

 

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _

ByVal lpClassName As String, _

ByVal lpWindowName As String) As Integer

 

Private Declare Function CloseHandle Lib "kernel32" Alias "CloseHandleA" ( _

ByVal hObject As Integer) As Integer

 

 

Dim ExeName As String = IO.Path.GetFileNameWithoutExtension(Application.ExecutablePath)

 

Private Sub Inject()

On Error GoTo 1 ' Se der algum erro o Injetor fechará sme nenhuma menssagem

Timer1.Stop()

Dim TargetProcess As Process() = Process.GetProcessesByName("Engine")

TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)

pszLibFileRemote = Application.StartupPath & "" + ExeName + ".dll"

pfnStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")

TargetBufferSize = 1 + Len(pszLibFileRemote)

Dim Rtn As Integer

Dim LoadLibParamAdr As Integer

LoadLibParamAdr = VirtualAllocEx(TargetProcessHandle, 0, TargetBufferSize, MEM_COMMIT, PAGE_READWRITE)

Rtn = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote, TargetBufferSize, 0)

CreateRemoteThread(TargetProcessHandle, 0, 0, pfnStartAddr, LoadLibParamAdr, 0, 0)

CloseHandle(TargetProcessHandle)

1: Me.Close()

End Sub

 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If IO.File.Exists(Application.StartupPath & "" + ExeName + ".dll") Then

Dim TargetProcess As Process() = Process.GetProcessesByName("HSUpdate")

If TargetProcess.Length = 0 Then

Me.TextBox1.Text = ("Aguardando Combat Arms")

Me.TextBox2.Text = ("by Android-CNN")

Else

Timer1.Stop()

Me.TextBox1.Text = "Fim..."

Call Inject()

End If

Else

Me.TextBox1.Text = ("" + ExeName + ".dll nao encontrado")

Me.TextBox2.Text = ("Renomeie a .dll Para " + "" + ExeName)

End If

End Sub

 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Timer1.Interval = 50

Timer1.Start()

End Sub

End Class

 

17-Clique em "File" depois "Save All" e depois em "Save"

 

18- Clique na seta que parece um play lá em cima.

 

19-Pronto injetor criado

 

20-Agora vá na pasta que você salvou, depois vá na pasta com o nome do seu injetor, na pasta de novo, bin, debug, arquivo.exe

 

OBS:O injetor e a DLL tem que ter o mesmo nome!

 

 

[DOWN]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/DOWN] Link para o Visual Basic

 

[sCAN]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/sCAN]

[FelipeJony 2]

Área Errada , a area correta para a postagem desse tipo de conteúdo , é a Info zone.

 

Fechado