كتاب مفيد ورائع للمبتدئين والمتوسطين 

ملاحظة : هذا الكتاب هو عبارة عن مجهود 
المؤلف وليس نقل وهو مجانى يحق لكل نشره ليستفيد به الاخرون وبالرغم من ان هذا اول مؤلفاتى فأنا ارجو من الله ان يعجب كل من يقرأه وعلى الرغم من ان الفيجوال بيسك انتهى عصرها من سنوات طويلة منذ استبدال شركة الميكروسوفت لها بفيجوال بيسك دوت نت الا اننى قررت ان تكون فيجوال بيسك اول لغه برمجة استخدمها لسهولة تعلمها لاى مبتدئ.

ما يضمه الكتاب :

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