-WGz-Akira™-
Jumlah posting : 240 Points : 5125795 Cendol And +++ : 69 Join date : 2011-03-19 Age : 27 Lokasi : DKI Jakarta
| Subject: TUTORIAL + SOURCE CODE MULTI DLL INJECTOR BY: Diaz Wed Nov 23, 2011 9:22 pm | |
| Perlengkapan : - Spoiler:
- VISUAL BASIC 2008 atau
VISUAL BASIC 2010
- Ketelitian
Kemauan
- Rokok
DLL
Info:
- Spoiler:
Kegunaan dan fitur hampir sama dengan Injector PerX dan Injack V 1.0 Punya om HRD
Fitur: - Spoiler:
- Dapat menginject lebih
dari satu dll hack
- Khususnya
buat teman2 yg ingin menggabungkan atau menginject 2 file dll sekaligus atau lebih
- Dapat digunakan
untuk menginject dll pada semua game bukan hanya untuk Point blank
- Injection Setting : Manual & Automatic injections
- Dilengkapi dengan Task Manager
- Clock
- Mp3 Player
- Credit Form
- Transparant
form
- Compatible on Windows 7 ,
Windows Vista , & Windows Xp Sisipkan semua componen berikut pada form 1 ( DIAZ FORM) :
- Spoiler:
- 7 Button
- 1 listbox
- 1
textbox
- 4 label
- 2 Timer
- 1 Check
box
- 2 Radio button
- 1 Groupbox
- 1 Open
file dialog
- 1 WIindows media
player
Form 1 ( DIAZ Form) Source Code:
Spoiler Copas pada form 1 : - Spoiler:
Public Class Form1 ' Define the CS_DROPSHADOW constant Private Const CS_DROPSHADOW As Integer = 131072 ' Override the CreateParams property Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams Get Dim cp As CreateParams = MyBase.CreateParams cp.ClassStyle = cp.ClassStyle Or CS_DROPSHADOW Return cp End Get End Property 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 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 Dim webAddress As String = "https://www.facebook.com/diazv2" 'change to whatever website you like Process.Start(webAddress) MsgBox("SPECIAL UNIVERSAL INJECTOR CREATED BY ™DIAZ_VAN_HOUTEN™ @ 2011") MsgBox("THIS INJECTOR COMPATIBLE ON OS WINDOWS XP , VISTA , SEVEN , & WINDOWS 8 ") MsgBox("ENJOY AND HAPPY CHEATING...^_^") Button1.Text = "Clear Selected" Label1.Text = "Waiting for Process Start..." Timer1.Interval = 50 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.Text = ("Waiting for " + TextBox1.Text + ".exe...") Else Timer1.Stop() Me.Label1.Text = "Successfully Injected!" Call Inject() If CheckBox1.Checked = True Then Me.Close() Dim webAddress As String = "https://www.facebook.com/diazv2" 'change to whatever website you like Process.Start(webAddress) 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 MsgBox("REMOVE SELECTED DLL ITEM NOW ") 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 MsgBox("CLEAR THE PROCCES NOW") TextBox1.Clear() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click MsgBox("CLEAR LIST OF DLL NOW") Dlls.Items.Clear() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click MsgBox("SELECT YOUR DLL") 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 Function GetAsyncKeyState(ByVal vKey As Integer) As Short If GetAsyncKeyState(Keys.F12) Then 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 Injection(F12)...") Else Timer1.Stop() Me.Label1.Text = "Successfully Injected!" Call Inject() ' If CheckBox1.Checked = True Then 'Me.Close() 'Else ' End If End If Else End If End If End Function Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click MsgBox("INJECT YOUR DLL NOW") 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 Injection(F12)...") Else Timer1.Stop() Me.Label1.Text = "Successfully Injected!" Call Inject() ' If CheckBox1.Checked = True Then 'Me.Close() 'Else ' End If Dim webAddress As String = "https://www.facebook.com/diazv2" 'change to whatever website you like Process.Start(webAddress) End If Else End If End Sub Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged MsgBox("YOU HAVE CHOOSE MANUAL INJECTION CONFIRM NOW") 'add the name of Inject button i.e button 5).Enabled = True Timer1.Enabled = False End Sub Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged MsgBox("YOU HAVE CHOOSE AUTOMATIC INJECTION CONFIRM NOW") Button5.Enabled = True Timer1.Enabled = True End Sub Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 'me Close End Sub Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Form2.Show() End Sub Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click End Sub Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick Label3.Text = TimeOfDay End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click Form3.Show() End Sub End Class
-Sisipkan semua komponen berikut pada form 2 (TASK MANAGER FORM ) : - Spoiler:
- 2 Button
1 Listbox
Form 2 ( Task Manager Form ) source code: Copas pada form 2: - Spoiler:
Imports System.Diagnostics Public Class Form2 Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim proc As Process ListBox1.Items.Clear() For Each proc In Process.GetProcesses ListBox1.Items.Add(proc.ProcessName) Next End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If ListBox1.SelectedItems.Count <= 0 Then MessageBox.Show("Click on a process name to select it.", "No ProcessSelected(") Return End If Dim p As System.Diagnostics.Process For Each p In System.Diagnostics.Process.GetProcesses() Dim arr() As String = _ ListBox1.SelectedItem.ToString().Split("-") Dim sProcess As String = arr(0).Trim() If p.ProcessName = sProcess Then p.Kill() MsgBox("Process Killed") Dim proc As Process ListBox1.Items.Clear() For Each proc In Process.GetProcesses ListBox1.Items.Add(proc.ProcessName) Next End If Next ListBox1.Update() End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim proc As Process ListBox1.Items.Clear() For Each proc In Process.GetProcesses ListBox1.Items.Add(proc.ProcessName) Next MsgBox("Processes Updated", MsgBoxStyle.Exclamation) End Sub End Class
Sisipkan semua komponen berikut pada Form 3 ( Credit Form ) : - Spoiler:
- 1 PICTURE BOX
- 10 LABEL
- 1 GROUP
BOX
Form 3 ( Credit Form ) Source code : Copas Pada Form 3: - Spoiler:
Public Class Form3 Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked Dim webAddress As String = " [You must be registered and logged in to see this link.] " 'change to whatever website you like Process.Start(webAddress) End Sub Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked Dim webAddress As String = " [You must be registered and logged in to see this link.] " 'change to whatever website you like Process.Start(webAddress) End Sub Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked Dim webAddress As String = " [You must be registered and logged in to see this link.] " 'change to whatever website you like Process.Start(webAddress) End Sub Private Sub LinkLabel4_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked Dim webAddress As String = " [You must be registered and logged in to see this link.] " 'change to whatever website you like Process.Start(webAddress) End Sub Private Sub LinkLabel5_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel5.LinkClicked Dim webAddress As String = " [You must be registered and logged in to see this link.] " 'change to whatever website you like Process.Start(webAddress) End Sub Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class
Sumber: [You must be registered and logged in to see this link.] | |
|
DJdescar
Jumlah posting : 17 Points : 17 Cendol And +++ : 0 Join date : 2011-11-06
| Subject: Re: TUTORIAL + SOURCE CODE MULTI DLL INJECTOR BY: Diaz Wed Jan 04, 2012 9:19 pm | |
| Thanks Ganz. Nie ane Kasih Cendol Terus Berkarya. | |
|