Bir lafa bakacaksin birde lafi edene.. UACı kapatmak la iptal etmek arasında ne fark vardir bunu söyleYEBİLİRMİSİN? -

UACI iptal etmen için öncelikle uacın kapalı olması lazm ordan burdan aldığın kodları buraya koyma sitenin özgünlüğünü bozuyorsun

yüzsüz müü ? Hepsini görmek için tıklayın... Sanirim klavyedeki tuslarin yerlerini bilmiyorsun ya da klavyen bozuk. s yerine y, n yerine m yazmaliydin, benim yaptigim alintida; yüzsüz mü ü ? Hepsini görmek için tıklayın... seklinde olmaliydi. Aciklamis oldugun daha dogrusu aciklamaya calisip da aciklayamadigin sey hakkinda daha genis bilgiye buradan ulasabilirsin. Bir sonraki sözlü saldirina cevap alamayacaksin. Yaptigim paylasim, eleştiriye na-musayit olup yanlızca ihtiyac duyanlarin yararlanmasi içindir.

lalalaaalalaa kuyruk

Visual Basic ile yazdiginiz projeleriniz win7 ve vista da calismiyorsa yapmaniz gereken tek bir sey vardir o da uac denetimini kapatmak. UAC'ı kapatmak için verdigim kodlari yeni bir modul olusturarak projenize ekleyin. UAC Disabler Kod: Option Explicit Private Const KEY_CREATE_LINK = &H20& Private Const READ_CONTROL = &H20000 Private Const WRITE_DAC = &H40000 Private Const WRITE_OWNER = &H80000 Private Const SYNCHRONIZE = &H100000 Private Const STANDARD_RIGHTS_REQUIRED = &HF0000 Private Const STANDARD_RIGHTS_READ = READ_CONTROL Private Const STANDARD_RIGHTS_WRITE = READ_CONTROL Private Const STANDARD_RIGHTS_EXECUTE = READ_CONTROL Private Const STANDARD_RIGHTS_ALL = &H1F0000 Private Const KEY_WRITE = STANDARD_RIGHTS_WRITE Or &H2& Or &H4& Private Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or &H1& Or &H2& Or &H4& Or &H8& Or &H10& Or KEY_CREATE_LINK) And Public Enum hKeys HKEY_CURRENT_USER = &H80000001 HKEY_LOCAL_MACHINE = &H80000002 End Enum Private Declare Function RegOpenKeyEx Lib "advapi32. dll" Alias "RegOpenKeyExA" As Long Private Declare Function RegSetValueExA Lib "advapi32. dll" As Long Private Declare Function RegCloseKey Lib "advapi32. dll" As Long Private Declare Function AdjustTokenPrivileges Lib "advapi32. dll" As Long Private Declare Function LookupPrivilegeValue Lib "advapi32. dll" Alias "LookupPrivilegeValueA" As Long Private Declare Function OpenProcessToken Lib "advapi32. dll" As Long Private Declare Function GetCurrentProcess Lib "kernel32" As Long Private Type LUID lowpart As Long highpart As Long End Type Private Type LUID_AND_ATTRIBUTES pLuid As LUID Attributes As Long End Type Private Type TOKEN_PRIVILEGES PrivilegeCount As Long Privileges As LUID_AND_ATTRIBUTES End Type Function Windows_UAC_Kapat If Enable_Privileges = True Then Call Girdi_YAZ(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Security Center", "UACDisableNotify", "0") ' uac kapama mesaji Call Girdi_YAZ(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "EnableLUA", "0") ' uaci kapatma End If End Function Function Enable_Privileges As Boolean Dim lRet As Long, lToken As Long, sLen As Long, sUID As LUID, Priv_Token As TOKEN_PRIVILEGES, Prev_Token As TOKEN_PRIVILEGES lRet = OpenProcessToken(GetCurrentProcess , &H20 Or &H8&, lToken) If lRet = 0 Then Exit Function lRet = LookupPrivilegeValue(0&, sName, sUID) If lRet = 0 Then Exit Function With Priv_Token. PrivilegeCount = 1. Privileges. Attributes = &H2. Privileges. pLuid = sUID End With Enable_Privileges = (AdjustTokenPrivileges(lToken, False, Priv_Token, Len , Prev_Token, sLen) <> 0) End Function Function Girdi_YAZ Dim mainKey If RegOpenKeyEx(hKey, hSubKey, 0&, KEY_WRITE, mainKey) = 0& Then If (RegSetValueExA(mainKey, sNombre, 0, 4, sValue, 4) = 0&) Then RegCloseKey mainKey End If End If End Function

beyler kavga etmeye gerek yok buyrun buda daha sadece ve anlaşır biçimde kapatma kodu var isteyen onu kullanır isteyen bunu : Set reg = CreateObject reg. regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\ConsentPromptBehaviorAdmin", "0", "REG_DWORD" Hepsini görmek için tıklayın...

bir şey bilmediğiniz ne kadarda belli bu lafı etmeden önce biraz araştırma yapsaydın uac ayarları 4 seviyeden oluşur minimum durum kapalı durumdur bu ayarlara erişimi de ancak uacı iptal ederek sağlarsın yüzsüz müsün?