关于 使用进程标识符取得进程句柄

湖中舞

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
      ' 使用进程标识符取得进程句柄
      pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
      If (pHandle = 0) Then
      MsgBox "Couldn't get a process handle!"
      Exit Sub
      End If
      ' 在内存地址中写入名字
      'WriteProcessMemory pHandle, &H40B181, "Beans", 5, 0&
      ' 关闭进程句柄
      CloseHandle hProcess      
End Sub
代码如上 程序运行总是 MsgBox "Couldn't get a process handle!"
请高手指教