{"id":31,"date":"2008-09-14T16:18:25","date_gmt":"2008-09-14T13:18:25","guid":{"rendered":"http:\/\/www.notsayfam.com\/?p=31"},"modified":"2009-03-18T00:32:25","modified_gmt":"2009-03-17T21:32:25","slug":"42-revision","status":"publish","type":"post","link":"https:\/\/www.notsayfam.com\/?p=31","title":{"rendered":"vb.net \u00fczerinde registry i\u015flemleri"},"content":{"rendered":"

VB.net \u00fczerinde registry i\u015flemleri<\/strong>
\n‘ Kullan\u0131labilecek Registry ana dizinleri<\/p>\n\n<\/col>\n<\/col>\n\n\n\n\n\n\n\n\n
CurrentUser <\/span><\/strong><\/td>\n <\/span>Kullan\u0131c\u0131 tercihleri ile ilgili bilgi i\u00e7erir.<\/td>\n<\/tr>\n
LocalMachine <\/span><\/strong><\/td>\n <\/span>Yerel makine konfig\u00fcrasyonu hakk\u0131nda bilgi i\u00e7erir.<\/td>\n<\/tr>\n
ClassesRoot <\/span><\/strong><\/td>\n <\/span>Tipler ve \u00f6zellikleri hakk\u0131nda bilgi i\u00e7erir.<\/td>\n<\/tr>\n
Users <\/span><\/strong><\/td>\n <\/span>Varsay\u0131lan kullan\u0131c\u0131 hakk\u0131nda bilgi i\u00e7erir.<\/td>\n<\/tr>\n
PerformanceData <\/span><\/strong><\/td>\n <\/span>Yaz\u0131l\u0131m performanlar\u0131 ile ilgili bilgi i\u00e7erir.<\/td>\n<\/tr>\n
CurrentConfig <\/span><\/strong><\/td>\n <\/span>Kullan\u0131c\u0131 ba\u011f\u0131ms\u0131z donan\u0131m konfigurasyon bilgisi i\u00e7erir.<\/td>\n<\/tr>\n
DynData <\/span><\/strong><\/td>\n <\/span>Dinamik data bilgisi i\u00e7erir.<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n

VB.NET\u00a0\u00a0\u00a0 Registry<\/strong><\/p>\n\n<\/col>\n<\/col>\n\n\n\n\n\n\n\n\n
ClassesRoot <\/span><\/strong><\/td>\nHKEY_CLASSES_ROOT\u00a0\u00a0\u00a0 registry anahtar\u0131na eri\u015fmek i\u00e7in kullan\u0131l\u0131r.<\/td>\n<\/tr>\n
CurrentConfig <\/span><\/strong><\/td>\nHKEY_CURRENT_CONFIG\u00a0\u00a0\u00a0 registry anahtar\u0131na eri\u015fmek i\u00e7in kullan\u0131l\u0131r.<\/td>\n<\/tr>\n
CurrentUser <\/span><\/strong><\/td>\nHKEY_CURRENT_USER \u00a0\u00a0\u00a0 registry anahtar\u0131na eri\u015fmek i\u00e7in kullan\u0131l\u0131r.<\/td>\n<\/tr>\n
DynData <\/span><\/strong><\/td>\nHKEY_DYN_DATA \u00a0\u00a0\u00a0 registry anahtar\u0131na eri\u015fmek i\u00e7in kullan\u0131l\u0131r.<\/td>\n<\/tr>\n
LocalMachine <\/span><\/strong><\/td>\nHKEY_LOCAL_MACHINE \u00a0\u00a0\u00a0 registry anahtar\u0131na eri\u015fmek i\u00e7in kullan\u0131l\u0131r.<\/td>\n<\/tr>\n
PerformanceData <\/span><\/strong><\/td>\nHKEY_PERFORMANCE_DATA\u00a0\u00a0\u00a0 registry anahtar\u0131na eri\u015fmek i\u00e7in kullan\u0131l\u0131r.<\/td>\n<\/tr>\n
Users <\/span><\/strong><\/td>\nHKEY_USERS registry anahtar\u0131na eri\u015fmek i\u00e7in kullan\u0131l\u0131r.<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n


\nRegistryKey Class<\/strong>
\nRegistryKey s\u0131n\u0131f\u0131 registry e okuma,yazma,de\u011fi\u015ftirme ve silme olana\u011f\u0131 tan\u0131r. \u00d6zellik ve metodlar\u0131na bakacak olursak;<\/p>\n\n<\/col>\n<\/col>\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n
\u00d6zellikler<\/strong><\/td>\nA\u00e7\u0131klama<\/strong><\/td>\n<\/tr>\n
Name <\/span><\/strong><\/td>\nAnahtar\u0131n ismini g\u00f6sterir.<\/td>\n<\/tr>\n
SubKeyCount <\/span><\/strong><\/td>\nTemel seviyedeki alt anahtar say\u0131s\u0131n\u0131 g\u00f6sterir.<\/td>\n<\/tr>\n
ValueCount <\/span><\/strong><\/td>\nDe\u011fer say\u0131s\u0131n\u0131 g\u00f6sterir.<\/td>\n<\/tr>\n
<\/td>\n<\/td>\n<\/tr>\n
\u00d6zellikler<\/strong><\/td>\nA\u00e7\u0131klama<\/strong><\/td>\n<\/tr>\n
Close <\/span><\/strong><\/td>\nAnahtar\u0131 kapat\u0131r.<\/td>\n<\/tr>\n
CreateSubKey <\/span><\/strong><\/td>\n\u015eayet yoksa alt anahtar olu\u015fturur varsa mevcut anahtar\u0131 a\u00e7ar.<\/td>\n<\/tr>\n
DeleteSubKey <\/span><\/strong><\/td>\nAlt anahtar\u0131 siler.<\/td>\n<\/tr>\n
DeleteSubKeyTree <\/span><\/strong><\/td>\nAlt anahtar\u0131 ve alt yordamlar\u0131n\u0131 siler.<\/td>\n<\/tr>\n
DeleteValue <\/span><\/strong><\/td>\nBelirlenmi\u015f de\u011feri siler.<\/td>\n<\/tr>\n
GetSubKeyNames <\/span><\/strong><\/td>\nAlt anahtar isimlerini i\u00e7eren bir dizi d\u00f6nd\u00fcr\u00fcr.<\/td>\n<\/tr>\n
GetValue <\/span><\/strong><\/td>\nBelirlenmi\u015f de\u011feri g\u00f6sterir.<\/td>\n<\/tr>\n
GetValueNames <\/span><\/strong><\/td>\nBu anahtar i\u00e7in tan\u0131mlanm\u0131\u015f de\u011ferleri dizi \u015feklinde d\u00f6nd\u00fcr\u00fcr.<\/td>\n<\/tr>\n
OpenSubKey <\/span><\/strong><\/td>\nAlt anahtar a\u00e7ar.<\/td>\n<\/tr>\n
SetValue <\/span><\/strong><\/td>\nBelirlenmi\u015f de\u011feri ayarlar.<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n

\u00d6rnek Kullan\u0131mlar<\/strong>
\n\u2018 gerekli olan .Net NameSpace y\u00fckleyelim
\nImports Microsoft.Win32<\/code>
\n\u2018 Registry de\u011ferlerini atayabilece\u011fimiz bir de\u011fi\u015fken tan\u0131mlayal\u0131m.
\nDim kayit as RegistryKey<\/code>
\n\u2018 Registry \u00fczerinde a\u00e7aca\u011f\u0131m\u0131z klas\u00f6r\u00fc tanimlayalim
\nDim anahtar As String = \u201cmustafa54.com\u201d<\/code>
\n\u2018Local_Machine \u00fczerindeki klas\u00f6r\u00fc var m\u0131 diye kontrol etmek
\nkayit = Registry.LocalMachine.OpenSubKey (anahtar, True)
\nIf anahtar Is Nothing Then
\nMsgbox \u201cAnahtar Yok\u201d
\nEnd If<\/code>
\n\u2018Local_Machine \u00fczerine mustafa54.com isimli klas\u00f6r a\u00e7mak
\nkayit = Registry.LocalMachine.CreateSubKey (anahtar)<\/code>
\n\u2018registry \u00fczerinde bir klas\u00f6r\u00fcn alt\u0131ndaki bir de\u011feri de\u011fi\u015ftirmek i\u00e7in \u00f6ncelikle klas\u00f6r\u00fc
\n\u2018a\u00e7abilmeliyiz bu y\u00fczden \u00f6nce kontrol ettiririz e\u011fer klas\u00f6r mevcut de\u011filse i\u00e7indeki
\n\u2018anahtarlar\u0131 okumada hata olu\u015facakt\u0131r.
\n\u2018REG_SZ Alt anahtar\u0131n\u0131n mustafa54.com isimli klas\u00f6re yaz\u0131lmas\u0131
\nDim alt_anahtar As String = \u201cKontrol\u201d
\nDim alt_anahtar_deger As String = \u201cGecti\u201d
\nkayit = Registry.LocalMachine.OpenSubKey (anahtar, True)<\/code>
\n\u2018 Alt anahtar olu\u015fturup de\u011ferini atamak
\nkayit.SetValue (alt_anahtar,alt_anahtar_deger)<\/code>
\n\u2018 Alt anahtar\u0131 silmek
\nkayit.DeleteSubKey (alt_anahtar)<\/code>
\n\u2018 Alt Anahtar\u0131n de\u011ferini okumak
\nMsgbox (\u201dAlt Anahtar\u0131n de\u011feri = \u201d & kayit.GetValue(alt_anahtar).ToString )<\/code>
\n\u2018REG_BINARY de\u011ferli bir alt anahtar olu\u015ftural\u0131m
\nalt_anahtar = \u201cVersiyon\u201d
\nDim alt_anahtar_byte() As Byte = { 1, 6, 9, 0 }
\nkayit.SetValue ( alt_anahtar,alt_anahtar_byte)<\/code>
\n\u2018 REG_DWORD anahtar olu\u015fturma
\nalt_anahtar = \u201cAcilma_Sayisi\u201d
\nDim alt_anahtar_dword As Integer = 115
\nkayit.SetValue ( alt_anahtar,alt_anahtar_dword)<\/code>
\n\u2018okumak
\nMsgBox(CInt(reg.GetValue(alt_anahtar).ToString()))<\/code>
\n\u2018REG_MULTI_SZ anahtar olu\u015fturma, okuma
\nalt_anahtar = \u201cSiteler\u201d
\nDim alt_anahtar_multisz As String() = {\u201dwww.mustafa54.com\u201d & vbCrLf & \u201cwww.kullukcuoglu.com\u201d}
\nkayit.SetValue ( alt_anahtar,alt_anahtar_multisz)<\/code>
\n\u2018Okumak
\nDim deger As String
\nDim alt_anahtar_deger As String() = kayit.GetValue(alt_anahtar)
\nFor i As Integer = 0 To alt_anahtar_deger.GetUpperBound(0)
\ndeger += alt_anahtar_deger(i)
\nNext
\nMsgBox(deger)<\/code><\/p>\n

\u00d6rnek<\/strong>
\nProgramdaki ama\u00e7 Terminal Server (\u00c7ok kullan\u0131c\u0131l\u0131 bir xp,vista i\u00e7inde kullan\u0131labilir) \u00fczerinde giri\u015f yapm\u0131\u015f t\u00fcm kullan\u0131c\u0131lar\u0131n registrylerine eri\u015fip bir de\u011fer eklenmesi ile ilgili.\u00a0\u00a0 Free olan bir program\u0131n t\u00fcm kullan\u0131c\u0131larda kay\u0131t etme zorunlulu\u011fu gibi veya bir program\u0131n registry \u00fczerinde tuttu\u011fu ayarlar\u0131 t\u00fcm kullan\u0131c\u0131larda de\u011fi\u015ftirmek i\u00e7in kullan\u0131labilir. E\u011fer yap\u0131n\u0131zda Active Directory
\nmevcut ise yeni bir adm veya admx dosyas\u0131 olu\u015fturarak registry \u00fczerine yazmay\u0131da sa\u011flayabilirsiniz.<\/p>\n

Imports Microsoft.Win32
\nPublic Class Form1
\nDim reg As RegistryKey
\nDim sid, anahtar As String
\nPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
\nFor i = 1000 To 1400
\nsid = \"S-1-5-21-3097270690-711011111-935111111-\" + i.ToString
\nreg = Registry.Users.OpenSubKey(sid, True)
\n' Registry de\u011feri mevcur de\u011filse yani o SID ye ait bir kullan\u0131c\u0131 yoksa bir sonraki SID ye ge\u00e7elim
\nIf reg Is Nothing Then
\nGoTo son
\nEnd If
\n' SID Varsa
\nanahtar = sid + \"SoftwareXXSoftLisans\"
\nreg = Registry.Users.OpenSubKey(anahtar, True)
\n'E\u011fer Lisans Anahtar\u0131 a\u00e7\u0131lmam\u0131\u015fsa olu\u015ftural\u0131m
\nIf reg Is Nothing Then
\nreg = Registry.Users.CreateSubKey(sid + \"SoftwareXXSoftLisans\")
\nEnd If
\nreg.SetValue(\"Lisans_Aktif\", 1)
\nson:
\nNext
\nEnd Sub
\nEnd Class<\/code><\/p>\n","protected":false},"excerpt":{"rendered":"

VB.net \u00fczerinde registry i\u015flemleri ‘ Kullan\u0131labilecek Registry ana dizinleri CurrentUser Kullan\u0131c\u0131 tercihleri ile ilgili bilgi i\u00e7erir. LocalMachine Yerel makine konfig\u00fcrasyonu hakk\u0131nda bilgi i\u00e7erir. ClassesRoot Tipler ve \u00f6zellikleri hakk\u0131nda bilgi i\u00e7erir. Users Varsay\u0131lan kullan\u0131c\u0131 hakk\u0131nda bilgi i\u00e7erir. PerformanceData Yaz\u0131l\u0131m performanlar\u0131 ile ilgili bilgi i\u00e7erir. CurrentConfig Kullan\u0131c\u0131 ba\u011f\u0131ms\u0131z donan\u0131m konfigurasyon bilgisi i\u00e7erir. DynData Dinamik data bilgisi i\u00e7erir. … Okumaya devam et “vb.net \u00fczerinde registry i\u015flemleri”<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11,13],"tags":[105,17,71],"class_list":["post-31","post","type-post","status-publish","format-standard","hentry","category-programlama","category-vb-net","tag-programlama","tag-vbnet","tag-visual-basic-registry"],"_links":{"self":[{"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/posts\/31","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=31"}],"version-history":[{"count":9,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/posts\/31\/revisions"}],"predecessor-version":[{"id":269,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/posts\/31\/revisions\/269"}],"wp:attachment":[{"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=31"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=31"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=31"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}