السلام عليكم ورحمة الله وبركاته هذه اجابة طريقة زرع ملف في الكمبيوتر
1- نضع هذا الكود في نموذج البداية نفتح خصائص النموذج ونضغط حدث ونختار حدث عند التحميل ونفتح محرر الفيجوال بيسك ونضع هذا الكود
If Dir("C:\WINDOWS\MOVI.txt") = "" Then
MsgBox("البرامج محمي" & vbCrLf & vbCrLf & _
" لتفعيل البرنامج اتصل على الرقم 123456789", _
vbCritical + vbOKOnly, _
"تنبيه")
DoCmd.Quit
End If
ويمكنك التعديل في الرسالة فقط . وبعد ذلك ننشأ ملف بصيغ txt فاضي وتكتب اسمخ MOVI ونفتح my Computer وندخل علي ال c ونبحث عن ملف اسمه windows ونضع فيه ملف التكس علي حسب المسار المحدد في الكود
شرح الكود
عند فتح البرنامج انا بقله روح شيك علي ال c في ملف اسمه ويندوز شوف في ملف من صيغة txt اسمه movi موجود ولا لا اذا كان موجود يفتح البرنامج واذا لم يكن موجود يعطي رساله الموجود في الكود ويمكنك تغيير الرساله