hyper09 yazdı: 02 Şub 2025 15:09
Bazen program filese dosya atmam gerekiyor ama enablelua nedeni ile sürekli soruyor. Enablelua'yı kapatıp açabileceğim bir reg kaydı verirseniz rica etsem memnun olurum herkese iyi forumlar dilerim.
EnableLUA ayarını kapatmak ve açmak için kullanabileceğiniz iki ayrı .reg dosyası kodu bulunmaktadır.
EnableLUA'yı Kapatmak için .reg Dosyası
Kod: Tümünü seç
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System]
"EnableLUA"=dword:00000000
EnableLUA'yı Açmak için .reg Dosyası
Kod: Tümünü seç
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System]
"EnableLUA"=dword:00000001
Kullanım Talimatları
Yukarıdaki kodlardan birini kopyalayın.
Not Defteri'ni açın ve kopyaladığınız kodu yapıştırın.
Dosyayı
EnableLUA_Kapat.reg veya
EnableLUA_Ac.reg olarak kaydedin (uzantının .reg olduğuna dikkat edin).
Oluşturduğunuz .reg dosyasına çift tıklayın ve kayıt defterine eklemek için onaylayın.
Değişikliklerin etkili olabilmesi için bilgisayarınızı yeniden başlatın.
Bu dosyalar, EnableLUA ayarını istediğiniz gibi değiştirecektir.
NOT:
Dosya Türü kısmı "Tüm Dosyalar" olacak....
Yukarıdaki iki .reg kaydını, tek bir .vbs betik ile birleştirme :
Aşağıda, hem EnableLUA'yı kapatmak hem de açmak için tek bir .vbs dosyası içinde iki ayrı seçenek sunan bir kod bulunmaktadır. Kullanıcıdan bir seçim yapmasını isteyecek ve buna göre işlemi gerçekleştirecektir.
EnableLUA Ayarını Değiştiren.vbs Dosyası
Kod: Tümünü seç
Dim WshShell, choice
Set WshShell = CreateObject("WScript.Shell")
choice = MsgBox("EnableLUA'yı kapatmak için 'Evet', açmak için 'Hayır' butonuna tıklayın.", vbYesNo + vbQuestion, "EnableLUA Ayarı")
If choice = vbYes Then
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA", 0, "REG_DWORD"
MsgBox "EnableLUA kapatıldı. Bilgisayarınızı yeniden başlatın.", vbInformation
Else
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA", 1, "REG_DWORD"
MsgBox "EnableLUA açıldı. Bilgisayarınızı yeniden başlatın.", vbInformation
End If
Kullanım Talimatları
Yukarıdaki kodu kopyalayın.
Not Defteri'ni açın ve kopyaladığınız kodu yapıştırın.
Dosyayı EnableLUA_Degistir.vbs olarak kaydedin (uzantının .vbs olduğuna dikkat edin).
Oluşturduğunuz .vbs dosyasına çift tıklayın ve onaylayın.
Değişikliklerin etkili olabilmesi için bilgisayarınızı yeniden başlatın.