Public Sub Inject()
        Dim hLocKernel32 As Integer = GetModuleHandle("Kernel32")
        Dim hLocLoadLibrary As Integer = GetProcAddress(hLocKernel32, _
          "LoadLibraryA")
 
        Dim Token As Integer
        Dim tkp As TOKEN_PRIVILEGES = New TOKEN_PRIVILEGES()
        Dim tkp2 As TOKEN_PRIVILEGES
        Dim privilegeLUID As LUID = New LUID
 
 
        If OpenProcessToken(Process.GetCurrentProcess.Handle, _
          TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, Token) Then
            LookupPrivilegeValue("", "SeDebugPrivilege", privilegeLUID)
            tkp.PrivilegeCount = 1
            tkp.Privileges.Attributes = SE_PRIVILEGE_ENABLED
            tkp.Privileges.pLuid = privilegeLUID
            AdjustTokenPrivileges(Token, 0, tkp, 16, tkp2, 16)
        End If
 
 
        Dim ProcessArray() As Process = Process.GetProcessesByName("notepad")
        Dim hProc As Integer = OpenProcess(2035711, 0, ProcessArray(0).Id)
 
        Dim dll As String = "Pfad zur dll" & vbNullChar
        Dim hRemoteMem = VirtualAllocEx(hProc, DBNull.Value, Len(dll), _
          MEM_COMMIT, PAGE_READWRITE)
 
        Dim numBytesWritten As Integer
        Dim Buffer = System.Text.Encoding.Default.GetBytes(dll)
        WriteProcessMemory(hProc, hRemoteMem, Buffer(0), Len(dll), _
          numBytesWritten)
 
        Dim nix As SECURITY_ATTRIBUTES
        Dim hRemoteThread As IntPtr = CreateRemoteThread(hProc, nix, 0, _
          hLocLoadLibrary, hRemoteMem, 0, 0) << Hier erhalte ich die _
          Fehlermeldung "Es wurde versucht, im geschützten Speicher zu lesen" & _
          "oder zu schreiben."
 
        Debug.Print(hRemoteThread)
 
        WaitForSingleObject(hRemoteThread, 10000)
 
        VirtualFreeEx(hProc, hRemoteMem, Len(dll), MEM_RELEASE)
        CloseHandle(hProc)
    End Sub