شوف اخى الفاضل
الطريقة بكل اختصار
بما انك تريد تشغيل برنامج من خلال تواجد الفلاش
اذا عليك شراء فلاشة اى كان نوعها واى كان حجمها
وستقوم بتسليمها للعميل مع البرنامج
حتى الان هنا جميل
اللى عليك فعله الاتى هو وضع الفلاشة فى جهازك
وعمل اى مشروع عادى وظيفته جلب كود الفلاشة
اصبح الان معاك كود الفلاشة فى ملف نص Noepad
الان بعد احتفاظ بهذا الكود لديك
ستاتى على المشروع الرئيسي
وتستخدم نفس الكود لجلب كود الفلاشة
هيكون فى الوجهة الرشيسية عند فتح البرنامج
ثم عمل شطر تحقق مثل التالى
كود :
If Not codeFlash = "الكود اللى كنت محتفظ بيه مسبقاً ى notepad" Then
MsgBox("عواً يجب عليك استخدام الفلاشة المرسلة لكم مع الفلاشة")
Application.Exit()
End If
بحيث كلمة codeFlash ده اقيمة اللى انت جبتها من خلال الكود فى الفورم
ومكان الكتابة للقيمة ستستخدم كود الفلاشة اللى انت جلبتها وقمت باحتفاظ بها ى ملف notepad
واللى هى خاصة بالفلاشة اللى انت قمت بشراءها وستقوم بتسليمها لهم
بكده لو الفلاشة مش موجودة بالجهاز
البرنامج سيعرض رسالة بانه مطلوب استخدام الفلاشة
وبعدها يقوم باغلاق البرنامج
اتمنى ان تكون الفكرة وصلت لك لكيفية الاستخدام
تحياتى لك
وتمنياتى لك التوفيق