Vb.net Dll İnjector Yapımı

İhtiyacımız Olanlar;

• 2 Textbox
• 1 Button
• 1 Timer
• 1 OpenFileDialog
• 1 Label
Direk Form Kodu


HTML Code;

button1.text = "Dll Bul"
label1.text = "Dosyalar Aranıyor..."
timer1.interval = 50
timer1.start()
Timer Kodu
HTML Code:
If IO.File.Exists(OpenFileDialog1.FileName) Then
Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)
If TargetProcess.Length = 0 Then
Me.Label1.Text = ("Lütfen Bekleyin : " + TextBox1.Text + ".exe")
Else
Timer1.Stop()
Me.Label1.Text = "Başarıyla İnjectlendi.."
Call Inject()
End If
Else
End If
Buton 1


HTML 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)
Kodu Yazın ve Formun Public Class ına


HTML 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 flAl********Type As Integer, _
ByVal flProtect As Integer) As Integer