• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 8 رای - 3.25 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: [VB6] Disable UAC
حالت موضوعی
#1
سورس کد غیر فعال کردن 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
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
#2
Call RtlAdjustPrivilege(17, True, True, 0)


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


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  Disable webbrowser control script errors vb6 Amin_Mansouri 0 964 09-15-2017، 04:02 PM
آخرین ارسال: Amin_Mansouri

پرش به انجمن:


Browsing: 1 مهمان