ساخت یک ِDWORD در رجیستری

[vahid123]

با عرض خسته نباشید خدمت اساتید محترم.
راستش الان چند روزه درگیره ساخت برنامه ای هستم که بتونه همین دو خط کد رجیستری توس اجرا بشه که همچنان ناکام موندم...چندین تاپیک که شما اساتید محترم توش توضیحاتی دادین مطالعه کردم ولی بازم به نتیجه ی مورد نظر نرسیدم و معمولا در مورد ساخت کی Reg Sez بوده...

کد رجیستری من این هستش



[HKEY_CURRENT_USER\Software\example\example\example]
"Test"=dword:00000002



در واقع در رجیستری ویندوز به این صورت نشون داده میشه

Name= Test
Typ = Reg_DWORD
Data = 0*00000002

البته تونستم تا جاهایی پیش برم ولی متاسفانه یا در قسمت value یا جاهای دیگه مشکل ایجاد میشد...اگر بتونید یک راهنمایی کاملی کنید برای ساخت این رجیستری ممنون میشم..چندین PDF هم خوندم ولی به کارم نیومد متاسفانه....

[Veteran]

http://barnamenevis.org/showthread.php?307230-%D8%A7%D9%85%D9%86%DB%8C%D8%AA-%D9%BE%D8%B3%D9%88%D8%B1%D8%AF-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D8%AF%D8%B1-%D8%B1%D8%AC%DB%8C%D8%B3%D8%AA%D8%B1%DB%8C&p=1350653&viewfull=1#post1350653

[vahid123]

واقعا ممنون.خیلی خیلی ممنون

[the king]

اون قدیما این کلاس رو ساخته بودم و ازش استفاده می کردم :

91570

که مثال شما اینطوری میشه :

Private Sub Command1_Click()
Dim reg As New Registry
With reg
.CreateKey RegKeyCurrentUser, "Software\example"
.CreateKey RegKeyCurrentUser, "Software\example\example"
.CreateKey RegKeyCurrentUser, "Software\example\example\example"
If .OpenKey(RegKeyCurrentUser, "Software\example\example\example", RegAccessFull) Then
If .WriteValue("Test", &H2, RegDataTypeDWord) Then
MsgBox "Operation finished successfully."
Exit Sub
End If
End If
MsgBox "Operation failed."
End With
End Sub