اولا قم بوضع فضاء اسماء في شفرة الكود
Imports Microsoft.Win32
ثم انشيء كائن الريجستري
Dim reg As Registry
وفي تحميل الفورم ضع
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' أنشاء المفتاح
reg.ClassesRoot.CreateSubKey("Mn_902")
'إنشاء كائن للتعامل مع المفتاح
Dim regkey As RegistryKey = reg.ClassesRoot.OpenSubKey("Mn_902", True)
'إنشاء مفتاح جديد
regkey.SetValue("Pass", "111")
End Subوبإمكانك تضع كلمة غير 111 على حسب كلمتك ..
وضع زر وتكست للفورم
في حدث كليك
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'إنشاء كائن للتعامل مع المفتاح
Dim regkey As RegistryKey = reg.ClassesRoot.OpenSubKey("Mn_902", True)
' معرفة قيمة سلسة
Dim Key As String
Key = regkey.GetValue("Pass")
If TxtPass.Text.Trim = Key Then
MessageBox.Show("PassWrad Good", "Mn_902", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show("PassWrad Error", "Mn_902", MessageBoxButtons.OK, MessageBoxIcon.Information)
TxtPass.Clear()
End If
End Subوانا في انتظاركم للاستفسار ...