Aslında bu başlığı birkaç sene önce açacaktım gel gelelim kendi dalgınlığım sebebi ile Kodu çalıştıramamıştım , daha doğrusu birçok kod bulup denediğimden tıkladım çalışmadı ve es geçtim demek yerinde olacaktır

, herneyse ben yinede forumda paylaşmışken arkadaşın biri gözden kaçırdığım basit hatayı işeret etti ve şu şekilde değiştir sıkıntı olmaz deyince , baktım sorunsuz çalışıyor , hatam da şuydu ; ben genellikle 3 dilli bir sistem kullanırım , İngilizce , Türkçe ve almanca , Türkçeye geçtiğimi farketmeden kodda "Bilgisayar" yerine "My Computer" terimini kullanmışım , eski sistemlerde farketmiyordu diye biliyorum o nedenle böylesi bir yazım hatası hiç aklıma gelmemişti , Herneyse kodumuz aşağıda:

Sadece Türkçe sistemlerde çalışan Kod:

Set WshShell = CreateObject("WScript.Shell")
Dim MyKey
MyKey = Inputbox("Registry Satırını Girin.")
MyKey = "Bilgisayar\" & MyKey
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\Lastkey",MyKey,"REG_SZ"
WshShell.Run "regedit", 1,True
Set WshShell = Nothing

İngilizce sistemlerde kodun çalışabilmesi için : MyKey = "Bilgisayar\" & MyKey , satırında yeralan (4.satır) "Bilgisayar" kelimesinin My Computer\" & MyKey şeklinde değiştirilmesi gerekmektedir eğer fransızca bir sistemde kullanırsanız bu kısmı Fransızca yapmanız gerekir. Kod çalıştırıldığında (nasılını defalarca sayfalarımızda açıkladığımızdan tekrar izah etmeye gerek görmüyorum) aşağıdaki gibi bir soru ekranı ile karşılaşırız

ve buraya zıplamak istediğimiz Rgeistry anahtarını girersek , Kayıt defteri düzenleyicisi direkt olarak o anahtarı açacaktır , buda bize programsız istediğimiz bir registry anahtarına kolayca ulaşmamızda yardımcı olacaktır.

14.11.2016 tarihli güncelleme (Tüm sistemlerde sorunsuzdur)

Üstte verdiğim kodlarda birkaç sıkıntı birden vardı ilk sıkıntı Bilgisayarım kelimesinin her dile göre düzenlenmesinin gereği , ikincisi sıkıntı ise "İptal" tuşuna basılsa bile Registry editörünün açılması idi , her ikiside ciddi olan bu sıkıntılar yeni versionda giderildi işte v1.1 kodları

'www.sordum.net - Velociraptor - 14.11.2016
Set WshShell = CreateObject("WScript.Shell")
Dim JumpToKey
JumpToKey=Inputbox("Which registry key would you like to open?","www.sordum.net")
If IsEmpty(JumpToKey) Then
Set WshShell = Nothing
Else
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\Lastkey",JumpToKey,"REG_SZ"
WshShell.Run "regedit", 1,True
End If

Eğer çok daha profesyonel ve kaliteli birşey isterseniz ; Registry key Jumper i denemenizi öneririm (Sordum üretimidir) yazılımda hrhangi bir boşluğa anahtar girmenize bile gerek yok Kopyaladığınız bir anahtarı anında açacaktır , Yazılımı Burada tanıtmıştık , ilaveten Bakınız

Aşağıdaki linkten v1.0 ve v1.1 kodlarının hazır hallerini indirebilirsiniz

Download