تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد طريقة الغاء البرنامج بعد وقت محدد
#11
(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


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



تسلم ايدينك

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


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


وشكرا
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [سؤال] كيف يمكن الغاء السوال عند الكتابة على ملف موجود dell 0 48 19-03-24, 01:23 AM
آخر رد: dell
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 149 12-03-24, 10:37 AM
آخر رد: strongriseman
  محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب new_programer 2 163 04-03-24, 07:15 AM
آخر رد: new_programer
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  طريقة اجراء نسخة احتياطية و استرجاعها ؟ Osama NY 2 462 07-02-24, 08:59 PM
آخر رد: Kamil
  مطلوب كود الطباعة لهذا البرنامج melad2002 2 234 13-01-24, 06:42 PM
آخر رد: melad2002
  مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر صالح عبدالله 1 210 09-01-24, 10:51 PM
آخر رد: صالح عبدالله
  اريد طباعة الباركود المحدد فقط مع الكمية new_programer 5 431 09-01-24, 08:40 PM
آخر رد: new_programer
  ماهي طريقة نقل محتويات checkedlistbox الى داتاقريدفيو صالح عبدالله 3 253 06-01-24, 03:20 PM
آخر رد: Kamil
  [VB.NET] استخلاص جزء محدد من نص وإضافته إلى بداية النص ؟ AmeenRashed 2 213 02-01-24, 10:06 AM
آخر رد: AmeenRashed

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم