Injector With Max 1-4 Dll's (Textboxes)

Hello,
Welcome to my injector to inject 2 or 3 or 4 Dll's (Textboxes)

Step1:
Add 4 Textboxes
1 Label
3 Checkboxes
1 Timer
4 OpenfileDialog

Step2:
Textbox1_Click:

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.TextBox1.Text = (DllFileName)

---

Textbox1_Textchanged:

Code:

---

        If TextBox1.Text = "Click to select dll" Then
        Else
            Label1.Text = "Waiting for Engine.exe"
        End If

---

Textbox2_Click:

Code:

---

        OpenFileDialog2.Filter = "DLL (*.dll) |*.dll|(*.*) |*.*"
        OpenFileDialog2.ShowDialog()
        Dim FileName2 As String
        FileName2 = OpenFileDialog2.FileName.Substring(OpenFileDialog2.FileName.LastIndexOf("\"))
        Dim DllFileName2 As String = FileName2.Replace("\", "")
        Me.TextBox2.Text = (DllFileName2)

---

Textbox2_textchanged:

Code:

---

        If TextBox2.Text = "Click to select dll" Then
        Else
            Label1.Text = "Waiting for Engine.exe"
        End If

---

Textbox3_Click:

Code:

---

        OpenFileDialog3.Filter = "DLL (*.dll) |*.dll|(*.*) |*.*"
        OpenFileDialog3.ShowDialog()
        Dim FileName3 As String
        FileName3 = OpenFileDialog3.FileName.Substring(OpenFileDialog3.FileName.LastIndexOf("\"))
        Dim DllFileName3 As String = FileName3.Replace("\", "")
        Me.TextBox3.Text = (DllFileName3)

---

Textbox3_TextChanged:

Code:

---

        If TextBox3.Text = "Click to select dll" Then
        Else
            Label1.Text = "Waiting for Engine.exe"
        End If

---

Textbox4_Click:

Code:

---

        OpenFileDialog4.Filter = "DLL (*.dll) |*.dll|(*.*) |*.*"
        OpenFileDialog4.ShowDialog()
        Dim FileName4 As String
        FileName4 = OpenFileDialog4.FileName.Substring(OpenFileDialog4.FileName.LastIndexOf("\"))
        Dim DllFileName4 As String = FileName4.Replace("\", "")
        Me.TextBox4.Text = (DllFileName4)

---

Textbox4_Textchanged:

Code:

---

        If TextBox4.Text = "Select DLL" Then
        Else
            Label1.Text = "Waiting for Engine.exe"
        End If

---

Step3:
Timer1:

Code:

---

        If IO.File.Exists(OpenFileDialog1.FileName) Then
            Dim TargetProcess As Process() = Process.GetProcessesByName("HSUpdate")
            If TargetProcess.Length = 0 Then
                If CheckBox17.Checked = False Then
                    Me.Label1.Text = ("Waiting for Engine.exe")
                Else
                    Me.Label1.Text = ("Closing After Running Engine.exe")
                End If
                '  Me.TextBox2.Text = ("Let´s Hack")
            Else
                Timer1.Stop()
                Me.Label1.Text = "Injected..."
                If meertextboxen.Checked = True And meertextboxen2.Checked = False Then
                    Call Injector()
                    If meertextboxen2.Checked = True Then
                        Call Injectoring()
                    ElseIf meertextboxen.Checked = False And meertextboxen2.Checked = False Then
                        Call Inject()
                    Else
                        'Me.TextBox1.Text = (DLLFileName)
                        ' Me.TextBox2.Text = ("Rename the .dll To " + "" + ExeName)
                    End If
                End If
            End If
        End If

---

Step4:
Just Add This:

Code:

---

    Private Sub Inject()
        Dim TargetProcess As Process() = Process.GetProcessesByName("OPERATION7")
        TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)
        pszLibFileRemote = OpenFileDialog1.FileName
        pszLibFileRemote2 = OpenFileDialog2.FileName
        pfnStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")
        TargetBufferSize = Len(pszLibFileRemote) + Len(pszLibFileRemote2)
        Dim Rtn As Integer
        Dim Rtn2 As Integer
        Dim LoadLibParamAdr As Integer
        LoadLibParamAdr = VirtualAllocEx(TargetProcessHandle, 0, TargetBufferSize, MEM_COMMIT, PAGE_READWRITE)
        Rtn = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote, TargetBufferSize, 0)
        Rtn2 = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote2, TargetBufferSize, 0)
        CreateRemoteThread(TargetProcessHandle, 0, 0, pfnStartAddr, LoadLibParamAdr, 0, 0)
        CloseHandle(TargetProcessHandle)
    End Sub
    Private Sub Injector()
        TextBox3.Enabled = True
        Dim TargetProcess As Process() = Process.GetProcessesByName("OPERATION7")
        TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)
        pszLibFileRemote = OpenFileDialog1.FileName
        pszLibFileRemote2 = OpenFileDialog2.FileName
        pszLibFileRemote3 = OpenFileDialog3.FileName
        pfnStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")
        TargetBufferSize = +Len(pszLibFileRemote) + Len(pszLibFileRemote2) + Len(pszLibFileRemote3)
        Dim Rtn As Integer
        Dim Rtn2 As Integer
        Dim Rtn3 As Integer
        Dim LoadLibParamAdr As Integer
        LoadLibParamAdr = VirtualAllocEx(TargetProcessHandle, 0, TargetBufferSize, MEM_COMMIT, PAGE_READWRITE)
        Rtn = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote, TargetBufferSize, 0)
        Rtn2 = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote2, TargetBufferSize, 0)
        Rtn3 = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote3, TargetBufferSize, 0)
        CreateRemoteThread(TargetProcessHandle, 0, 0, pfnStartAddr, LoadLibParamAdr, 0, 0)
        CloseHandle(TargetProcessHandle)
    End Sub
    Private Sub Injectoring()
        TextBox3.Enabled = True
        TextBox4.Enabled = True
        Dim TargetProcess As Process() = Process.GetProcessesByName("OPERATION7")
        TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)
        pszLibFileRemote = OpenFileDialog1.FileName
        pszLibFileRemote2 = OpenFileDialog2.FileName
        pszLibFileRemote3 = OpenFileDialog3.FileName
        pszLibFileRemote4 = OpenFileDialog4.FileName
        pfnStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")
        TargetBufferSize = +Len(pszLibFileRemote) + Len(pszLibFileRemote2) + Len(pszLibFileRemote3) + Len(pszLibFileRemote4)
        Dim Rtn As Integer
        Dim Rtn2 As Integer
        Dim Rtn3 As Integer
        Dim Rtn4 As Integer
        Dim LoadLibParamAdr As Integer
        LoadLibParamAdr = VirtualAllocEx(TargetProcessHandle, 0, TargetBufferSize, MEM_COMMIT, PAGE_READWRITE)
        Rtn = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote, TargetBufferSize, 0)
        Rtn2 = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote2, TargetBufferSize, 0)
        Rtn3 = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote3, TargetBufferSize, 0)
        Rtn4 = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote4, TargetBufferSize, 0)
        CreateRemoteThread(TargetProcessHandle, 0, 0, pfnStartAddr, LoadLibParamAdr, 0, 0)
        CloseHandle(TargetProcessHandle)
    End Sub

---

Step5:
Checkboxes
Name Checkbox1 to:
Close Program After Injected
And Add This:

Code:

---

        If Label1.Text = "Injected..." Then
            End
        Else
        End If

---

Name Checkbox2 to:
3Dll's
And Add This:

Code:

---

        TextBox3.Enabled = True
        TextBox3.Text = ""
        If meertextboxen.Checked = False Then
            TextBox3.Enabled = False
            TextBox3.Text = "Not Enabled"
        End If

---

Name Checkbox3 to:
4 Dll's
and add this:

Code:

---

        TextBox4.Enabled = True
        TextBox3.Enabled = True
        TextBox3.Text = ""
        TextBox4.Text = ""
        If meertextboxen2.Checked = False Then
            TextBox3.Enabled = False
            TextBox4.Enabled = False
            TextBox3.Text = "Not Enabled"
            TextBox4.Text = "Not Enabled"
        End If

---

Step6:
Timer1:

Code:

---

        If IO.File.Exists(OpenFileDialog1.FileName) Then
            Dim TargetProcess As Process() = Process.GetProcessesByName("HSUpdate")
            If TargetProcess.Length = 0 Then
                If CheckBox17.Checked = False Then
                    Me.Label1.Text = ("Waiting for Engine.exe")
                Else
                    Me.Label1.Text = ("Closing After Running Engine.exe")
                End If
                '  Me.TextBox2.Text = ("Let´s Hack")
            Else
                Timer1.Stop()
                Me.Label1.Text = "Injected..."
                If meertextboxen.Checked = True And meertextboxen2.Checked = False Then
                    Call Injector()
                    If meertextboxen2.Checked = True Then
                        Call Injectoring()
                    ElseIf meertextboxen.Checked = False And meertextboxen2.Checked = False Then
                        Call Inject()
                    Else
                        'Me.TextBox1.Text = (DLLFileName)
                        ' Me.TextBox2.Text = ("Rename the .dll To " + "" + ExeName)
                    End If
                End If
            End If
        End If

