Question

vb.net --VS2015 OpenProcessToke()函数返回值为0 的问题

Const TOKEN_ADJUST_PRIVILEGES = &H20
Const TOKEN_QUERY = &H8

Dim hToken As Integer
Dim i As Integer

MessageBox.Show(Process.GetCurrentProcess().Handle)

i = OpenProcessToken(Process.GetCurrentProcess().Handle, TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, hToken)

运行 MessageBox.Show(Process.GetCurrentProcess().Handle) 是正确返回值的

最后i的返回值 是0 没成功。。不知道 什么错误。 请高手指教啊。

Answer 1

不需要返回值应该用过程啊！ sub
private sub（xxx，xxx）
。。。
end sub

追问

这是API 的引用。。用sub 你扯远了