Register de yeni anahtar oluşturmak

[mozdem]

örneğin
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main

yolundaki yere yeni DWORD değeri oluşturup.
Adını "ornek" değerini (1) yapmak istiyorum

Bu konuda yardımlarınızı bekliyorum.
Teşekkürler

 

[Haluk]

Yazmak için;

Sub WriteReg()
    Dim WSH_Shell As Object
    RegKey = "HKCU\Software\Microsoft\Internet Explorer\Main\Ornek "
    Set WSH_Shell = CreateObject("WScript.Shell")
    WSH_Shell.RegWrite RegKey, 1, "REG_DWORD"
End Sub

Silmek için;

Sub DelReg()
    Dim WSH_Shell As Object
    RegKey = "HKCU\Software\Microsoft\Internet Explorer\Main\Ornek "
    Set WSH_Shell = CreateObject("WScript.Shell")
    WSH_Shell.RegDelete RegKey
End Sub

 

[mozdem]

İlk önce çok teşekkür ederim.Eline sağlık.Gerçekten çok :mutlu: sevindim.
Yazmak için ile Silmek için olan kod aynı. Yazma kodunu denedim ve çok güzel.Aslında sorumda istememiştim ama silmek için olan koda bakabilirmisiniz.

Tekrar teşekkürler. Eline sağlık.

 

[Levent Menteşoğlu]

Silmek için verilen koddaki "RegWrite" ifadesini "RegDelete" olarak değiştirin.

 

[Haluk]

Dışarı çıkmak üzereydim......aceleden aynı kodu yapıştırmışım.

Mesajdaki kod düzeltildi.

 

[mozdem]

Sizlere nasıl Teşekkür etsem bilmiyorum.Çokçok teşekkür ederim.Sağlıcakla kalın.

:mutlu: :keyif: