Private Const LOGON32_LOGON_INTERACTIVE = 2
Private Const LOGON32_PROVIDER_DEFAULT = 0
Private Enum TOKEN_TYPE
TokenPrimary = 1
TokenImpersonation
End Enum
Private Enum SECURITY_IMPERSONATION_LEVEL
SecurityAnonymous = 0
SecurityIdentification
SecurityImpersonation
SecurityDelegation
End Enum
Private Declare Function LogonUser Lib "advapi32.dll" Alias _
"LogonUserA" _
(ByVal lpszUsername As String, _
ByVal lpszDomain As String, _
ByVal lpszPassword As String, _
ByVal dwLogonType As Long, _
ByVal dwLogonProvider As Long, _
phToken As Long) As Long
Private Declare Function DuplicateTokenEx _
Lib "advapi32.dll" (ByVal hExistingToken As Long, _
ByVal dwDesiredAccess As Long, _
ByVal lpTokenAttributes As Long, _
ImpersonationLevel As SECURITY_IMPERSONATION_LEVEL, _
ByVal TokenType As TOKEN_TYPE, _
phNewToken As Long) As Boolean
Private Sub Command1_Click()
Dim Result As Long
Dim htoken As Long
Dim hNewToken As Long, i As Long
Result = LogonUser("Administrator", "", "111", LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_DEFAULT, htoken)
MsgBox htoken
MsgBox DuplicateTokenEx(htoken, 0, i, SECURITY_IMPERSONATION_LEVEL.SecurityImpersonation, TOKEN_TYPE.TokenPrimary, hNewToken)
MsgBox hNewToken
End Sub
希望獲得hNewToken的值，這段代碼在xp環境下可以得到結果，但是在win7下不行，應該是用戶權限問題。
希望高手能夠給出解決方案
uj5u.com熱心網友回復：
那么就必須讓你的程式“用管理員執行”。沒有權限的程式是不能自己升權限的，否則系統的安全就是假的了。
uj5u.com熱心網友回復：
這段程式是由vb.net改編過來的，在vb.net執行是沒有問題的
uj5u.com熱心網友回復：
既然懷疑權限問題，不試試就排除這個可能了？uj5u.com熱心網友回復：
大神，vb代碼我是從今天才開始，真心不知道怎么弄
uj5u.com熱心網友回復：
編譯處理的 exe 檔案上右鍵，用管理員執行。uj5u.com熱心網友回復：
試了還是不行
uj5u.com熱心網友回復：
試了還是不行uj5u.com熱心網友回復：
確定 .Net 程式可以在 Win7 下成功？那么 GetLastError 取錯誤資訊，看到底什么錯誤。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/115384.html
標籤：API