📘 قراءة كتاب حماية البرامج التى من تصميمك أونلاين
كتاب مفيد ورائع للمبتدئين والمتوسطين
ملاحظة : هذا الكتاب هو عبارة عن مجهود
المؤلف وليس نقل وهو مجانى يحق لكل نشره ليستفيد به الاخرون وبالرغم من ان هذا اول مؤلفاتى فأنا ارجو من الله ان يعجب كل من يقرأه وعلى الرغم من ان الفيجوال بيسك انتهى عصرها من سنوات طويلة منذ استبدال شركة الميكروسوفت لها بفيجوال بيسك دوت نت الا اننى قررت ان تكون فيجوال بيسك اول لغه برمجة استخدمها لسهولة تعلمها لاى مبتدئ.
ما يضمه الكتاب :
1- حمايه البرنامج بشاشة تطلب الرقم السرى
2- حمايه البرنامج بشاشة تطلب الرقم السرى واسم مستخدم
3- كود يحدد عدد المرات المتاحة للمستخدم التى يمكن استخدامها للبرنامج
4- كود يمنع المستخدم من فتح البرنامج اكثر من مرة فى وقت واحد
5- كود يجعل البرنامج متاح للاستخدام لمدة شهر
حماية البرامج
قفل التطبيقات برقم سري
قفل التطبيقات برقم سري للاندرويد
طريقة قفل التطبيقات في الاندرويد بدون برامج
افضل برنامج قفل التطبيقات للاندرويد 2018
تحميل برنامج قفل الصور والفيديو
برنامج قفل التطبيقات بكلمة سر
قفل التطبيقات بنمط
قفل التطبيقات بالبصمه
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")
Label1.caption = "1"
ElseIf GetSetting(App.Title, "Startup", "counter", "") = "31"Then
Msgbox"the trial interval was finished. You should buy The full version",32,"message"
End
Else
TRACEDATE = GetSetting(App.Title, "startup" , "Last used" , "")
chk = DateDiff("d", CDate (TRACEDATE), NOW)
If chk < 0 Then
Msgbox"Please Change your Computer Date To the Right Date"
End
Else
startdate = GetSetting(App.Title, "startup", "started", "")
differenceofdate = DateDiff ("d", startdate , Now)
If differenceofdate <> 0 Then
Label1.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
Label1.caption = GetSetting(App.Title, "startup", "counter", "")
End If
End If
End If
سنة النشر : 2015م / 1436هـ .
حجم الكتاب عند التحميل : 2.9MB .
نوع الكتاب : pdf.
عداد القراءة:
اذا اعجبك الكتاب فضلاً اضغط على أعجبني و يمكنك تحميله من هنا:
شكرًا لمساهمتكم
شكراً لمساهمتكم معنا في الإرتقاء بمستوى المكتبة ، يمكنكم االتبليغ عن اخطاء او سوء اختيار للكتب وتصنيفها ومحتواها ، أو كتاب يُمنع نشره ، او محمي بحقوق طبع ونشر ، فضلاً قم بالتبليغ عن الكتاب المُخالف:
قبل تحميل الكتاب ..
يجب ان يتوفر لديكم برنامج تشغيل وقراءة ملفات pdf
يمكن تحميلة من هنا 'http://get.adobe.com/reader/'