للأسف عند عمل الrun أظهر رسالة اعتراض قبل بدء التشغيل
يعترض فيها على عدم وجود الclsMutex.cls PATH
فلما ضغطت على OK(أى استمر فى التحميل)
اعترض البرنامج على الجملة
PHP كود :
Dim mut As clsMutex
فلما حذفتها اعترض على الجملة
PHP كود :
Set mut = New clsMutex
ليتك توضح لى بالتفصيل خطوات عملك لهذا البرنامج مثلآ:- [SIZE=2]1-افتح PROJECT جديد
2-اضغط على PROJECT ثم COMPONENT
3-علم فيها على .......
4-
5-
[/SIZE] ولك مليون شكر
اتضح سبب هذا الخطأ عند عمل الrun
وجدت بالفولدر المرفق منك Modules يبدو أنك نسيت وضعه فى البرنامج
فوضعته فاشتغل البرنامج دون أى اعتراض والحمد لله
ولكن للأسف اشتغل كالبرنامج السابق تمامآ
أى تم تشغيله عدد محدد من المرات(4 مرات تقريبآ) وبعدها اعترض"لايمكن تشغيل أكثر من نسخة"
أنا أريد تعديله هذه المرة بحيث يمكن تشغيله دائمآ(عدد غيرمنتهى من المرات) ولكنلايمكن نسخه الى أى مكان آخر
أرجو أيضآ أن توضح لى بالتفصيل خطوات عملك لهذا البرنامج ولك مليون شكر
08-08-13, 12:24 AM (آخر تعديل لهذه المشاركة : 08-08-13, 12:26 AM {2} بواسطة moh_saed35.)
اخي خليك معي حبه حبه
الكود الأخير الذي وضعتة لك وضيفته
منع تشغيل البرنامج اكثر من نسخه وهوه شغال ما فيه اي مشاكل
يعني ما تقدر تفتح نسختين من البرنامج معا
هاذه وضيقته فقط ..........
وانت تقول ( ولكن لا يمكن نسخه الى أى مكان آخر)
هل تقصد منع المستخدم من نسخ البرنامج من مكان الا اخر
ام ماذا
تحياتي
لا تأسفن على غدر الزمان لطالما...رقصت على جثث الأسود كلاب
لا تحسبن برقصها تعلو على أسيادها...تبقى الأسود أسودا والكلاب كلاب
تبقى الأسود مخيفة في أسرها...حتى وإن نبحت عليها كلاب
تموت الأسد في الغابات جوعا... ولحم الضأن تأكله الكــلاب
وعبد قد ينام على حريـــر...وذو نسب مفارشه التــراب
إقتباس :هل تقصد منع المستخدم من نسخ البرنامج من مكان الا اخر
ام ماذا
أعنى منع المستخدم من نسخ البرنامج من الفولدر الموجود به الى أى فولدر اخر
و منع المستخدم من نسخ البرنامج من cd الموجود به الى أى cd اخر
بحيث لا يستطيع استخدامه الا شخص واحد فقط (من أعطيته البرنامج بنفسى)
انا اذكر اني عملتها بملف ini بعد درس من موقع اجنبي وملف مضروب بحيث كلما يفتح المجلد ينهي explorer بس ناسي وين حطيته لكن ان بحثت في جوجل عن
close explorer when open folder قد تجد طريقة
لكن سيضل بامكنهم النسخ عبر برامج النسح مثل نيرو وكولون سيدي وغيرها
اسلام الكبابى كتب :أعنى منع المستخدم من نسخ البرنامج من الفولدر الموجود به الى أى فولدر اخر
و منع المستخدم من نسخ البرنامج من cd الموجود به الى أى cd اخر
بحيث لا يستطيع استخدامه الا شخص واحد فقط (من أعطيته البرنامج بنفسى)
اخي ما تطلب شبه معجزه لان مستحيل تمنع نسخ البرنامج...................
ولاكن بستطاعتك ان تمنع تشغيل البرنامج
الا للذي اعطيته اياه والطريقه هيه ان تحصل على رقم القرص الصلب
وتعمل داله if لتقارن بين رقم القرص وبين الرقم المتخزن في المتغير
فأن تطابقو فيشتغل البرنامج
وإلا فلن يشتغل
هاذه الطريقه اقوى من منع النسخ وكما تفضل الاخ oneyemenweb2
ان سيضل بامكانهم نسخ البرنامج عبر برامج النسخ
لا تأسفن على غدر الزمان لطالما...رقصت على جثث الأسود كلاب
لا تحسبن برقصها تعلو على أسيادها...تبقى الأسود أسودا والكلاب كلاب
تبقى الأسود مخيفة في أسرها...حتى وإن نبحت عليها كلاب
تموت الأسد في الغابات جوعا... ولحم الضأن تأكله الكــلاب
وعبد قد ينام على حريـــر...وذو نسب مفارشه التــراب
09-08-13, 08:32 PM (آخر تعديل لهذه المشاركة : 09-08-13, 08:48 PM {2} بواسطة moh_saed35.)
وهاذا المثال على رقم القرص الصلب
ويعمل على اداتين التكست
وان اردت تغييرهما الى متغيرات إمسح الكود الذي داخل حدث الفروم وضع هاذا
#############################################
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]
ولك مليون شكر
لا تأسفن على غدر الزمان لطالما...رقصت على جثث الأسود كلاب
لا تحسبن برقصها تعلو على أسيادها...تبقى الأسود أسودا والكلاب كلاب
تبقى الأسود مخيفة في أسرها...حتى وإن نبحت عليها كلاب
تموت الأسد في الغابات جوعا... ولحم الضأن تأكله الكــلاب
وعبد قد ينام على حريـــر...وذو نسب مفارشه التــراب
10-08-13, 06:02 PM (آخر تعديل لهذه المشاركة : 10-08-13, 06:18 PM {2} بواسطة sippar.)
ما فهمته من شرحك أنه يجب على أن ان أحصل على رقم الCD الذى سأضع عليه برنامجى لأعطيه لشخص ما حتى يستطيع تشغيله من هذا القرص ولايستطيع أحد تشغيله اذا نسخه على قرص غيره
فان وجدت هذا الرقم مثلآ 5JVY0H98 فأضع هذا الرقم فى Text2 وأكتب الكود التالى فى بداية فورم برنامجى بالاضافة الى وضع الHDSLN المرفق فى مثالك مع فورم البرنامج
PHP كود :
Private Sub Form_Load() Text1 = New HDSLN If Text1 = Text2 Then
Else
MsgBox "انت غير مخول بستخدام هاذا البرنامج الرجاء مراسلة المصنع", , "نإسف" End