Register de yeni anahtar oluşturmak

mozdem

Altın Üye
Katılım
11 Kasım 2005
Mesajlar
441
Excel Vers. ve Dili
Windows 2011 TR
MS Office 2019 TR - 32bit

VBA, Selenium ve VBS
Altın Üyelik Bitiş Tarihi
08-04-2026
ö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

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Yazmak için;

Kod:
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;

Kod:
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

Altın Üye
Katılım
11 Kasım 2005
Mesajlar
441
Excel Vers. ve Dili
Windows 2011 TR
MS Office 2019 TR - 32bit

VBA, Selenium ve VBS
Altın Üyelik Bitiş Tarihi
08-04-2026
İ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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Silmek için verilen koddaki "RegWrite" ifadesini "RegDelete" olarak değiştirin.
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Dışarı çıkmak üzereydim......aceleden aynı kodu yapıştırmışım.

Mesajdaki kod düzeltildi.
 

mozdem

Altın Üye
Katılım
11 Kasım 2005
Mesajlar
441
Excel Vers. ve Dili
Windows 2011 TR
MS Office 2019 TR - 32bit

VBA, Selenium ve VBS
Altın Üyelik Bitiş Tarihi
08-04-2026
Sizlere nasıl Teşekkür etsem bilmiyorum.Çokçok teşekkür ederim.Sağlıcakla kalın.

:mutlu: :keyif:
 
Üst