---

Step7:
Name Label1 To:
Waiting For Any Dll To Inject
Textbox3 And Textbox4:
Enabled = False
Text = Not Enabled

Enjoy Your 4Dll Injector

This would be nice if you would explain what everything does. If you don't explain anything people will just copy and paste not knowing what the code actually does. Judging by what I've seen here, it's basically, "Here, copy and paste this here..".

If you understand how a DLL injector works, it's much easier to figure the code out on your own.

That's just my opinion.

Quote:

---

Originally Posted by Davidm44

This would be nice if you would explain what everything does. If you don't explain anything people will just copy and paste not knowing what the code actually does. Judging by what I've seen here, it's basically, "Here, copy and paste this here..".

If you understand how a DLL injector works, it's much easier to figure the code out on your own.

That's just my opinion.

---

thats ugleh's source just edited for 2 more textboxes

That was completely irrelevant to what I said. This is the tutorial section, it's not made for people to copy and paste, if there were any section you should learn from, it's this.

Once again, that's just my opinion.

Its my first tutorial
and if im right you guys dont like it?
To add that 2 textboxes took me like an hour to make it work :P

It's not that I don't like it, I'm just stating that all you gave us here is source code rather than a tutorial.

If this was a full tut then choobs would just leech and leech. This way they can work it out themselves if they're not lazy, and most choobs are.

Quote:

---

Originally Posted by Samueldo

If this was a full tut then choobs would just leech and leech. This way they can work it out themselves if they're not lazy, and most choobs are.

---

Im not lazy
It is pretty hard to add 2 textboxes that WORK
And its just for people who whant more dll's
because its hard to find an listbox injector tutorial!

Quote:

---

Originally Posted by Highlander

Im not lazy
It is pretty hard to add 2 textboxes that WORK
And its just for people who whant more dll's
because its hard to find an listbox injector tutorial!

---

No offense but Newbs shouldn't right tuts

In order to be a teacher, you must first become the student,

Your not up there yet in knowledge of VB, it shouldn't take 2 hours to add textbox's and have them work

It should take minutes.

Take some time, learn, then begin writing tuts (detailed tuts)

Just one of those (IMO) thingy's

hey where do i add the Step 4 Code

It goes in the form code, (though from the looks of it, proablly could create a module out of it :p)You can put it below the timer in step 3,

This is Uglehs Code, If you do a search you will see a more C&P Friendly version

well i dont know if i should release a TUT on how to make PerX(well almost) should i?????

Hello,
Welcome to my injector to inject 2 or 3 or 4 Dll's (Textboxes)

Step1:
Add 4 Textboxes
1 Label
3 Checkboxes
1 Timer
4 OpenfileDialog

Step2:
Textbox1_Click:

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.TextBox1.Text = (DllFileName)

---

Shows what DLL your injecting
Textbox1_Textchanged:

Code:

---

        If TextBox1.Text = "Click to select dll" Then
        Else
            Label1.Text = "Waiting for Engine.exe"
        End If

---

I am guessing that this means that before you click a certain button, the text box will say "Click to select dll". But after you click it and select your dll it will say "Waiting for Engine.exe".
I will have to actually MAKE an injector with this before i actually figure it out.
Textbox2_Click:

Code:

