vb6 da kayıt defteri işlemleri

[mehmet.kartal.1999]

Kod Seç Genişlet

Dim bos As Object
Set bos = CreateObject(\"wscript.shell\")

Public Sub regyaz(yol As Variant, ad As Variant, içerik As Variant)
bos.regwrite yol & ad, içerik
End Sub

Public Function regoku(yol As Variant, ad As Variant) As String
regoku = bos.regread(yol & ad)
End Function


Programınızın kodunun en üstüne bu kodları yerleştirince windows kayıt defterine veri yazıp okuyabilirsiniz 
Kullanımı:

1 Veri Yazmak :
regyaz komutu kullanılır yanına key\'in yolu , adı ve içeriği eklenir.
örn:
regyaz (\"HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run\\\",\"VB6\",\"C:\\Program Files\\Microsoft Visual Studio\\VB98\\VB6.EXE\")

2 Veri Okumak :
regoku komutu kullanılır yanına key\'in  yolu ve adı eklenir
örn:
text1.text = regoku (\"HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run\\\",\"VB6\")


_{not: Yıkarıdaki regyaz komutunun örneği vb6 nın windows ile başlamasını sağlar}