Watcha need:
Microsoft Visual Basic 2008

Steps:
Make your own windows form application project

Add:
1 Label
1 Button
1 Timer
1 Open File Dialog
2 Boxes

1.Double click your form then type

CODE:
button1.text = "browse"
label1.text = "Waiting for users input"
timer1.interval = 50
timer1.start()

2.Double Click your timer then type

CODE:
If IO.File.Exists(OpenFileDialog1.FileName) Then
Dim TargetProcess As Process() = process.GetProcessesByName(TextBox1.Text)
If TargetProcess.Length = 0 Then
Me.Label1.Text = ("Waiting for " + TextBox1.Text + ".exe")

Else
Timer1.Stop()
Me.Label1.Text = "Successfully Injected!"
Call Inject()
End If
Else

End If

Please note that this *The line " Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)" means: the process where you want the dll to be injected.

3. Now double click Public Class Form1 then type below:
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)

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

Please note *The line "1: Me.Show" means: if the dll injected successfully then it remains open (running) but already inject.

4: Then double click button 1 and type
CODE:
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.TextBox2.Text = (DllFileName)

Questions.
Question
What is textbox 1 for?

Answer

Answer=
it is where you will put the process name, should be just (ex."soldierfont") - without quotation mark and no".exe".

Question
Is this automatically injected or not?

Answer
Yup, If you want to make it manually. Make a radiobutton1 and put this code.

CODE:
Timer1.stop()

And make another button then type inside
CODE:
Timer1.Start()

If IO.File.Exists(OpenFileDialog1.FileName) Then
Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)
If TargetProcess.Length = 0 Then
Me.Label1.Text = ("Waiting for " + TextBox1.Text + ".exe")

Else
Timer1.Stop()
Me.Label1.Text = "Successfully Injected!"
Call Inject()
End If
Else

End If

[You must be registered and logged in to see this image.]

Nice info already know but thanks for the newbie

injector huh? nice

Hmm, like i saw this before somewhere, but forgotten... :/

nice one for newbies !

This is pretty simple to made.
But this will result sometimes as a virus.

hahaha eto ginagawa ko nung nag aaral pa ako ah hehehe,,, kaso gamit ko pa nuun vb 6.0 luma na try ko nga eto 2008 .net

I know where did you get that SYNTAX of VB 8

It's from ELITEPVPERS why do i know ?

Cause im one of the Syntax Coder

- End -

Leech

Good Work +

Decipher wrote:

I know where did you get that SYNTAX of VB 8

It's from ELITEPVPERS why do i know ?

Cause im one of the Syntax Coder

- End -

Leech

This is not only posted in Elitepvper's
There are many site's there that you can get.

But the problem is if this is not your work then you have to give credits.

nice.. but too hard to understand..

starcraft0333 wrote:

I can teach you if you want?

thanks but no thanks i have already a site which it was injected an mysql to the owner of facebook's victim. heheh. ( btw, its not an app, its a site)

Looks to me like a DLL injector , good though

@dj_bxu

oooh . scaryy T.T

Spoiler:

asa ung link?

Umm Do You Have How To Make Keylogger Injector ^^