---

        OpenFileDialog2.Filter = "DLL (*.dll) |*.dll|(*.*) |*.*"
        OpenFileDialog2.ShowDialog()
        Dim FileName2 As String
        FileName2 = OpenFileDialog2.FileName.Substring(OpenFileDialog2.FileName.LastIndexOf("\"))
        Dim DllFileName2 As String = FileName2.Replace("\", "")
        Me.TextBox2.Text = (DllFileName2)

---

OpenFileDialog2.Filter = "DLL (*.dll) |*.dll|(*.*) |*.*" = search for files with a .dll label. the rest i don't know.
Textbox2_textchanged:

Code:

---

        If TextBox2.Text = "Click to select dll" Then
        Else
            Label1.Text = "Waiting for Engine.exe"
        End If

---

After you select the DLL it will say "Waiting for Engine.exe"
Textbox3_Click:

Code:

---

        OpenFileDialog3.Filter = "DLL (*.dll) |*.dll|(*.*) |*.*"
        OpenFileDialog3.ShowDialog()
        Dim FileName3 As String
        FileName3 = OpenFileDialog3.FileName.Substring(OpenFileDialog3.FileName.LastIndexOf("\"))
        Dim DllFileName3 As String = FileName3.Replace("\", "")
        Me.TextBox3.Text = (DllFileName3)

---

Textbox3_TextChanged:

Code:

---

        If TextBox3.Text = "Click to select dll" Then
        Else
            Label1.Text = "Waiting for Engine.exe"
        End If

---

Textbox4_Click:

Code:

---

        OpenFileDialog4.Filter = "DLL (*.dll) |*.dll|(*.*) |*.*"
        OpenFileDialog4.ShowDialog()
        Dim FileName4 As String
        FileName4 = OpenFileDialog4.FileName.Substring(OpenFileDialog4.FileName.LastIndexOf("\"))
        Dim DllFileName4 As String = FileName4.Replace("\", "")
        Me.TextBox4.Text = (DllFileName4)

---

Textbox4_Textchanged:

Code:

---

        If TextBox4.Text = "Select DLL" Then
        Else
            Label1.Text = "Waiting for Engine.exe"
        End If

---

Step3:
Timer1:

Code:

---

        If IO.File.Exists(OpenFileDialog1.FileName) Then
            Dim TargetProcess As Process() = Process.GetProcessesByName("HSUpdate")
            If TargetProcess.Length = 0 Then
                If CheckBox17.Checked = False Then
                    Me.Label1.Text = ("Waiting for Engine.exe")
                Else
                    Me.Label1.Text = ("Closing After Running Engine.exe")
                End If
                '  Me.TextBox2.Text = ("Let´s Hack")
            Else
                Timer1.Stop()
                Me.Label1.Text = "Injected..."
                If meertextboxen.Checked = True And meertextboxen2.Checked = False Then
                    Call Injector()
                    If meertextboxen2.Checked = True Then
                        Call Injectoring()
                    ElseIf meertextboxen.Checked = False And meertextboxen2.Checked = False Then
                        Call Inject()
                    Else
                        'Me.TextBox1.Text = (DLLFileName)
                        ' Me.TextBox2.Text = ("Rename the .dll To " + "" + ExeName)
                    End If
                End If
            End If
        End If

---

Step4:
Just Add This:

Code:

---

    Private Sub Inject()
        Dim TargetProcess As Process() = Process.GetProcessesByName("OPERATION7")
        TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)
        pszLibFileRemote = OpenFileDialog1.FileName
        pszLibFileRemote2 = OpenFileDialog2.FileName
        pfnStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")
        TargetBufferSize = Len(pszLibFileRemote) + Len(pszLibFileRemote2)
        Dim Rtn As Integer
        Dim Rtn2 As Integer
        Dim LoadLibParamAdr As Integer
        LoadLibParamAdr = VirtualAllocEx(TargetProcessHandle, 0, TargetBufferSize, MEM_COMMIT, PAGE_READWRITE)
        Rtn = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote, TargetBufferSize, 0)
        Rtn2 = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote2, TargetBufferSize, 0)
        CreateRemoteThread(TargetProcessHandle, 0, 0, pfnStartAddr, LoadLibParamAdr, 0, 0)
        CloseHandle(TargetProcessHandle)
    End Sub
    Private Sub Injector()
        TextBox3.Enabled = True
        Dim TargetProcess As Process() = Process.GetProcessesByName("OPERATION7")
        TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)
        pszLibFileRemote = OpenFileDialog1.FileName
        pszLibFileRemote2 = OpenFileDialog2.FileName
        pszLibFileRemote3 = OpenFileDialog3.FileName
        pfnStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")
        TargetBufferSize = +Len(pszLibFileRemote) + Len(pszLibFileRemote2) + Len(pszLibFileRemote3)
        Dim Rtn As Integer
        Dim Rtn2 As Integer
        Dim Rtn3 As Integer
        Dim LoadLibParamAdr As Integer
        LoadLibParamAdr = VirtualAllocEx(TargetProcessHandle, 0, TargetBufferSize, MEM_COMMIT, PAGE_READWRITE)
        Rtn = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote, TargetBufferSize, 0)
        Rtn2 = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote2, TargetBufferSize, 0)
        Rtn3 = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote3, TargetBufferSize, 0)
        CreateRemoteThread(TargetProcessHandle, 0, 0, pfnStartAddr, LoadLibParamAdr, 0, 0)
        CloseHandle(TargetProcessHandle)
    End Sub
    Private Sub Injectoring()
        TextBox3.Enabled = True
        TextBox4.Enabled = True
        Dim TargetProcess As Process() = Process.GetProcessesByName("OPERATION7")
        TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)
        pszLibFileRemote = OpenFileDialog1.FileName
        pszLibFileRemote2 = OpenFileDialog2.FileName
        pszLibFileRemote3 = OpenFileDialog3.FileName
        pszLibFileRemote4 = OpenFileDialog4.FileName
        pfnStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")
        TargetBufferSize = +Len(pszLibFileRemote) + Len(pszLibFileRemote2) + Len(pszLibFileRemote3) + Len(pszLibFileRemote4)
        Dim Rtn As Integer
        Dim Rtn2 As Integer
        Dim Rtn3 As Integer
        Dim Rtn4 As Integer
        Dim LoadLibParamAdr As Integer
        LoadLibParamAdr = VirtualAllocEx(TargetProcessHandle, 0, TargetBufferSize, MEM_COMMIT, PAGE_READWRITE)
        Rtn = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote, TargetBufferSize, 0)
        Rtn2 = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote2, TargetBufferSize, 0)
        Rtn3 = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote3, TargetBufferSize, 0)
        Rtn4 = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote4, TargetBufferSize, 0)
        CreateRemoteThread(TargetProcessHandle, 0, 0, pfnStartAddr, LoadLibParamAdr, 0, 0)
        CloseHandle(TargetProcessHandle)
    End Sub

