win7 下OpenProcess失败了，怎么办？

业余的业余

这是xp下运行正常的函数模块:
Private Sub UntilExeStop(cExptExeStr As String)
Dim hProc As Long, lExit As Long
Dim hFirstHwnd As Long
hFirstHwnd = Shell(cExptExeStr, vbNormalFocus)
hProc = OpenProcess(PROCESS_QUERY_INFORMATION, False, hFirstHwnd)
Do
  GetExitCodeProcess hProc, lExit '连续跟踪当前运行的外部程序是否关闭
  DoEvents
Loop While lExit = STILL_ACTIVE
End Sub

可是在win7下OpenProcess失败了,hProc返回值=0。采用管理员权限也不行。各位大侠，怎么办啊？（百度了也没有找到解决办法）

huangshanvs

亲，使用前提升到system权限了没？

业余的业余

huangshanvs 发表于 2015-7-22 10:29
亲，使用前提升到system权限了没？

用管理员权限运行，是这个意思吗？不行啊。如若不是，如何提升到system权限，还望大侠告知，有代码指点最好了！本人有点菜，高深了可能玩不动。

bbb620

1. Private Function AquireDebugToken() As Boolean '提权
   
2.     Dim hToken  As Long
   
3.     Dim tTP     As TOKEN_PRIVILEGES
   
4.     Dim tTPPrev As TOKEN_PRIVILEGES
   
5.     Dim tLUID   As LUID
   
6. 
   
7.     If OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, hToken) Then
   
8.         If LookupPrivilegeValue("", "SeDebugPrivilege", tLUID) <> 0 Then
   
9.             With tTP
   
10.                 .PrivilegeCount = 1
    
11.                 .TheLuid = tLUID
    
12.                 .Attributes = SE_PRIVILEGE_ENABLED
    
13.             End With
    
14. 
    
15.             If AdjustTokenPrivileges(hToken, 0, tTP, Len(tTP), tTPPrev, Len(tTPPrev)) <> 0 Then
    
16.                 AquireDebugToken = True
    
17.             End If
    
18.         End If
    
19.         CloseHandle hToken
    
20.     End If
    
21. End Function

复制代码

你试试这个，声明就不发了，到处都查得到

业余的业余

huangshanvs 发表于 2015-7-22 10:29
亲，使用前提升到system权限了没？

亲，提升system权限是这样：用管理员权限运行本exe，对吗？不行啊，试过了。如果还有其它高级方式，估计我就不会了，希望亲写点具体实例+略加注释，谢谢先！

1033029588

是不是目标进程有问题 比如 w7 64位的自带程序 你就没法对他进行内存的操作

lyq_superior

32位还是64位？