VirtualAllocEx

[12354]

    Private Declare Function VirtualAllocEx Lib "KERNEL32" (ByVal hProcess As Long, ByVal lpAddr As Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Int32
(...)
        Process.EnterDebugMode() 'EDIT
        Dim n As Int32
        Dim myProcesses As Process() = Process.GetProcessesByName("calc")
        Const PROCESS_ALL_ACCESS = &H1F0FFF
        prHandle = OpenProcess(PROCESS_ALL_ACCESS, 0, myProcesses(0).Id)
        n = VirtualAllocEx(prhandle, 0, 8074, &H1000, &H4)
        MsgBox(n)

Das Problem ist nur , es kommt immer 0 raus : /

Was mach ich falsch?

Erledigt- > siehe letzter Post / EDIT4

[mr.rattlz]

Did you obtain the needed privileges beforehand?

Remarks

To open a handle to another local process and obtain full access rights, you must enable the SeDebugPrivilege privilege.

[12354]

Originally Posted by mr.rattlz

Did you obtain the needed privileges beforehand?

Jup hab ich auch : (

EDIT: Ich editiers mal rein
EDIT2: Es liegt nicht am ProzessHandle. ReadProcessMemory funktioniert mit genau dem Handle

[mr.rattlz]

You should try and see what GetLastError has to say:

[12354]

Originally Posted by mr.rattlz

You should try and see what GetLastError has to say:

Err.LastDllError.ToString = 87 ' ERROR_INVALID_PARAMETER
Parameter incorrect :/

Originally Posted by Itburnz

If you use .net try System.Diagnostics.Process.GetProcessesByName("Cal c");

Im already using this : D

        Dim myProcesses As Process() = [B]Process.GetProcessesByName("calc")[/B]

The Handle is alright. I can use ReadProcessMemory with it.

EDIT:Warum schreibt ihr eigentlich Englisch in einem deutschen Topic °-°

EDIT2: Anscheinend hab ich den VirtualAllocEx falsch deklariert.
Hab gerade ein ähnliches Problem bei einem anderen ApiCall gehabt!

EDIT3(-.-): Isses normal dass als Adresse jetzt immer 600000000(Hex) bzw 25769803776(Dez) rauskommt?
EDIT4 = Profit

    <DllImport("kernel32.dll", SetLastError:=True, ExactSpelling:=True)> _
        Private Function VirtualAllocEx(ByVal hProcess As IntPtr, ByVal lpAddress As IntPtr, _
    ByVal dwSize As UInteger, ByVal flAllocationType As UInteger, _
    ByVal flProtect As UInteger) As IntPtr
    End Function