26-05-14, 07:01 PM
(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
المثال مرفق بعد التعديل
تسلم ايدينك
انشاء الله في ميزان حسناتك
ولا تحرمنه من وجودك
وشكرا