How to Make a Injector / Injector Codes (VB.net) PREPARE TO READ A LOT!

**x_Josh_x** · 06-25-2012

~How To Make A Injector~
(Instructions on how to create at bottom of thread.)
Thank me for doing all this typing for you.
Any Questions or problems E-mail me @ Josh_MPGH@yahoo.com or send me a PM(Private Message).

~NOTES~

1: You have to use "Visual Basic" any Version will do but I use "Visual Basic 2010 Express" (Scroll Down for Download) you CAN NOT use C++, C# or anything else it has to be VB.net.(They do have newer versions then 2010.)
2: Do not tell me these codes do not work because they do.
3: I have included all these codes in a .rar file for you to download.
4: (If you get this far) Iv noticed that when you finish the injector and use it you can't type .exe at the end of the process your injecting into or it won't inject.
EXAMPLE the wrong way: TEST.exe X
EXAMPLE the right way: TEST √
5: I didn't include EVERY SINGLE LITTLE detail in the instructions I'm just showing you the coding and how to enter the coding. The form names etc are up to you.
6: Where it says "Josh's Injector will now restart" rename that to your injector name.
7: Couple of spelling errors in the screenshots.
8: MPGH blocked some of the code where it says "****" there is nothing I can do about it, just download "Injector Codes.rar".

~Links~

Visual Basic Download:Visual Basic 2010 Express | Microsoft Visual Studio
Injector Codes.rar VirusScan1:https://www.virustotal.com/file/b9f0...is/1340681723/
Injector Codes.rar VirusScan2:Report - Antivirus online virus scan - viruschief.com

~Injector Codes~

Code:

[Main Code]

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)
Dim DLLFileName As String
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)

Code:

[INJECT CODE]

    Private Sub Inject()
        On Error GoTo 1 ' If error occurs, app will close without any error messages
        InjectTimer.Stop()
        Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)
        TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)
        pszLibFileRemote = browsedll.FileName
        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:      MsgBox("Error. your dll was not injected into" & " " & TextBox1.Text & " " & "Josh's Injector will restart.", MsgBoxStyle.OkOnly, "Error")
        Application.Restart()
    End Sub

Code:

[INJECT BUTTON CODE]

        Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)
        If TargetProcess.Length = 0 Then
        Else
            If System****.File.Exists(TextBox2.Text) Then
                Call Inject()
                Label5.Text = "Successfully Injected!"
            Else
                Label5.Text = "Error: .dll not found!"
            End If
        End If

Code:

[TIMER1 CODE]

        Label5.Text = "Waiting for" & " " & TextBox1.Text & " " & "to Start..."
        Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)
        If TargetProcess.Length = 0 Then
        Else
            If System****.File.Exists(TextBox2.Text) Then
                Timer1.Stop()
                Call Inject()
                Label5.Text = "Successfully Injected!"
            Else
                Timer1.Stop()
                MsgBox("Error: your .dll was not found. Josh's Injector will now close and restart.", MsgBoxStyle.OkOnly, "Error")
                Application.Restart()
            End If
        End If

Code:

[TIMER2 CODE]

If Checkbox1.Checked = True And Label1.Text = "Successfully Injected!" Then 
Me.Close()

Code:

[AUTOMATIC INJECTION]

Timer1.Start()
Button1.Enabled = False

Code:

[MANUAL INJECTION]
[BUTTON1 = Your inject button]

        Label5.Text = "Waiting for User Input..."
        Timer1.Stop()
        Button1.Enabled = True

Code:

[CLOSE AFTER INJECTION]

If Checkbox1.Checked = True then 
Timer2.Start()
If Checkbox1.Checked = false then
Timer2.Stop()

~Instructions on How to Make Injector~

Step1:--Getting Visual Basic 2010 Express--
Scroll up to find the download link to VB.net. OR if you already have it. just skip this step.

