Make a Drag a& Drop Injector

Private result As Short
    Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Integer) As Short
Dim Xpos As New Integer
Dim Ypos As New Integer
Dim Pos As Point
Dim dlls4inj As New Dictionary(Of String, String)
    Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
    Private 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
    Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByVal lpBuffer() As Byte, ByVal nSize As Integer, ByVal lpNumberOfBytesWritten As UInteger) As Boolean
    Private 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
    Private 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, ByVal lpThreadId As Integer) As Integer
    Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Integer, ByVal dwMilliseconds As Integer) As Integer
    Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Integer) As Integer

    Private Function Inject(ByVal pID As Integer, ByVal dllLocation As String) As Boolean
        If IntPtr.Size = 8 Then Throw New ArgumentException("Please make sure this program is compiled as x86, not x64. Memory functions     don() 't work so well otherwise.")
    Dim hProcess As Integer = OpenProcess(&H1F0FFF, 1, pID)
    If hProcess = 0 Then Return False
    Dim dllBytes As Byte() = System.Text.Encoding.ASCII.GetBytes(dllLocation)
        Dim allocAddress As Integer = VirtualAllocEx(hProcess, 0, dllBytes.Length, &H1000, &H4)
    If allocAddress = Nothing Then Return False
    Dim kernelMod As Integer = GetModuleHandle("kernel32.dll")
    Dim loadLibAddr = GetProcAddress(kernelMod, "LoadLibraryA")
    If kernelMod = 0 OrElse loadLibAddr = 0 Then Return False
        WriteProcessMemory(hProcess, allocAddress, dllBytes, dllBytes.Length, 0)
        Dim libThread As Integer = CreateRemoteThread(hProcess, 0, 0, loadLibAddr, allocAddress, 0, 0)
    If libThread = 0 Then
        Return False
    Else
        WaitForSingleObject(libThread, 5000)
        CloseHandle(libThread)
    End If
    CloseHandle(hProcess)

    If CloseAJ.Checked = True Then
        Me.Close()
   Else
            MsgBox("DLL Injected.", MsgBoxStyle.Information)
        End If

    Return True
End Function

Timer2.Interval = 1
        Timer2.Start()
        DLLs.Name = "DLLs"
        DLLs.AllowDrop = true
        ProcName.Text = "crossfire"
       STS.Text = "Waiting for Program to Start.."
        Timer1.Interval = 50
        Timer1.Start()
        CloseAJ.Checked = True
'//=========DLL Drop Code===============
        Try
            Dim Lil As String = My.Application.CommandLineArgs(0)
            If Lil.Contains(".Dll") Or Lil.Contains(".DLL") Or Lil.Contains(".dll") Then
                Dim r
                r = New IO.StreamReader(Lil)

                For Each i In My.Application.CommandLineArgs

                    Dim FileName As String
                    FileName = i.Substring(i.LastIndexOf("\"))
                    Dim DllFileName As String = FileName.Replace("\", "")
                    Me.DLLs.Items.Add(DllFileName)
                    dlls4inj.Add(DllFileName, i)
                Next
                r.Close()
            Else
                MsgBox("The File You Dropped in not a Dll", MsgBoxStyle.Critical)
                End
            End If
        Catch ex As Exception
        End Try
        If DLLs.Items.Count = 0 Then
            MsgBox("No DLL Dropped.", MsgBoxStyle.Critical)
            End
        Else
End If

 OpenFileDialog1.Filter = "DLL (*.dll) |*.dll|All Files (*.*) |*.*"
        OpenFileDialog1.ShowDialog()

dlls4inj.Clear()
        DLLs.Items.Clear()
Dim FileName As String
        FileName = OpenFileDialog1.FileName.Substring(OpenFileDialog1.FileName.LastIndexOf("\"))
Dim DllFileName As String = FileName.Replace("\", "")
        Me.DLLs.Items.Add(DllFileName)
        dlls4inj.Add(DllFileName, OpenFileDialog1.FileName)

 If DLLs.Items.Count > 0 Then
            Dim TargetProcess As Process() = Process.GetProcessesByName(ProcName.Text)
            If TargetProcess.Length = 0 Then
                STS.Text = ("Waiting for " + ProcName.Text + ".exe")
            Else
Dim ProcID As Integer = Process.GetProcessesByName(ProcName.Text)(0).Id
                Timer1.Stop()
                Timer2.Stop()
                For Each inj As KeyValuePair(Of String, String) In dlls4inj
                    Inject(ProcID, inj.Value)
If CloseAJ.Checked = True Then
                        If STS.Text = "Dll Injected." Then
                            End
                     
                             End If

                    End If
                Next
            End If
        End If

 If ProcName.Text = "" Then
            If DLLs.Items.Count = 0 Then
                STS.Text = "Waiting For DLL"
                Timer1.Stop()
            End If
        Else
            Dim TargetProcess As Process() = Process.GetProcessesByName(ProcName.Text)
            If TargetProcess.Length = 0 Then
               
                    If DLLs.Items.Count = 0 Then
                        STS.Text = "Waiting For DLL"
                        Timer1.Stop()
                    Else
                        STS.Text = ("Waiting for " + ProcName.Text + ".exe")
                    End If

                End If
End If
     Timer1.Start()

Private Sub DLLs_DragEnter(ByVal sender As Object, ByVal e As  _
 System.Windows.Forms.DragEventArgs) Handles DLLs.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.All

        End If
    End Sub

    Private Sub DLLs_DragDrop(ByVal sender As Object, ByVal e As  _
    System.Windows.Forms.DragEventArgs) Handles DLLs.DragDrop
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            Dim MyFiles() As String
            Dim i As Integer

            ' Assign the files to an array.
            MyFiles = e.Data.GetData(DataFormats.FileDrop)
            ' Loop through the array and add the files to the list.
            For i = 0 To MyFiles.Length - 1

                dlls4inj.Clear()
                DLLs.Items.Clear()
                Dim FileName As String
                FileName = MyFiles(i).Substring(MyFiles(i).LastIndexOf("\"))
                Dim DllFileName As String = FileName.Replace("\", "")
                Me.DLLs.Items.Add(DllFileName)
                dlls4inj.Add(DllFileName, MyFiles(i))
            Next

        End If
    End Sub