تقييم الموضوع :
  • 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 ك ب / التحميلات : 33)
الرد }}}}
تم الشكر بواسطة:


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

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


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