Step2:--Create Project / Start the Coding--
Look at the screenshots and do what they say.(Don't worry about the other codes except "Main Code" and the "Inject Code" for now.
#1

#2

#3

#4

#5

Step3:--Customizing the Form--
Look at the screenshot.

To Change the name of the things on the form click on the object once and scroll up in the properties until you find (Name) and to the right of it is the name.

Step4:--Finish the Coding--
(By now you should know what I mean by double clicking on stuff to bring up the coding.)
-Drag 2 timers and 1openfiledialog (DON'T RENAME THEM KEEP THE NAMES!)
-Double click on the button you named on the "Add .dll" and type OpenFileDialog1.ShowDialog()
-Double click on the radiobutton you named "Automatic Injection" and copy the code "Auto Injection."
-Double click on the radiobutton you named "Manual Injection" and copy the code "Manual Injection."
-Double click on the checkbox you named "Close After Injection" and copy the code "Close After Injection."
-Double click on the button you named "Inject" and copy the "Inject Button Code."
-Double click on the button you named "Exit" and type Me.Close().
-Single click on the openfiledialog1 and in the properties at the top click the thing that looks like a lighting bolt double click on File_OK and type Textbox2.text = Openfiledialog1.FileName.(Textbox2 = your .dll path textbox).
-Double click on the Timer1 and Copy "Timer1" code.
-Double Click on the Timer2 and Copy the "Timer2" code.
-The code in the screenshot that said Form1.Load and I told you NOT TO DELETE type Button1.Enabled = false and radiobutton1.checked = true

Step5:--Building the Project--
At the top of "Visual Basic" the toolbar Click "Debug" and press "Build (Your Project Name)" open the folder where you saved your project and Navigate too "Your Project Name/Your Project Name/bin/release"

--OPTIONAL--
If you want to save your settings such as processname and .dll path read below.
This uses my.settings in vb.net and does not create any txt file or .cfg file to save settings it saves in the program.

1:On your solution explorer double click "My Project".
2:Go to the "Settings" tab and you will see a line that says settings - string - user change that first line to Process and it should automatically create a new line rename the 2nd line to dllpath.
3:when your injector CLOSES you need to add this code below.
Textbox1.text = my.settings.process
Textbox2.text = my.settings.dllpath
my.settings.save

When your injector LOADS you need to add this code.
Textbox1.text = my.settings.process
Textbox2.text = my.settings.dllpath
same code as saving but without my.settings.save.
4:I;m not going to explain where to put these codes im sorry it should be easy to do just put it in the code everytime the program is going to exit or after injection etc.

Have Fun with your injector, I hope I made a good tutorial.

**Stanman08** · 06-25-2012

i think i got it right might? idk well texting it out and i made my new CF wallhack i think it works to i didnt test it out on anything yet
So ya lol FINGERS CROSSED

---------- Post added at 11:55 PM ---------- Previous post was at 11:52 PM ----------

Just texted it out but my injector siad error CLAPS lol i was flipping out and my Hack ( CROSSFIRE.DLL ) i'm texting it out right now

HOPE IT DOES!

---------- Post added at 11:56 PM ---------- Previous post was at 11:55 PM ----------

COLAPS* sry i had an error

---------- Post added at 11:57 PM ---------- Previous post was at 11:56 PM ----------

Just TEsted my DLL out didnt work ( but the Shoot through wall hack and see through wall hack worked

but it only last for like 1 hour till u get a CROSSFIRE ERROR so im not going to post it sry

ill try to profect it

**x_Josh_x** · 06-26-2012

First of all check your spelling and what does that have to do with anything about this post?

**Slice~** · 06-26-2012

THis is combat arms ... what does CF have to do with this game?

**x_Josh_x** · 06-26-2012

actually these injector codes work with any game only reason I said that was because its about crossfire hacks lol which I don't get why it has to be posted in this thread or sections.

**Drake** · 06-26-2012

Approved the .txt file

**dreek1** · 06-26-2012

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)
Dim DLLFileName As String
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.Ex ecutablePath)
Private Sub Inject()
On Error GoTo 1 ' If error occurs, app will close without any error messages
Timer1.Stop()
Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)
TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)
pszLibFileRemote = OpenFileDialog1.FileName
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.Show()
End Sub

Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Text = "Limpar selecionado"
Label2.Text = "Processo:"
Timer1.Interval = 2
Timer1.Start()

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If IO.File.Exists(OpenFileDialog1.FileName) Then
Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)
If TargetProcess.Length = 0 Then
Me.Label1.ForeColor = Color.Red
Me.Label1.Text = ("Esperando por " + TextBox1.Text + ".exe" + "....")
Else
Timer1.Stop()
Me.Label1.ForeColor = Color.Green
Me.Label1.Text = "Sucesso ao injetar!"
Call Inject()
If CheckBox1.Checked = True Then
Me.Close()
End If

