[Amin_Mansouri]

سورس کد غیر فعال کردن uac با ویژوال بیسیک

کد:

Private Declare Function RegSetValueExA Lib "advapi32.dll" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Long, ByVal cbData As Long) As Long
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Public Sub DisableUac()
Dim lKey As Long

Call RtlAdjustPrivilege(17, True, True, 0)
If RegOpenKeyEx(&H80000002, "SOFTWARE\Microsoft\Security Center", 0&, &H20000 Or &H2& Or &H4&, lKey) = 0& Then
If (RegSetValueExA(lKey, "UACDisableNotify", 0, 4, 0, 4) = 0&) Then
RegCloseKey lKey
End If
End If
If RegOpenKeyEx(&H80000002, "SOFTWARE\Microsoft\Windows\CurrentVersion\Policies \System", 0&, &H20000 Or &H2& Or &H4&, lKey) = 0& Then
If (RegSetValueExA(lKey, "EnableLUA", 0, 4, 0, 4) = 0&) Then
RegCloseKey lKey
End If
End If
End Sub

[s7004u]

Call RtlAdjustPrivilege(17, True, True, 0)


این براش تعریف نشده و برنامه کار نمیکنه