本人是个菜鸟 在计算器修改器出现问题 请各位大哥指教
Private Sub btnPasteName_Click()
' 声明一些需要的变量
Dim hwnd As Long ' 储存 FindWindow 函数返回的句柄
Dim pid As Long ' 储存进程标识符( Process Id )
Dim pHandle As Long ' 储存进程句柄

' 首先取得目标窗口的句柄
hwnd = FindWindow(vbNullString, "计算器")
If (hwnd = 0) Then
MsgBox "Window not found!"
Exit Sub
End If

' 取得进程标识符
GetWindowThreadProcessId hwnd, pid
Dim open_access As Long
    open_access = &H30
    pHandle = OpenProcess(open_access, False, pid)

    
' 使用进程标识符取得进程句柄

If (pHandle = 0) Then
MsgBox "Couldn't get a process handle!"
Exit Sub
End If

' 在内存地址中写入名字
WriteProcessMemory pHandle, &H1B28DD9, "Beans", 5, 0&

' 关闭进程句柄
CloseHandle hProcess
End Sub
代码就是上面这些
就是用内存搜索地址搜索不到唯一的内存地址   
而且就算我把GE搜索到的内存地址都试了 都没用！他都不会写入Beans字符
运行时是没错的 只是按了没什么反应！
还有Dim open_access As Long
    open_access = &H30   这个不怎么懂
到底是哪出了问题