End If
End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i As Integer = (Dlls.SelectedItems.Count - 1) To 0 Step -1
Dlls.Items.Remove(Dlls.SelectedItems(i))
Next

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dlls.Items.Clear()

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
OpenFileDialog1.Filter = "DLL (*.dll) |*.dll"
OpenFileDialog1.ShowDialog()
Dim FileName As String
FileName = OpenFileDialog1.FileName.Substring(OpenFileDialog1 .FileName.LastIndexOf("\"))
Dim DllFileName As String = FileName.Replace("\", "")
Me.Dlls.Items.Add(DllFileName)

End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If IO.File.Exists(OpenFileDialog1.FileName) Then

End If
Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)
If TargetProcess.Length = 0 Then

Me.Label1.Text = ("Esperando por " + TextBox1.Text + ".exe" + "....")
Else
Timer1.Stop()
Me.Label1.ForeColor = Color.Green
Me.Label1.Text = "Sucesso ao injetar!"
Call Inject()
If CheckBox1.Checked = True Then
Me.Close()
Else
End If
End If

End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
Timer1.Start()
CheckBox1.Checked = True
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
Timer1.Stop()
CheckBox1.Checked = True
End Sub
End Class

Inject Code Work '-' Code BR '-'

**x_Josh_x** · 06-27-2012

Originally Posted by dreek1

Inject Code Work '-' Code BR '-'

lol whut? are you saying the code works?

**Jason** · 06-27-2012

Fuck this is old and retarded as shit. Even crappy antiviruses pick this up as an ILCrypt. No-one even bothers to remove the stupid comment.

Code:

On Error GoTo 1 ' If error occurs, app will close without any error messages

When it promptly runs straight into a messagebox. Congratulations on being about the 50000000000000000000000000000000000000000000000000 000000th person to leech this EXACT code. GG.

**x_Josh_x** · 06-27-2012

Originally Posted by Jason

Fuck this is old and retarded as shit. Even crappy antiviruses pick this up as an ILCrypt. No-one even bothers to remove the stupid comment.

Code:

On Error GoTo 1 ' If error occurs, app will close without any error messages

When it promptly runs straight into a messagebox. Congratulations on being about the 50000000000000000000000000000000000000000000000000 000000th person to leech this EXACT code. GG.

hey bro congrats on posting that useless shit, I posted this for people that don't know how to make an injector :O of course its old I wanted it to be simple and fast.

EDIT: of course I didn't remove the comment you think someone that is new to making injectors is going to care?, If you don't like what I posted then why even bother? lmao...GG

**Jason** · 06-27-2012

Search injector tutorial and you'll feel like you're in the fucking Matrix you'll be getting that much deja vu. This tutorial has been written like a million times but with different people trying to claim credit each time. Do something original.

**x_Josh_x** · 06-27-2012

Originally Posted by Jason

Search injector tutorial and you'll feel like you're in the fucking Matrix you'll be getting that much deja vu. This tutorial has been written like a million times but with different people trying to claim credit each time. Do something original.

#1 Do you see me trying to claim credit? the only credit I asked for was "Thank me for doing all this typing for you." lmao... Stop wasting your time typing in this thread.

**mohammed9963** · 06-27-2012

wont work for me

**agentxyz2** · 06-27-2012

very long, I would hate to have to quote you, but extremely helpfull ty

**Th0r1** · 06-27-2012

Thanks this really helped

Thread: How to Make a Injector / Injector Codes (VB.net) PREPARE TO READ A LOT!

Thread Tools

Display