طريقة التعامل مع الريجستري

[IM.com]

اولا قم بوضع فضاء اسماء في شفرة الكود

كود PHP:

Imports Microsoft.Win32 


ثم انشيء كائن الريجستري

كود PHP:

Dim reg As Registry 


وفي تحميل الفورم ضع

كود PHP:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   ' أنشاء المفتاح 
       reg.ClassesRoot.CreateSubKey("Scriptat")
       'إنشاء كائن للتعامل مع المفتاح 
       Dim regkey As RegistryKey = reg.ClassesRoot.OpenSubKey("Scriptat", True)
       إنشاء مفتاح جديد 
       regkey.SetValue("Pass", "111")
   End Sub 


وبإمكانك تضع كلمة غير 111 على حسب كلمتك ..
وضع زر وتكست للفورم
في حدث كليك

كود PHP:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   'إنشاء كائن للتعامل مع المفتاح 
       Dim regkey As RegistryKey = reg.ClassesRoot.OpenSubKey("Scriptat", True)
       ' معرفة قيمة سلسة 
       Dim Key As String
       Key = regkey.GetValue("Pass")
       If TxtPass.Text.Trim = Key Then
           MessageBox.Show("PassWord Good", "Scriptat", MessageBoxButtons.OK, MessageBoxIcon.Information)
       Else
           MessageBox.Show("PassWrad Error", "Scriptat", MessageBoxButtons.OK, MessageBoxIcon.Information)
           TxtPass.Clear()
       End If
End Sub 


[Mohamed Oraby]

جزاك الله كل خير