OpenProcess的权限参数可能有关系

我用的是PROCESS_ALL_ACCESS

能不能说一下成功和失败的proc名称

我是用VB写的，VirtualAllocEx记事本成功，VirtualAllocEx“遨游”浏览器以及ReadOne Player的伺服器都失败，改用VC却全部成功，哪位大侠帮忙看看我的代码
BTW:我的OS是WinXP SP2

'声明：
Public Const PROCESS_ALL_ACCESS& = &H1F0FFF
Public Const MEM_COMMIT = &H1000
Public Const PAGE_READWRITE = &H4
Public Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long, lpAddress As Any, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
**********************************************************************************

'代码：
Private Sub Command1_Click()
    Dim PID As Long, hProcess As Long, hBlock As Long

    PID =1234      '在Windows任务管理器里查看再填入
    hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, PID)
    If hProcess = 0 Then
        MsgBox "没有权限打开进程！", vbInformation
        Exit Sub
    End If

    hBlock = VirtualAllocEx(hProcess, 0&, 1024, MEM_COMMIT, PAGE_READWRITE)
    If hBlock = 0 Then
        MsgBox "无法分配内存空间！", vbInformation
        Exit Sub
    End If

    CloseHandle hProcess
End Sub