- Yasaklandı
- #1
☞ MaMo434376
Seçkin Üye
Arkadaşlar ben bu kodları bulana kadar afedersiniz götümü yırttım yarısını kendim düzenledim. Ve kodlar:
EN ÖNEMLİ NOT: KODLARKEN VİSUAL STUDİOYU YÖNETİCİ OLARAK ÇALIŞYIRIN VE YAPTIGINIZ PROGRAMIDA YOKSA ÇALIŞMAZ.
En üste bu kodu ekleyin ilk önce:
Not: altdaki kodlarda SOFTWARE klasöründe, ben bir klasör açmak istiyorum ve Klasör Adı bölümünde istediğim klasörün adını yazıyorum.
HKEY_LOCAL_MACHINE üzerinde klasör açma:
HKEY_CURRENT_USER üzerinde klasör açma:
HKEY_LOCAL_MACHINE üzerinde klasör silme:
HKEY_CURRENT_USER üzerinde klasör silme:
HKEY_LOCAL_MACHINE üzerinde kök klasör silme:
HKEY_CURRENT_USER üzerinde kök klasör silme:
Not1: "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows Defender" olan yere value ekliyeceğiniz klasörün uzantısını yazınız.
Not2: \DisableAntiSpyware yazan yere valuenin ismini yazacan.
Not3: 1 yazan kısma regeditdeki valueye basınca değer verisi kısmına istediğinizi yazınız. Örnek: @%systemroot%\system32\SecurityHealthAgent.dll, -1002
Not4: REG_DWORD yazan yere altdaki resimde gördüğünüz gibi valuenin türünü yazacan. Örnek REG_SZ
İstediğiniz bir klasörün içine value ekleme:
______________ Örnek Resim ________________
Not: SOFTWARE\Policies\Microsoft\Windows Def yazan yere klasörün olduğu yerin uzantısıyla yazın.
Not2: Örnek value kısmınada sileceğiniz valuenin ismini yazınız
HKEY_LOCAL_MACHINE İçinde istediğiniz bir klasörün içinden istediğiniz value'yi silme:
HKEY_CURRENT_USER İçinde istediğiniz bir klasörün içinden istediğiniz value'yi silme:
EN ÖNEMLİ NOT: KODLARKEN VİSUAL STUDİOYU YÖNETİCİ OLARAK ÇALIŞYIRIN VE YAPTIGINIZ PROGRAMIDA YOKSA ÇALIŞMAZ.
En üste bu kodu ekleyin ilk önce:
Kod:
Imports Microsoft.Win32Not: altdaki kodlarda SOFTWARE klasöründe, ben bir klasör açmak istiyorum ve Klasör Adı bölümünde istediğim klasörün adını yazıyorum.
HKEY_LOCAL_MACHINE üzerinde klasör açma:
Kod:
Dim regKey As RegistryKey
regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
regKey.CreateSubKey("Klasörün adı")
regKey.Close()HKEY_CURRENT_USER üzerinde klasör açma:
Kod:
Dim regKey As RegistryKey
regKey = Registry.CurrentUser.OpenSubKey("Software", True)
regKey.CreateSubKey("Klasörün adı")
regKey.Close()HKEY_LOCAL_MACHINE üzerinde klasör silme:
Kod:
Dim regKey As RegistryKey
regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
regKey.DeleteSubKey("Klasörün adı")
regKey.Close()HKEY_CURRENT_USER üzerinde klasör silme:
Kod:
Dim regKey As RegistryKey
regKey = Registry.CurrentUser.OpenSubKey("SOFTWARE", True)
regKey.DeleteSubKey("Klasörün adı")
regKey.Close()HKEY_LOCAL_MACHINE üzerinde kök klasör silme:
Kod:
Dim regKey As RegistryKey
regKey = Registry.LocalMachine.OpenSubKey("Software", True)
regKey.DeleteSubKeyTree("Klasörün adı")
regKey.Close()HKEY_CURRENT_USER üzerinde kök klasör silme:
Kod:
Dim regKey As RegistryKey
regKey = Registry.CurrentUser.OpenSubKey("Software", True)
regKey.DeleteSubKeyTree("Klasörün adı")
regKey.Close()Not1: "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows Defender" olan yere value ekliyeceğiniz klasörün uzantısını yazınız.
Not2: \DisableAntiSpyware yazan yere valuenin ismini yazacan.
Not3: 1 yazan kısma regeditdeki valueye basınca değer verisi kısmına istediğinizi yazınız. Örnek: @%systemroot%\system32\SecurityHealthAgent.dll, -1002
Not4: REG_DWORD yazan yere altdaki resimde gördüğünüz gibi valuenin türünü yazacan. Örnek REG_SZ
İstediğiniz bir klasörün içine value ekleme:
______________ Örnek Resim ________________
Kod:
Dim rektry As Object
rektry = CreateObject("WScript.Shell")
rektry.regwrite("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows Defender\DisableAntiSpyware", "1", "REG_DWORD")Not: SOFTWARE\Policies\Microsoft\Windows Def yazan yere klasörün olduğu yerin uzantısıyla yazın.
Not2: Örnek value kısmınada sileceğiniz valuenin ismini yazınız
HKEY_LOCAL_MACHINE İçinde istediğiniz bir klasörün içinden istediğiniz value'yi silme:
Kod:
Dim key As Microsoft.Win32.RegistryKey
key = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Policies\Microsoft\Windows Def", True)
key.DeleteValue("Örnek value")HKEY_CURRENT_USER İçinde istediğiniz bir klasörün içinden istediğiniz value'yi silme:
Kod:
Dim key As Microsoft.Win32.RegistryKey
key = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\Policies\Microsoft\Windows Def", True)
key.DeleteValue("Örnek value")
Son düzenleme:
