Ana içeriğe git
Konu: vb6 da kayıt defteri işlemleri (891 Kez okunmuş)

vb6 da kayıt defteri işlemleri

Kod: [Seç]

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