[ماستر]

الفتره التجريبيه

PHP كود :

Dim regKey As String

        regKey = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\MyAppvBsQ", "TRI", Nothing)

        If (regKey Is Nothing) Then

            Dim MpTryApi As String = Now.AddDays(120D)
            My.Computer.Registry.SetValue("HKEY_CURRENT_USER\MyAppvBsQ", "TRI", MpTryApi)

        ElseIf regKey > Now Then

            MsgBox(" انتهت الفترة التجريبية للبرنامج برجاء تحميل الاصدار الاحدث بموقع بورصات دوت كوم")
            Me.Close()
        End If 


اما كود التفعيل يساعدك احد الاخوه
لان عندى طريقه ليست جاده
لو حد خد السريال ده ممكن يدخل بيه الالالف طالما متسجل بقاعده بيانات البرنامج