10-17-2011، 07:11 PM
سورس کد غیر فعال کردن 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