التعديل على هذا المشروع - نسخة قابلة للطباعة

PHP كود :

Imports Microsoft.Win32

Module Module1

    Public Sub Main()
        If Registry.CurrentUser.OpenSubKey("Acivate") Is Nothing Then
            Dim Acivate As RegistryKey = Registry.CurrentUser.CreateSubKey("Acivate")
            Acivate.SetValue("Acivate", "False")
        End If

        Dim logicValue As Boolean = GetValueKey("Acivate")

        If logicValue = False Then
            Application.Run(New Form1())
        Else
            Application.Run(New Form2())
        End If

    End Sub



    'الحصول على قيمة اي مفتاح
    Private Function GetValueKey(ByVal SubKeyName As String) As String
        Dim Value As String = ""
        If Not IsNothing(My.Computer.Registry.CurrentUser.OpenSubKey(SubKeyName)) Then
            Value = My.Computer.Registry.CurrentUser.OpenSubKey(SubKeyName).GetValue(SubKeyName)
            Return Value
        Else
            Return ""
        End If
        Return Value

    End Function

    'اسناد قيمة لاي مفاح
    Public Sub SetValueKey(ByVal KeyNmae As String, ByVal Value As String)
        If Not IsNothing(My.Computer.Registry.CurrentUser.OpenSubKey(KeyNmae)) Then
            My.Computer.Registry.CurrentUser.OpenSubKey(KeyNmae, True).SetValue(KeyNmae, Value)
        End If

    End Sub

End Module

PHP كود :

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim user As String = "ameer"
        Dim xyear As String = Date.Today.Year
        Dim xmonth As String = Date.Today.Month
        Dim xday As String = Date.Today.Day
        Dim sum As String = Val(xyear) + Val(xmonth) + Val(xday) + user.Length
        If TextBox1.Text = "sum" Then
            SetValueKey("Acivate", "True")
            Application.Restart()
        Else
            MsgBox("كلمة المرور خاطئة")
        End If

    End Sub