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

للأسف عند عمل الrun أظهر رسالة اعتراض قبل بدء التشغيل
يعترض فيها على عدم وجود الclsMutex.cls PATH
فلما ضغطت على OK(أى استمر فى التحميل)
اعترض البرنامج على الجملة فلما حذفتها اعترض على الجملة
ليتك توضح لى بالتفصيل خطوات عملك لهذا البرنامج
مثلآ:-
[SIZE=2]1-افتح PROJECT جديد
2-اضغط على PROJECT ثم COMPONENT
3-علم فيها على .......
4-
5-
[/SIZE] ولك مليون شكر

اتضح سبب هذا الخطأ عند عمل الrun
وجدت بالفولدر المرفق منك Modules يبدو أنك نسيت وضعه فى البرنامج
فوضعته فاشتغل البرنامج دون أى اعتراض والحمد لله

ولكن للأسف اشتغل كالبرنامج السابق تمامآ
أى تم تشغيله عدد محدد من المرات(4 مرات تقريبآ) وبعدها اعترض"لايمكن تشغيل أكثر من نسخة"
أنا أريد تعديله هذه المرة بحيث يمكن تشغيله دائمآ(عدد غيرمنتهى من المرات) ولكنلايمكن نسخه الى أى مكان آخر

أرجو أيضآ أن توضح لى بالتفصيل خطوات عملك لهذا البرنامج
ولك مليون شكر

اخي خليك معي حبه حبه

الكود الأخير الذي وضعتة لك وضيفته

منع تشغيل البرنامج اكثر من نسخه وهوه شغال ما فيه اي مشاكل

يعني ما تقدر تفتح نسختين من البرنامج معا

هاذه وضيقته فقط ..........


وانت تقول ( ولكن لا يمكن نسخه الى أى مكان آخر)


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

ام ماذا

تحياتي

إقتباس :هل تقصد منع المستخدم من نسخ البرنامج من مكان الا اخر

ام ماذا

أعنى منع المستخدم من نسخ البرنامج من الفولدر الموجود به الى أى فولدر اخر
و منع المستخدم من نسخ البرنامج من cd الموجود به الى أى cd اخر
بحيث لا يستطيع استخدامه الا شخص واحد فقط (من أعطيته البرنامج بنفسى)

انا اذكر اني عملتها بملف ini بعد درس من موقع اجنبي وملف مضروب بحيث كلما يفتح المجلد ينهي explorer بس ناسي وين حطيته لكن ان بحثت في جوجل عن
close explorer when open folder قد تجد طريقة
لكن سيضل بامكنهم النسخ عبر برامج النسح مثل نيرو وكولون سيدي وغيرها

اسلام الكبابى كتب :أعنى منع المستخدم من نسخ البرنامج من الفولدر الموجود به الى أى فولدر اخر
و منع المستخدم من نسخ البرنامج من cd الموجود به الى أى cd اخر
بحيث لا يستطيع استخدامه الا شخص واحد فقط (من أعطيته البرنامج بنفسى)

اخي ما تطلب شبه معجزه لان مستحيل تمنع نسخ البرنامج...................


ولاكن بستطاعتك ان تمنع تشغيل البرنامج

الا للذي اعطيته اياه والطريقه هيه ان تحصل على رقم القرص الصلب

وتعمل داله if لتقارن بين رقم القرص وبين الرقم المتخزن في المتغير

فأن تطابقو فيشتغل البرنامج

وإلا فلن يشتغل

هاذه الطريقه اقوى من منع النسخ وكما تفضل الاخ oneyemenweb2

ان سيضل بامكانهم نسخ البرنامج عبر برامج النسخ

وهاذا المثال على رقم القرص الصلب

ويعمل على اداتين التكست

وان اردت تغييرهما الى متغيرات إمسح الكود الذي داخل حدث الفروم وضع هاذا

#############################################




Private Sub Form_Load()
Dim x As String
Dim xx As String

x = "5JVY0H98"
xx = New HDSLN
If xx = x Then

Else

MsgBox "انت غير مخول بستخدام هاذا البرنامج الرجاء مراسلة المصنع", , "نإسف"
End

End If
End Sub







تفضل

جزاك الله خيرآ
ولك ألف شكر

إقتباس :ولاكن بستطاعتك ان تمنع تشغيل البرنامج

الا للذي اعطيته اياه والطريقه هيه ان تحصل على رقم القرص الصلب

ولكن أرجو أن توضح لى كيف أحصل على رقم القرص الصلب[size=3] أو رقم الفلاشة
لأنى بحثت كثيرآ فى كل ماهو مكتوب على أكثر من cd فلم أجد الا نفس الكلام فيهم جميعآ
[/size]
ولك مليون شكر

اخي المرفق الذي في الاعلى لاضهار رقم القرص الصلب

ما فهمته من شرحك أنه يجب على أن ان أحصل على رقم الCD الذى سأضع عليه برنامجى لأعطيه لشخص ما
حتى يستطيع تشغيله من هذا القرص ولايستطيع أحد تشغيله اذا نسخه على قرص غيره
فان وجدت هذا الرقم مثلآ 5JVY0H98 فأضع هذا الرقم فى Text2 وأكتب الكود التالى فى بداية فورم برنامجى بالاضافة الى وضع الHDSLN المرفق فى مثالك مع فورم البرنامج