[hassan]

(26-05-14, 05:09 PM)alktab كتب :

(26-05-14, 01:16 PM)hassan كتب :

(25-05-14, 08:32 PM)alktab كتب :

إقتباس :مرحبتين تلاته
إلى : alktab
السلام عليكم
اخى الكريم
كيف تقوم باادراج هذه المكتبه بالظبط لانى مبتدأ
http://vb4arb.com/vb/thread-2997.html

تفضل

اخوي للاسف ما يضبط الكود

كود :

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.AddSeconds(30S)
            My.Computer.Registry.SetValue("HKEY_CURRENT_USER\MyAppvBsQ", "TRI", MpTryApi)
        ElseIf regKey = Date.Now Then
            MsgBox("انتهت الفترة التجريبية للبرنامج")
            Me.Close()
        End If

لو تلاحض اني غيرات AddDays الى AddSeconds وحطيت بدال m حطيت s والكود طلع بدون اخطاء لاكن مافي مفعول وتاكدت من المكتبه ولا فاد وش الحل ضروري

خطأ بسيط في المقارنة فقط هنا
E

إقتباس :lseIf regKey = Date.Now Then

بدله الى

إقتباس : ElseIf regKey > Now Then

وهو مقارنة التاريخ المسجل للبرنامج إذا وجده اكبر من تاريخ اليوم سوف ينهي عمل البرنامج

شاهد الشرح هنا
http://www.gulfup.com/?1B8MQh


المثال مرفق بعد التعديل

تسلم ايدينك

انشاء الله في ميزان حسناتك


ولا تحرمنه من وجودك


وشكرا