تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
فكرة مدة عمل البرنامج
#1
خطر ببالي سؤال ويارب أجد الأجابة عندكم.
توجد برامج تعمل لمدة معينة مثل 30 يوم مثلا.
فكيف تحسب تلك البرامج مدة الـ30 يوم.
مع أني لا أظن أنها تحسبها من time و date الجهاز نفسه , لكان سهل جدا تغيير الساعة والتاريخ لشل طريقة حسابها.
أرجو من له علم أن يفيدنا وله جزيل الشكر.
الرد }}}}
تم الشكر بواسطة:
#2
اذا لك حلين ::

الأول ،، تجلب التوقيت من الانترنت و بهذا تحتاج لعملية اتصال للانترنت في كل مره يعمل البرنامج

الثاني :: من الممكن ان تجعل البرنامج يعمل 15 مرة مثلا و ذلك من خلال ملفات الريجستري ،، و ايضا قد تكسر


لذلك قدر الامكان حاول تعقيد أكواد الحماية و لا تجعلها واضحه
قم بتشفير برنامج بعد الانتهاء منه
قم بتعطيل بعض الخصائص ،، يعني قم بازالة كودها نهائيا من النسخه التجريبه ،، مثل طباعة التقارير ،، يعني شغلات تكميليه بحيث تجعل مستخدم البرنامج لا يستفيد الا بالنسخة الأصلية
الرد }}}}
تم الشكر بواسطة:
#3
توجد برامج مثل انتر داون لوود مانجير يعمل لفترة أظنها 15 يوما وبعدها لا يعمل .
والسؤال كيف تحسب تلك المدة؟؟
الرد }}}}
تم الشكر بواسطة:
#4
عبدالله الصافي كتب :توجد برامج مثل انتر داون لوود مانجير يعمل لفترة أظنها 15 يوما وبعدها لا يعمل .
والسؤال كيف تحسب تلك المدة؟؟
انظر الى هذا المثال لعله ينفعك
PHP كود :
Dim startdate As String
Dim differenceofdate
Dim TRACEDATE 
As String
Dim newdate
Dim chk

    
If GetSetting(App.Title"Startup""counter""") = "" Then
       SaveSetting App
.Title"Startup""counter"1
       SaveSetting App
.Title"Startup""Started"Format(Date"mm dd yyyy")
       
SaveSetting App.Title"Startup""Last Used"Format(Date"mm dd yyyy")
       
lblcnt.Caption "1"
       
    
ElseIf GetSetting(App.Title"Startup""counter""") = "31" Then

MsgBox 
"ÔßÑÇð áÓÊÎÏÇãß åÐÇ ÇáÈÑäÇãÌ  " Chr(10) + Chr(1) & "ÇáÑÌÇÁ ÅíÞÇÝ Úãá åÐÇ ÇáÈÑäÇãÌ Çæ ÓíÊã ÝÞÏÇä ßá ÇáãÚáæãÇÊ ÇáÊí ÞãÊ ÈÅÏÎÇáåÇ "vbCritical"ÔßÑÇð áß "

End
       
 
Else
       
TRACEDATE GetSetting(App.Title"Startup""Last Used""")
chk DateDiff("d"CDate(TRACEDATE), Now)
       If 
chk 0 Then 'CHECK IF THE DATE WAS CHANGE which is lesser than the PREVIOUS DATE WHERE THE SYSTEM USED.

 MsgBox "áã íÊã ÇáÚËæÑ Úáì ÊÇÑíΠÇáäÙÇã áÏíß !!  " & Chr(10) + Chr(13) & "  ÇáÑÌÇÁ ÊÛííÑÉ ÇáÃä æÅáÇ áä íßæä ÈÅãßÇäß ÅÓÊÎÏÇã åÐÇ ÇáÈÑäÇãÌ áÇÍÞÇð", vbCritical, "ÊÇÑíΠãÝÞæÏ"

 End
       Else
      startdate = GetSetting(App.Title, "Startup", "Started", "")
       differenceofdate = DateDiff("d", startdate, Now)
         If differenceofdate <> 0 Then
                    lblcnt.Caption = differenceofdate + 1
        SaveSetting App.Title, "Startup", "Last Used", Format(Now, "MM DD YYYY")
               SaveSetting App.Title, "Startup", "counter", differenceofdate + 1
                End If
                If differenceofdate = 0 Then
                lblcnt.Caption = GetSetting(App.Title, "Startup", "Counter", "")
                End If
       End If
  End If
End Sub 
بالتوفيق


الملفات المرفقة
.rar   sss.rar (الحجم : 1.83 ك ب / التحميلات : 32)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] اريد تصميم فكرة كرت العائلة عمور2016 1 111 02-08-16, 04:41 AM
آخر رد: عمور2016
  حماية البرنامج برقم الهاردسك layan2000 5 1,531 21-02-16, 09:46 PM
آخر رد: layan2000
  تشغيل البرنامج دون تسطيب الفيجوال mmali127 2 673 27-12-15, 03:50 AM
آخر رد: awidan76
  شرح احترافي لتحديث البرنامج من الإنترنت السندبااد 2 856 29-01-15, 12:14 PM
آخر رد: abulayth
  [سؤال] بعد عمل الحزمة ﻻ يعمل البرنامج على ويندوز 7 amrelgadaa 2 746 13-11-14, 11:14 AM
آخر رد: amrelgadaa
  تحديد نسخة البرنامج أم قصي 0 454 27-05-14, 04:53 PM
آخر رد: أم قصي
  فكرة برنامج تصميم عبدالله الصافي 9 841 20-08-13, 09:20 PM
آخر رد: asto
  ارجو المساعده في كود الخروج من البرنامج علوش 10 1,172 19-08-13, 05:58 PM
آخر رد: MSDOS
  البرنامج يعمل على جهازى فقط ولا يعمل على اجهزه اخرى Yasso 6 723 06-08-13, 12:21 AM
آخر رد: esmaeelmalkawi
  كبف اشغل البرنامج من cd ابو بدران 0 270 23-07-13, 11:04 AM
آخر رد: ابو بدران

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


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