جمال فايز قام بنشر ديسمبر 11, 2003 قام بنشر ديسمبر 11, 2003 أخوانى الكرام : السؤال هو : كيف يمكننا تغيير رمز محرك الاسطوانةcd-rom بواسطة كود بالاكسس ؟ وذلك ليمكننى من استخدام تللك الاسطوانة فى جميع الاجهزة لآن البرنامج علية ارتباطات بالاسطوانة فهل يمكن فعل ذلك . وكيف يمكننا حماية الاسطوانة من النسخ مثلاً بواسطة كود معين . " أخوانى الكرام أنا مقدم على طرح اسطوانة معينة واريد من كل شخص يشتريها أن يكون له رقم خاص مختلف عن الاخر ليتم فتح البرنامج والابحار فيه فكيف يتم عمل ذك " والله ولى التوفيق 1
محمد طاهر عرفه قام بنشر ديسمبر 12, 2003 قام بنشر ديسمبر 12, 2003 يمكنك استنتاج القرص مباشرة اكواد للتعامل مع الملفات و المجلدات http://www.officena.net/ib/index.php?showtopic=1318
جمال فايز قام بنشر ديسمبر 12, 2003 الكاتب قام بنشر ديسمبر 12, 2003 (معدل) الاخ الكريم :محمد طاهر اشكرك على سرعة ردك للأستفسار لكنى فى الحقيقة أطلعت على الرابط قبل طرحى الاستفسار الذى ذكرته لكن لم اهتدى الى ضالتى فليس لي رغبة فى كود لمعرفة الاقراص الموجودة بالجهاز لكننى اريد كود يفعل ما طلبته فى الاستفسار وكم أتمنى أن أكون اوضحت فكرتى كما ينبغى . اشكركم على تعاونكم تم تعديل ديسمبر 12, 2003 بواسطه hghghg
egyptian_eg قام بنشر ديسمبر 12, 2003 قام بنشر ديسمبر 12, 2003 (معدل) أخي الكريم أعتقد أن تغيير الرمز لن يكون مناسبا بالنسبة للمستخدمين . و بالنسبة للحماية بكلمات السر المختلفة ، و استعمال قراءة سيريال الهارد و خلافه ، فأذكر أنه سبق تناولها فراجع قسم الحماية داخل قسم خلاصة المشاركات ، فربما يجزي هذا عن ما تريد فتعطي لكل شخص كلمة سر مبنية علي سيريال الهارد مثلا بعد التحميل أيضا راجع هذا الموضوع بخصوص الحماية http://www.arabteam2000.com/ib/index.php?s...=0entry178073 فهو يبدووووو مهم :lol: تم تعديل ديسمبر 12, 2003 بواسطه egyptian_eg
جمال فايز قام بنشر ديسمبر 12, 2003 الكاتب قام بنشر ديسمبر 12, 2003 اخى الكريم egyption eg فى البداية اشكر اهتمامك بالموضوع لكن لم أجد الرد الذى يؤهلنى حتى الأن لحل تلك المشكلة وسأحاول أن اعيد سؤالى بشكل أخر لربما أكون لم أوضحة بالشكل السليم 1- عملت برنامج بالاكسس وخزنته على الاسطوانة وهناك مجلد بالاسطوانة موضوع علية المادة العلمية التى اريدها . 2- من داخل برنامج الاكسس وضعت ارتباطات تشعبية ليتم فتحها من الاسطوانة . المشكلة هنا كالتالى :- بعض الاجهزة ليس فيها محركات غير الc وبالتالى عند تشغيل الاسطوانة سيتم تعريفها بالجهاز تلقائيا على انها المحرك مثلاً d لكن اذا جربت الاسطوانة على جهاز عليه برتشن c ، d ، e ، مثلاً فسيفترض الجهاز بان الاسطوانه ستكون هى g مثلاً وهكذا . لذلك أحاول ان أثبت دائما رمز الاسطوانه فى برنامجى بالاكسس عن طريق الكود الذى أريده طبعاً المستخدم لن يحس بذلك لآنها ستتم بواسطة برنامج الاكسس الذى سيشغله من الاسطوانة بالضغط عليه ( طبعاً أخفيت المجلد الذى يحوى المادة العلمية بالاسطوانه حتى يجد العميل البرنامج فقط هو المرئى أمامه فقط) هذا هو طلبى وشكرا للجميع . لى ملحوظه هل يمكننى أيضا تشغيل برنامج الاكسس من الاسطوانه تلقائى فور أدخالك للاسطوانة بدلاً من تدخل المستخدم لتشغيله ؟. وفى الختام أعتذر أن اطلت عليكم ولكم جزيل الشكر.
عبد الله فتحي قام بنشر ديسمبر 13, 2003 قام بنشر ديسمبر 13, 2003 أخي الفاضل hghghg بالنسبة لما تريد فهو واضح جداً .. ولكن سؤالك هو الذي قلب المفاهيم قليلاً فأنت لا تريد تغيير الرمز وإنما تريد التعرف على رمز محرك الأقراص المضغوطة الـ CD-ROM .. بالنسبة للكود فقد قمت بعمل هذا الكود سابقاً في الفيجول بيسيك .. وأعتقد أنه قابل للتطبيق هنا: Dim XDrives Dim XDrive Dim XTest Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long Private Sub Command1_Click() XDrives = "abcdefghijklmnopqrstuvwxyz" For i = 1 To 26 XTest = Mid(XDrives, i, 1) If GetDriveType(XTest & ":\") = 5 Then XDrive = XTest End If Next ' XDrive يمثل هنا رمز محرك الأقراص المضغوطة Print XDrive End Sub لاحظ أن المتغير XDrive بعد هذا الكود سيحتوي على رمز محرك الأقراص المضغوطة ..
عبد الله فتحي قام بنشر ديسمبر 13, 2003 قام بنشر ديسمبر 13, 2003 قمت بتجربة الكود السابق في الأكسيس وهو شغال مائة بالمائة .. الله يعطيني العافية :lol: :d لاحظ أن رمز محرك الأقراص سيكون موجوداً في المتغير XDrive وبالتالي ستضع هذا المتغير بدلاً من رمز محرك الأقراص: XDrive & ":\ ويمكنك تجربته بنفسك وإخباري بالنتيجة .. ستواجهك مشكلة بسيطة وهي إذا ما كان المستخدم لديه أكثر من محرك أقراص مضغوطة، أو كان لديه محركات أقراص مضغوطة وهمية .. بالنسبة لسؤالك الثاني عن تشغيل البرنامج عند وضع الاسطوانة مباشرة فأعتقد أن الأمر بسيط جداً وكل ما عليك هو عمل AutoRun لها .. تحياتي
جمال فايز قام بنشر ديسمبر 13, 2003 الكاتب قام بنشر ديسمبر 13, 2003 للأسف اخي الكريم عبد الله فتحى لقد جربت الكود لكنه يعطى هذة الرسالة run-time error '438': object doesn't support this property or method وعند تصفح الخطأ يكون مظلل على الجملة print xdrive طبعاً انا عرفت المتغير بأسم xdrive لكن دون جدوى على فكرة بعد ما جهزت النموزج لأرفاقة هنا فى الحقيقة لم استطع فكيف الطريقة . ثانيا لقد ذكرت فى ردك الجميل بأننى استطيع جعلى الاسطوانة تعمل تلقائى بواسطة auto run فكيف يمكن ذلك هل عن طريق برنامج معين يجعل الاسطوانة بهذا الشكل أم ماذا شكراً لأهتمامك بالموضوع والله الموفق
عبد الله فتحي قام بنشر ديسمبر 13, 2003 قام بنشر ديسمبر 13, 2003 أهلاً أخي .. بالنسبة للكود لا يوجد خطأ به .. وإنما الخطأ في الأمر Print فعلى ما يبدو أن هذا الأمر غير موجود في الأكسس .. على أي حال هذي مو مشكلة .. لأن هذا الأمر غير ضروري .. بس إنت مش كنت عايز رمز محرك الأقراص المضغوطة !! المتغير XDrive اعتبره يساوي الحرف .. وكله رح يسير تمام .. بالنسبة لل AutoRun ياريت أحد الإخوة يشرحها بالنيابة لأني مشغول كتيييييييييررر.. >> سأعود لاحقاً ...
عبد الله فتحي قام بنشر ديسمبر 13, 2003 قام بنشر ديسمبر 13, 2003 بالنسبة لل AutoRun: قم بإنشاء ملف جديد باسم AutoRun.inf واكتب فيه ما يلي: [autorun] open=Untitled.exe icon=Untitled.ico غير ال Untitled.exe إلى اسم المشروع .. غير ال Untitled.ico إلى الأيقونة التي تريدها .. هذه الطريقة أنا أحفظها هكذا ... وأتمنى أن لا أكون نسيت شيئاً .. وطبعاً يوجد برامج خاصة لعمل ذلك .. ولكن أنا شايف إن الحكاية ما تستاهل .. تحياتي
عبد الله فتحي قام بنشر ديسمبر 13, 2003 قام بنشر ديسمبر 13, 2003 الآن تأكدت من الطريقة السابقة .. وبإمكانك الاطلاع على التفاصيل أكثر هنــــــــــــــــــــا 1
جمال فايز قام بنشر ديسمبر 22, 2003 الكاتب قام بنشر ديسمبر 22, 2003 الاخ الفاضل عبدالله فتحى لك جزيل الشكر على سرعة تجاوبك واعتزر لعدم ردى طول الفترة الماضية وذلك لسببين هما 1- المنتدى والعطل الذى تم فية والحمد لله لعودة المنتدى مرة أخرى للعمل . 2- لانشغالى فى الامتحانات الخاصة بدورة ال ICDL أدعوا لى بالتوفيق بأذن الله تعالى . فى الحقيقة لسة ما جربتش الكود لكننى حاولت أن أعمل الكود الخاص بالتشغيل التلقائة للاسطوانه لكننى لم أفهم الكيفية ياريت ترفق لى مثال وكيف تم عمل الملف التلقائى . وهل الملف هذا افعلة فى الورد مثلاً واحاول حفظة بالامتداد INF وحتى لما فعلت ذلك لم أجد هذا الامتداد ليتم الحفظ به رجاً المساعدة ولك وافر التحيه
عبد الله فتحي قام بنشر ديسمبر 22, 2003 قام بنشر ديسمبر 22, 2003 بالنسبة للملف قم بعمله من خلال برنامج المفكرة .. والمسألة بسيطة جداً .. وأسهل مثال عليه قمت للتو بفتح السي دي عندي من مجلة PC Magazine .. وجدت ملف على ال root اسمه autorun.inf .. قمت بفتحه من المفكرة وكان مكتوب بداخله: [autorun] open=Disclaimer.exe والملف Disclaimer.exe موجود هو أيضا على ال root .. المسألة بسيطة جداً .. فقط قم بالتجربة .. أو على الأقل قم بفتح أي سي دي وانظر الطريقة المستخدمة .. وأنا تحت أمرك :(
جمال فايز قام بنشر ديسمبر 24, 2003 الكاتب قام بنشر ديسمبر 24, 2003 الاخ الفاضل عبد الله فتحى مشكور كثيراً لكن قبل التجربة لي ملحوظة هل يلزم أن يكون الامتداد للملف EXE لكي أعمله الاوتورن أم ليس شرط لاننى لم احول الاكسس من الامتداد MDBالى EXE وفى الحقيقة لا اريد تحويلة وارجو منك سعة الصدر مشكور حبيبنا...
عبد الله فتحي قام بنشر ديسمبر 24, 2003 قام بنشر ديسمبر 24, 2003 أعتقد أنه ليس من الضروري أن يكون الامتداد exe .. 1
جمال فايز قام بنشر ديسمبر 26, 2003 الكاتب قام بنشر ديسمبر 26, 2003 الاخ الفاضل عبد الله فتحى تحية طيبة وبعد لقد ذكرت فى رسالتك لي هذا الجزء لاحظ أن رمز محرك الأقراص سيكون موجوداً في المتغير XDrive وبالتالي ستضع هذا المتغير بدلاً من رمز محرك الأقراص: XDrive ويمكنك تجربته بنفسك وإخباري بالنتيجة .. ستواجهك مشكلة بسيطة وهي إذا ما كان المستخدم لديه أكثر من محرك أقراص مضغوطة، أو كان لديه محركات أقراص مضغوطة وهمية .. ـــــــــــــــــــــــــــــــــــ لقد جربت الكود بالكامل وتوصلت الى رمز أحد المحركات الخاصة بالاقراص وكان e لأننى عندى قرصان للسى دي رم ولكن فى الحقيقة عندما فعلت حقل XDrive بالاكسس وخذنت فيه رمز محرك الاقراص ، وعندما استبدلت الارتباط التشعيبى مبتدأً بالمتغير بدلاً من محرك اقراص السى دي لم ينفذ الارتباط التشعيبي لفتح الملفات . طبعاً عندما تفضلت بذكر أنك قمت بالتجربة ونجحت معك لربما يكون ذلك لعملك على الفيجول وليس بالاكسس وياريت ترفق لى مثال بالاكسس فية الفكرة التى ذكرتها وملف الفتح التلقائى ولك جزيل الشكر اخى الفاضل .
عبد الله فتحي قام بنشر ديسمبر 26, 2003 قام بنشر ديسمبر 26, 2003 طبعاً عندما تفضلت بذكر أنك قمت بالتجربة ونجحت معك لربما يكون ذلك لعملك على الفيجول وليس بالاكسس أخي الحبيب hghghg بالنسبة للكود السابق فأنا لم أكتبه لك إلا بعد أن جربته على الأكسس وهو شغال مائة المائة .. وبالنسبة للمثال ما عندي مانع .. رح أحاول أعملك مثال ... وإن كنت أفضل أن تقوم بذلك بنفسك .. وأنا متأكد من صحة الكود :) تحياتي
جمال فايز قام بنشر ديسمبر 27, 2003 الكاتب قام بنشر ديسمبر 27, 2003 اخى الكريم عبد الله فتحى :- أذا عدنا للخلف وللردود السابقة التى تفضلت بها ستجد برسالتك المؤرخة فى 13/12/2003م مايلى:- بالنسبة للكود لا يوجد خطأ به .. وإنما الخطأ في الأمر Print فعلى ما يبدو أن هذا الأمر غير موجود في الأكسس .. على أي حال هذي مو مشكلة .. لأن هذا الأمر غير ضروري .. بس إنت مش كنت عايز رمز محرك الأقراص المضغوطة !! المتغير XDrive اعتبره يساوي الحرف .. وكله رح يسير تمام .. ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ ـــــــــــــــــ على العموم أخى الفاضل أنا جربت الكود لكن عندما حذفت رمز المحرك الخاص بالاسطوانة من الارتباطات ووضعت مكانها المتغير XDrive لم يعمل الرابط وعندما قلت لكم مثال اريد فقط النموزج بالكود الموضح به مع استبدال رمز محرك الاسطوانة بـ XDrive وما هو الحل عزيزى اذا كان هناك اكثر من محرك للأسطوانة ؟. ولك وافر تحياتى .
عبد الله فتحي قام بنشر ديسمبر 27, 2003 قام بنشر ديسمبر 27, 2003 (معدل) بالفعل أخي hghg كلامك صحيح ولكن هذا لا يعني أنني لم أجرب ذلك .. والفكرة واحدة .. على أي حال مرفق مثال لتجربته قم بعمل سي دي عليه برنامج الآلة الحاسبة ال calc.exe على ال root للسي دي .. وسيقوم البرنامج بتشغيله .. كما أنه يتفادى مشكلة وجود أكثر من رمز لمحرك الأقراص .. ويوجد أكثر من طريقة أخرى لتفادي هذه المشكلة .. مرفق أيضاً مثال لملف autorun.inf قم بوضعه على ال root للسي دي مع ملف ال calc.exe وستجد أنه يقوم بتشغيل الآلة الحاسبة تلقائياً .. CD.zip تم تعديل ديسمبر 29, 2003 بواسطه عبد الله فتحي 1
جمال فايز قام بنشر ديسمبر 28, 2003 الكاتب قام بنشر ديسمبر 28, 2003 اخى الفاضل عبد الله فتحى بالرغم من ارفاقك الملف الا انه مازالت المشكلة قائمة ولي ملحوظة فى المود الموضوع والذى تفضلت به كالتالى :- On Error Resume Next XDrives = "abcdefghijklmnopqrstuvwxyz" For i = 1 To 26 XTest = Mid(XDrives, i, 1) If GetDriveType(XTest & ":\") = 5 Then XDrive = XDrive & XTest End If Next ' XDrive يمثل هنا رمز محرك الأقراص المضغوطة If Len(XDrive) > 1 Then For i = 1 To Len(XDrive) xx = Mid(XDrive, i, 1) Shell (xx & ":\calc.exe") Next Else Shell (xx & ":\calc.exe") End If ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ للأسف الشديد لم يمكننى ارفاق ملف به المطلوب رداً على ملفك لكننى سأحاول طرحه كالتالى :- أولاً : الملف المذكور والذى يمكنك فتحة هو calc.exe وهو ملف تنفيذي exeلكننى احاول فتح الملف بالامتداد mdb بمعنى بالاكسس كما تعلم ثانيا: دالة ال shell تقوم بفتح الملف التنفيزى مباشرتاً ولذلك فعند وجود خطأ بالكود السابق سينتقل بك الكود الى next ومن ثم سيمكنك من فتح calc.exe وهو غير مفيد أذا انك لا تود فتح الملف الأ عند الرغبة وليس عند وجود خطأ بالكود . لذلك فمن الافضل اخى الكريم التعديل بالكود لفتح ملف بالاكسس والتشيك عليه ومن ثم ارساله لى . معذرة ان كنت اطلت عليك .
عبد الله فتحي قام بنشر ديسمبر 28, 2003 قام بنشر ديسمبر 28, 2003 أخي الفاضل السؤال في البداية كان عن معرفة رمز محرك الأقراص وأعتقد أن الكود الذي وضعته يقوم بذلك .. وبخصوص المشكلة الناتجة عن وجود محركي أقراص مضغوطة فقد ذكرت أيضاُ أن هناك أكثر من طريقة لتفادي هذه المشكلة .. وما عملته أنا في المرفق كان مجرد مثال .. وبإمكانك تعديله كيفما تشاء .. بالنسبة للأسئلة الأخرى فبإمكانك وضعها في موضوع مستقل حتى يتفاعل بقية الإخوة .. ولا تنس أن قواعد المشاركة تقتضي سؤال واحد في الموضوع .. وإليك خالص تحياتي ..
جمال فايز قام بنشر ديسمبر 28, 2003 الكاتب قام بنشر ديسمبر 28, 2003 اخى الكريم عوداً للوراء وللموضوع الرئيسى كان المهم عندى ليس معرفة رمز محرك الاقراص لكن المطلوب كان تغيير رمز محرك الاقراص ليصبح على جهازى مثلاً من الرمز d الى الرمز w مثلاً ( وهذا واضح من عنوان الموضوع ) فاذا استطعت فعل ذلك بكود بالاكسس لاصبحت المشكلة محلولة . هذا كل ما طلبت .
محمد طاهر عرفه قام بنشر ديسمبر 29, 2003 قام بنشر ديسمبر 29, 2003 أخي الكريم معرفة اسم قرص السي دي و التعامل معه علي هذا الاساس افضل من محاولة تغييره فكانك تقول بالكود: الملف رقم 1 علي السي دي أيا كان حرفه لانك ستستنج الحرف بالكود و هذا أفضل كثيرا من: الملف 1 علي ال E و تحاول تغيير رمز السي دي الي E أوعتقد أن تغيير الحرف اذا كان متاحا ، فسيكون أكثر صعوبة فيما قبل الويندوز اكس بي لذا أنصحك بان تعيد التفكير فى الطلب ، فاستنتاج الرمز أفضل بمراحل و اذا فيه مواضيع أخري بخلاف حرف السي دي ، فيرجي طرحها فى مشاركات مستقلة و هذا لا يمنع أن يوافيك احد الاخوة بتغيير الحرف ، و لكن نحن نراه ليس بالحل الافضل ، و عن نفسي اذا اريد هذا ساكتفي باستنتاج الرمز حيث أراه لاافضل و الانسب مع تحياتي
عبد الله فتحي قام بنشر ديسمبر 29, 2003 قام بنشر ديسمبر 29, 2003 عوداً للوراء وللموضوع الرئيسى كان المهم عندى ليس معرفة رمز محرك الاقراص لكن المطلوب كان تغيير رمز محرك الاقراص ليصبح على جهازى مثلاً من الرمز d الى الرمز w مثلاً ( وهذا واضح من عنوان الموضوع )فاذا استطعت فعل ذلك بكود بالاكسس لاصبحت المشكلة محلولة . هذا كل ما طلبت . أخي hghghg .. ما الذي تعنيه بتغيير رمز محرك الأقراص ؟؟ هذا متاح ولكنه غير مفيد إطلاقاً .. ستحتاج إلى كود طويل لا فائدة منه .. بعد هذا الكود ستحتاج إلى إعادة تشغيل الويندوز .. ما الذي تتوقعه من المستخدم عندما تقوم بتغيير رمز محرك الأقراص الخاص به .. في كل الأحوال تغيير رمز محرك الأقراص ليس الحل الصحيح أبداً .. أنت بالفعل سألت عن ذلك وأنا أجبت بالإجابة التي أعتقد أنها الأفضل .. وحتى لو كنت تريد تغيير رمز محرك الأقراص المضغوطة فمن المهم أن تقوم بمعرفته أولاً .. وفي هذه الحالة ستحتاج - قبل كل شيء - إلى كود معرفة رمز محرك الأقراص المضغوطة الموجود بالأعلى .. آسف إن كنت قد أزعجتك بأكوادي عديمة الفائدة .. وأشكرك بأي حال ..
عبد الله فتحي قام بنشر ديسمبر 29, 2003 قام بنشر ديسمبر 29, 2003 حمل المثال السابق مرة أخرى .. ولاحظ التعديلات .. أعتذر عن عدم تواجدي في الفترة القادمة ... وللجميع تحياتي ..
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.