---

Step5:
Checkboxes
Name Checkbox1 to:
Close Program After Injected
And Add This:

Code:

---

        If Label1.Text = "Injected..." Then
            End
        Else
        End If

---

Name Checkbox2 to:
3Dll's
And Add This:

Code:

---

        TextBox3.Enabled = True
        TextBox3.Text = ""
        If meertextboxen.Checked = False Then
            TextBox3.Enabled = False
            TextBox3.Text = "Not Enabled"
        End If

---

Name Checkbox3 to:
4 Dll's
and add this:

Code:

---

        TextBox4.Enabled = True
        TextBox3.Enabled = True
        TextBox3.Text = ""
        TextBox4.Text = ""
        If meertextboxen2.Checked = False Then
            TextBox3.Enabled = False
            TextBox4.Enabled = False
            TextBox3.Text = "Not Enabled"
            TextBox4.Text = "Not Enabled"
        End If

---

Step6:
Timer1:

Code:

---

        If IO.File.Exists(OpenFileDialog1.FileName) Then
            Dim TargetProcess As Process() = Process.GetProcessesByName("HSUpdate")
            If TargetProcess.Length = 0 Then
                If CheckBox17.Checked = False Then
                    Me.Label1.Text = ("Waiting for Engine.exe")
                Else
                    Me.Label1.Text = ("Closing After Running Engine.exe")
                End If
                '  Me.TextBox2.Text = ("Let´s Hack")
            Else
                Timer1.Stop()
                Me.Label1.Text = "Injected..."
                If meertextboxen.Checked = True And meertextboxen2.Checked = False Then
                    Call Injector()
                    If meertextboxen2.Checked = True Then
                        Call Injectoring()
                    ElseIf meertextboxen.Checked = False And meertextboxen2.Checked = False Then
                        Call Inject()
                    Else
                        'Me.TextBox1.Text = (DLLFileName)
                        ' Me.TextBox2.Text = ("Rename the .dll To " + "" + ExeName)
                    End If
                End If
            End If
        End If

---

Step7:
Name Label1 To:
Waiting For Any Dll To Inject
Textbox3 And Textbox4:
Enabled = False
Text = Not Enabled

Enjoy Your 4Dll Injector

I don't have time to explain any more, but i hope what i explained helped a little :D
::EDIT:: THIS DOESN'T WORK!! :(

A. This isn't your injector, this is leeched. It is almost word for word Highlanders Leeched copy, A leecher leeches off a leecher, that's just brilliant.

B. It doesn't work because you C&P and there are numerous changes that need to be made

C. 1 Month Bump = Bad...

I didn't know it was bumped, my bad, and on like the second or third post of this it said "You need to explain it more" Well i was trying ti explain it more.