عاجل / كيفية عمل حماية عن طريق السريال نمبر الخاصه

تفضل أخي الكريم

هذا برنامج يعطي معلومات عن الهارديسك من بينها السيريال نمبر

أرجو أن يفي بالغرض

hdd.zip

مشكور اخى الكريم

ولكن نريد الفكره لعمل ريجستر للبرنامج

اخي sekora

قم بتسجيل رقم السيريال الخاص بالهارديسك بالبرنامج وعند تشغيل البرنامج

قم بقراءة السيريال الخاص بالهارديسك وقو بمقارنته بالمخزن

إذا كان نفسه قم بتحميل البرنامج

أما غير ذلطك قم بإنهاءه

لا زلنا ننتظر رد الاخوه

اخوكم MRAHMED2100@YAHOO.COM

هذا كود لإنهاء صلاحيات البرنامج بعد 30 يوماً .

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

اليك ما طلبت هنا في الرابط :

http://uni.hiarab.net/showthread.php?t=5301