ثبت و دریافت اطلاعات از ریجستری(فوری)

[MahmoodGH]

سلام
من جدیدا دارم برنامه ای می نویسم که این برنامه نیاز به ثبت رمز عبور در ریجسترس داره.
به عنوان مثال من می خوام وقتی کار بر برای اولی بار برنامه رو توی کامپیوترش اجرا کرد یه رمز عبور به برنامه بده. بعدش برنامه رمزش رو در ریجستری ذخیره کنه. در همین راستا اگه فرد بار دوم برنامه رو اجرا کرد دیگه برنامه از کاربر رمز عبور نخواد. اگه میشه بهم تو این قسمت که مربوط به ثبت اطلاعات در ریجستری هست کمک کنید.

[zoofa]

بگرديد پيدا مي شه
همين امروز دربارش بحث شد
از savesetting براي ذخيره استفاده مي شه
و از getsetting براي بازيابي استفاده مي شه

[saadi2]

Imports Microsoft.Win32
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim regKey As Microsoft.Win32.RegistryKey
regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
regKey.CreateSubKey("MyTestApplication")
regKey.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim regKey As RegistryKey
Dim val As String
regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\MyTestApplication", True)
regKey.SetValue("AppName", Me.TextBox1.Text)
regKey.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim regKey As RegistryKey
Dim val As String
regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\MyTestApplication", True)
Me.TextBox1.Text = regKey.GetValue("AppName")
regKey.Close()
End Sub
End Class

[mortezamhd]

سلام
من یک بار این سوال رو پرسیده بودم به پستهام یک سری بزن اگر اشتباه نکنم یکی از دوستان یک مقاله برام آپ کرده بودن
موفق باشی

[MahmoodGH]

Imports Microsoft.Win32
PublicClass Form1
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Dim regKey As Microsoft.Win32.RegistryKey
regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
regKey.CreateSubKey("MyTestApplication")
regKey.Close()
EndSub
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim regKey As RegistryKey
Dim val AsString
regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\MyTestApplication", True)
regKey.SetValue("AppName", Me.TextBox1.Text)
regKey.Close()
EndSub
PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim regKey As RegistryKey
Dim val AsString
regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\MyTestApplication", True)
Me.TextBox1.Text = regKey.GetValue("AppName")
regKey.Close()
EndSub
EndClass

سلام
من از کد بالا که دوستمون قرار داد استفاده کردم. اما یه مشکل داره و مشکلش هم اینه که هر وقت من سیستم رو ری استارت می کنم مثه اینکه اطلاعات از ریجشتری پاک میشه.
میشه بگید دلیلش چیه...؟:متفکر:

[milad.biroonvand]

به اینجا مراجعه کن

http://www.barnamenevis.org/forum/showthread.php?t=172692