EnableLua kapatıp açmak için Reg kaydı

[hyper09]

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.

[TRWE_2012]

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.

[hyper09]

çok teşekkür ederim efsanesiniz selamlar

[burak35]

Aşağıdaki konu ve site size bu Tweak için yardımcı olacaktır.
https://www.tenforums.com/tutorials/112 ... ndows.html

Daha fazlası için bu konuyada bakabilirsiniz.
https://forum.sordum.net/viewtopic.php?t=214486