التحدي الكبير

#12619 يوليو 2005 في 14:56

السلام عليكم و رحمة الله و بركاته

اعتمادا على الـ Divsion By Zero Error نستطيع كتابة شيء مثل:

Private Sub Command1_Click()
    Dim I As Integer, myPass() As Byte, yourPass() As Byte, X
    On Error GoTo Bye
    myPass = StrConv("somepassword", vbFromUnicode)
    yourPass = StrConv(Text1.Text, vbFromUnicode)
    X = 1 \ Not CBool(UBound(myPass) - UBound(yourPass))
    For I = LBound(myPass) To UBound(myPass)
        X = 1 \ Not CBool(myPass(I) - yourPass(I))
    Next
    MsgBox "Correct Password"
    Exit Sub
Bye:
    MsgBox "Worng Password"
End Sub

السلام عليكم و رحمة الله و بركاته

تم تعديل هذه المشاركة بواسطة رغيد الطيب في 19 يوليو 2005 في 14:59

مواضيع برمجية تقنية جديدة

----------------------------------------------------------------------------------------------------------------------------------------------

• إستغلال خدمة الـ RSS في برامجنا ومواقعنا ! (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• برنامج للبحث في الملفات ومحتواياتها (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• فئة للتراسل بين برنامجين في جهاز واحد ! (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

مواضيع برمجية تقنية قديمة

----------------------------------------------------------------------------------------------------------------------------------------------

• إستغلال رسائل البالونات Balloons في الوينذوز أكس بي(VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• مقالة : لماذا يجب ان نعتني بشفرات برامجنا !؟- (VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• لمطوري البرامج و مواقع الويب - برنامج تركيب ألوان - (VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• برنامج : بسيط للتحكم بالنظام, عن طريق الريجستري - (VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• برنامج : لتقييد و منع تشغيل البرامج الاخرى - (VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• النوافذ المنبثقة و طريقة لإستغلالها في برامجنا -(VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• تقنية الإستدعاء الذاتي - (VB.NET , VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• مصفوفات الأدوات Control Arrays افكار وتلميحات ! - (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• أفكار و تلميحات[ المعنى الحقيقي للـ True و False ] - أمثلة (VB.NET VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• دوال الـ APIs و مايقابلها في الدوت نت ! - (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

#12719 يوليو 2005 في 16:40

ممتاز حلين جيدين

بالنسبة للحل الذي كان عندي فهو نفس حل الأخ بلال حمدي

فلننتقل الى سؤال آخر و بما أنك يا بلال أول من وضع الحل فاليك شرف تقديم سؤال هذا بعد اذن المشاركين طبعا :)

موقع المبرمجون العرب

أول موقع عربي لمسابقات الخوارزميات

مواضيعي في المنتدى

#12819 يوليو 2005 في 18:27

أوكي

كل منا يعرف دالة ShellExecute

والسؤال

نريد الإستغناء عنها وتصميم نفس الدالة تقريبا بالإعتماد على الدالة العادية Shell

سؤال بسيط :(

أنتظر الردووووووود

المحلة الكبري - كلية الطب جامعة الأزهر بدمياط

من مواضيعي

برنامج تحويل mp3,wav,wma إلى exe والكود موجود

أداة تصميم الفورم على شكل صورة مع الكود

واحدة من أحدث الشفرات بمناسبة إنتهاء الإمتحانات

أفضل الإختصارات لكود برنامج خفي السواقات(الدرايفات

مؤثر عرض على مجموعة من الجمل تشبة المنتديات

إليكم أداة شاشة العرض مع الكود

برنامج تحويل exe,dll إلى Ico مع الكود

من المواضيع التي شاركت فيها

كيف يتم تصدير محتويات الفورم على شكل صورة؟

برنامج رسم بسيط

كيفية إعادة تسمية المجلدات Folders

Colored List Box Control with Horizontal Scroll

وهناك الجديد إن شاء الله

Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Sub

#12919 يوليو 2005 في 18:54

طيب حقول سؤال هو ممكن يبان علي انه مستوي متوسط ولكن هو حله في الفكره بس اما الاجابة للمستوي المبيتدي كمان

ازاي الغي لوحة التحكم الخاصة بالجهاز يعني

لما افتح لوحة التحكم في الجهاز الاقيها فاااااضيه

#13019 يوليو 2005 في 22:06

أخي Crazy-Man

أنا زعلان منك جدا..

ولهذا قلت لك ما هي الأوامر الشرطية التي لا تريد لنا استخدامها ..

أذكر حينما كنت أدرس لغة البيسيك القديمة ..

كنت أدرس (أولا) في الأوامر الشرطية والتفرع جملة On ..GOTO

=====

بالنسبة للأسئلة الجديدة... فسأستعير جملة أخي بلال

please Wait...

Islam Religion

#13119 يوليو 2005 في 23:12

بالنسبة لسؤال الاخ بلال

ممكن نستخدم الامر Shell لفتح البرنامج الذى يشغل الملف الذى نريد فتحه ثم نمرر اسم الملف للبرنامج بهذه الطريقة

Shell "NotePad C:\AutoExec.Bat"

طبعاً ده المبدأ لكن ممكن التطوير بعمل دالة تعود بامتداد الملف وعن طريق الامتداد نحدد البرنامج

اتمنى ان يكون هذا هو الحل الصحيح :rolleyes:

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

#13220 يوليو 2005 في 01:20

اقتباس
لكن ممكن التطوير بعمل دالة تعود بامتداد الملف وعن طريق الامتداد نحدد البرنامج

هذا هو المطلووووووووووب يامحمد

أنتظر ذلك

تم تعديل هذه المشاركة بواسطة بلال حمدي في 20 يوليو 2005 في 01:23

المحلة الكبري - كلية الطب جامعة الأزهر بدمياط

من مواضيعي

برنامج تحويل mp3,wav,wma إلى exe والكود موجود

أداة تصميم الفورم على شكل صورة مع الكود

واحدة من أحدث الشفرات بمناسبة إنتهاء الإمتحانات

أفضل الإختصارات لكود برنامج خفي السواقات(الدرايفات

مؤثر عرض على مجموعة من الجمل تشبة المنتديات

إليكم أداة شاشة العرض مع الكود

برنامج تحويل exe,dll إلى Ico مع الكود

من المواضيع التي شاركت فيها

كيف يتم تصدير محتويات الفورم على شكل صورة؟

برنامج رسم بسيط

كيفية إعادة تسمية المجلدات Folders

Colored List Box Control with Horizontal Scroll

وهناك الجديد إن شاء الله

Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Sub

#13320 يوليو 2005 في 01:51

اقتباس
أخي Crazy-Man
أنا زعلان منك جدا..

و الله أنا أسف جدا لكن ملحوقة ان شاء الله :)

موقع المبرمجون العرب

أول موقع عربي لمسابقات الخوارزميات

مواضيعي في المنتدى

#13420 يوليو 2005 في 03:06

أخي Crazy-Man ..

يعني شايفني زعلان بجد .. أنا بس بأهزر معاك..

ومنتظر المزيد من أسئلتك المشوقة...

وبالنسبة لسؤال أخي بلال .. والذي أطلب منه بعد ذلك أن يرحمنا ويضع أسئلة لا تتطلب كتابة أسطر كثيرة..

فلا تتصور المعاناة للتعامل مع معاملات المحرر الرئيسي ل mailto

ولكن المهم.. أنني أتمني أن تجد في المرفقات ما يشفي غليلك..

فقد قمت بعمل دالة تشبه - من بعيد طبعا - عمل الدالة ShellExecute..

الدالة التي قمت بكتابتها تحمل نفس الأسم ShellExecute ولها ثلاث معاملات

Public Function ShellExecute(FilePath As String, DirPath As String, Mode As VbAppWinStyle) As Boolean

أول معامل وهو مسار ((أي ملف)) لتقوم الدالة بتشغيله, ولاحظ أنه إذا لم يكن لأمتداد الملف إرتباط ببرنامج فلن تعمل الدالة وهذا هو الطبيعي , وإذا لم تريد أن تشغل ملف وأردت أن تشغل مجلد فضع قيمة المعامل ب vbNullString , وإذا أردت أن ترسل بريد باستخدام المحرر الرئيسي ل mailto: قم بكتابته هكذا.

mailto:thensync@hotmail.com

ثاني معامل وهو مسار المجلد الذي تريد تشغيله, وإذا لم تريد تشغيل مجلد فضع قيمته ب VbNullString .

ثالث معامل وهو Window Style وبه ليسته بالاستايلات التي تريدها للنافذة التي ستقوم بتشغيلها.. مثل vbHide , vbmax,vbmin,focus وهكذا..

وإذا لم تريد أن تضع للنافذة ستايل ..فقم بوضع False في هذا المعامل وسيكون ال Default للاستايل Normal Focus .

تلك الدالة فقط توضح الفكرة ... وقد حاولت تفادي أي أخطاء يمكن حدوثها .. لكن أكيد فيه أخطاء أخري لم أخذ بالي منها..

================================================

وبالنسبة لسؤال الأخ ae_amr

فيمكن أن نحذف Delete او نعيد تسمية Rename ملفات لوحة التحكم CPL والتي تكون موجودة في مجلد النظام %System%, علي أنظمة 9x أو System32 علي XP .

فمثلا برنامج System والموجود في لوحة التحكم .. الملف المتحكم به هو SYSDM.CPL

إذا حذفت هذا الملف فسيتم حذف البرنامج من لوحة التحكم.

وإذا أردنا منع لوحة التحكم بالكامل وإخفائها .. فيمكننا إضافة تصريح NoControlPanel وقيمته بواحد سواء Hex أو Dec ونوعها DWord تحت المفتاح الفرعي Explorer

في المفتاح

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies

=================================================

الآن أعتقد أنه حان دوري في إلقاء سؤال..

سؤالي في الواقع عملي جدا..وللمبرمجين الجامدين..

مثلا حينما نستخدم أي برنامج AntiVirus ,فأثناء تنقلنا بين الفولدرات يقوم برنامج الAnti virus بتسجيل مسار الفولدر وعمل فحص علي الملفات الموجودة داخله..

==============

سؤالي هو : كيف يمكننا تسجيل مسار الفولدرات التي يقوم المستخدم بالدخول إليها.تماما مثل أي برنامج AntiVirus ؟؟؟؟؟؟؟؟؟؟

ShellExecute.zip

تم تعديل هذه المشاركة بواسطة Pharaonic_Guy في 20 يوليو 2005 في 03:19

Islam Religion

#13520 يوليو 2005 في 13:09

السلام عليكم ورحمة الله وبركاته

فقط آسف أخي بلال كنت أود أن أرى حل بدون شرط لان on error ممكن نصنفها مثل أدوات الشرط

بالنسبة لسؤالك فأظننا يمكننا انشاء دالة تقرأ من الريجيستري البرنامج الخاص بتشغيل الملف وذلك بسيط

اذا علمنا ان كل الامتدادات موجودة تحت HKCR ومن ثم نقرأ اسم البرنامج من المجلد OpenWithList وبذلك نصل الى المراد

بالتوفيق للجميع

مكتبة شبكة الدعاة إلى العلم النافع الإسلامية

#13620 يوليو 2005 في 16:48

أخي الفرعوني على حسب ما فهمت من سؤالك فأنت تريد منا عمل برنامج يسجل مسار كل فولدر يدخله المستعمل

اذا كان هذا هو طلبك فاليك هذا الكود ... و اذا كان في أي خطأ فانا موجود

Explorer.rar

موقع المبرمجون العرب

أول موقع عربي لمسابقات الخوارزميات

مواضيعي في المنتدى

#13720 يوليو 2005 في 20:12

فعلا أخي Crazy-Man .. هذا هو المطلوب..

ولقد جئت بالمفيد وبدون لف ودوران.. فقمت بعمل ِOLE Automation مع مكتبة المتصفح SHDocVw ..

واستخلاص النوافذ التي يقوم المتصفح بفتحها.. وهذا هو أفضل حل ..

وما دام جاوبت السؤال.. يبقي ده دورك في إلقاء سؤال..

Islam Religion

#13820 يوليو 2005 في 21:13

بسم الله الرحمن الرحيم

السلام عليكم و رحمة الله وبركاته

حتى يجهز لنا الاخ العزيز Crazy السؤال التالي يمكن التسلية بأمر بسيط للغاية وهو عمل زر يقوم بإخراج و ادخال السيدي الروم فنحن نعرف ان عملية ادخال و اخراج السيدي روم هي عملية سهلة للغاية .. و لكن دعونا نعملها في زر واحد يعني اذا ضغط عليه ينفتح السيدي و اذا ضغطت عليه اخرى ينغلق!.

حبذا لو لم تكن عملية الادخال و الاخراج عشوائية اي انه يقوم الزر بمعرفة حالة السيدي اولا ثم يستخدم الامر المناسب ( فتح او اغلاق ) على ان يكون اقصر و اسهل كود ممكن من اجل السرعة.

السلام عليكم و رحمة الله وبركاته

مواضيع برمجية تقنية جديدة

----------------------------------------------------------------------------------------------------------------------------------------------

• إستغلال خدمة الـ RSS في برامجنا ومواقعنا ! (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• برنامج للبحث في الملفات ومحتواياتها (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• فئة للتراسل بين برنامجين في جهاز واحد ! (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

مواضيع برمجية تقنية قديمة

----------------------------------------------------------------------------------------------------------------------------------------------

• إستغلال رسائل البالونات Balloons في الوينذوز أكس بي(VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• مقالة : لماذا يجب ان نعتني بشفرات برامجنا !؟- (VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• لمطوري البرامج و مواقع الويب - برنامج تركيب ألوان - (VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• برنامج : بسيط للتحكم بالنظام, عن طريق الريجستري - (VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• برنامج : لتقييد و منع تشغيل البرامج الاخرى - (VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• النوافذ المنبثقة و طريقة لإستغلالها في برامجنا -(VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• تقنية الإستدعاء الذاتي - (VB.NET , VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• مصفوفات الأدوات Control Arrays افكار وتلميحات ! - (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• أفكار و تلميحات[ المعنى الحقيقي للـ True و False ] - أمثلة (VB.NET VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• دوال الـ APIs و مايقابلها في الدوت نت ! - (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

#13921 يوليو 2005 في 02:23

Option Explicit

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub command1_Click()

mciSendString "set cdaudio door open", 0, 0, 0

End Sub

Private Sub command2_Click()

mciSendString "set cdaudio door closed", 0, 0, 0

End Sub

في هذا الكود بعرف الدالةmciSendStringA

ولها اربع معاملات

الاول وهو الامر الموحه للسي دي روم في صورة نصيه

اما امعاملات من الثاني وحتي الرابع يمكن تجاهلهم بان نضع قيم فارغه في المعاملات النصية او حتي نضع اصفار

المشكله في الكود الحالي

1- لا يتمكن الا من التعامل مع اول سي دي روم يعني لو عندك 2 سي دي روم سيتعامل مع الاوله فقط

2- مش عارف بصراحه ازاي اقرا الوضع الحالي للاسطوانه علشان تفتح اذا كانت مغلقه او تغلق اذا كانت مفتوحه

#14021 يوليو 2005 في 04:07

بسم الله الرحمن الرحيم

السلام عليكم و رحمة الله وبركاته

اخي العزيز بالفعل هذا ما قصدته وهو كيفية جعله ذكي بحيث يعمل تبديل للوضع الحالي ... حيث انك اذا جربت النقر بالزر الايمن على رمز السيدي في جهاز الكمبيوتر ثم من القائمة ستجد امر ينجح فقط في إخراج السيدي

اما في جهازي فقد اضفت امر بسيط يقوم بإخراج و ادخال السيدي .. اذا لم اجد اجابة على السؤال اضعه هنا بإذن الله تعالى على الرغم من ااني اكيد ان الاخوة سيضعون له الحل بإذن له فهو لا يتجاوز عدد اصابع اليد في سطوره البرمجية.

السلام عليكم و رحمة الله وبركاته

مواضيع برمجية تقنية جديدة

----------------------------------------------------------------------------------------------------------------------------------------------

• إستغلال خدمة الـ RSS في برامجنا ومواقعنا ! (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• برنامج للبحث في الملفات ومحتواياتها (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• فئة للتراسل بين برنامجين في جهاز واحد ! (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

مواضيع برمجية تقنية قديمة

----------------------------------------------------------------------------------------------------------------------------------------------

• إستغلال رسائل البالونات Balloons في الوينذوز أكس بي(VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• مقالة : لماذا يجب ان نعتني بشفرات برامجنا !؟- (VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• لمطوري البرامج و مواقع الويب - برنامج تركيب ألوان - (VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• برنامج : بسيط للتحكم بالنظام, عن طريق الريجستري - (VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• برنامج : لتقييد و منع تشغيل البرامج الاخرى - (VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• النوافذ المنبثقة و طريقة لإستغلالها في برامجنا -(VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• تقنية الإستدعاء الذاتي - (VB.NET , VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• مصفوفات الأدوات Control Arrays افكار وتلميحات ! - (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• أفكار و تلميحات[ المعنى الحقيقي للـ True و False ] - أمثلة (VB.NET VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• دوال الـ APIs و مايقابلها في الدوت نت ! - (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

#14121 يوليو 2005 في 05:25

اقتباس
اخي العزيز بالفعل هذا ما قصدته وهو كيفية جعله ذكي بحيث يعمل تبديل للوضع الحالي

بسيطة جرب هذه

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub command1_Click()
If Command1.Caption = "Insert" Then
mciSendString "set cdaudio door closed", 0, 0, 0
Command1.Caption = "Eject"
Else
mciSendString "set cdaudio door open", 0, 0, 0
Command1.Caption = "Insert"
End If
End Sub

المحلة الكبري - كلية الطب جامعة الأزهر بدمياط

من مواضيعي

برنامج تحويل mp3,wav,wma إلى exe والكود موجود

أداة تصميم الفورم على شكل صورة مع الكود

واحدة من أحدث الشفرات بمناسبة إنتهاء الإمتحانات

أفضل الإختصارات لكود برنامج خفي السواقات(الدرايفات

مؤثر عرض على مجموعة من الجمل تشبة المنتديات

إليكم أداة شاشة العرض مع الكود

برنامج تحويل exe,dll إلى Ico مع الكود

من المواضيع التي شاركت فيها

كيف يتم تصدير محتويات الفورم على شكل صورة؟

برنامج رسم بسيط

كيفية إعادة تسمية المجلدات Folders

Colored List Box Control with Horizontal Scroll

وهناك الجديد إن شاء الله

Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Sub

#14221 يوليو 2005 في 05:35

وإلى أن يضع crazy-man سؤاله المنتظر إليكم هذا السؤال

طبعا كلنا يعرف كيف يخفي الملفات من Folder Options

كيف أجعل هذه الخاصية غير مسموح بها أو بمعنى أخر كيف أخفي هذه القائمة

أنتظر الرد

سلااااااااام

تم تعديل هذه المشاركة بواسطة بلال حمدي في 21 يوليو 2005 في 05:36

المحلة الكبري - كلية الطب جامعة الأزهر بدمياط

من مواضيعي

برنامج تحويل mp3,wav,wma إلى exe والكود موجود

أداة تصميم الفورم على شكل صورة مع الكود

واحدة من أحدث الشفرات بمناسبة إنتهاء الإمتحانات

أفضل الإختصارات لكود برنامج خفي السواقات(الدرايفات

مؤثر عرض على مجموعة من الجمل تشبة المنتديات

إليكم أداة شاشة العرض مع الكود

برنامج تحويل exe,dll إلى Ico مع الكود

من المواضيع التي شاركت فيها

كيف يتم تصدير محتويات الفورم على شكل صورة؟

برنامج رسم بسيط

كيفية إعادة تسمية المجلدات Folders

Colored List Box Control with Horizontal Scroll

وهناك الجديد إن شاء الله

Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Sub

#14321 يوليو 2005 في 12:52

بسم الله الرحمن الرحيم

السلام عليكم و رحمة الله وبركاته

شكرا بلال ... غير اني لم أكن اقصد ان يكون البرنامج ذكيا من الداخل فقط ! حيث ان ما كتبته انت اخي يفترض ان عملية ادخال و اخراج السيدي لا تتم إلا من داخل برنامجنا ... فما هو الحال اذا قام المستخدم بالضغط على السيدي بيده فانه سوف يخرج بينما سيظل برنامجنا يفترض ان السيدي في الداخل و اي انه لن يتم التوافق بين البرنامج و الوضع الخارجي.

و ما قصدته هي كيفية معرفتك ( بالكود ) بأن السيدي روم مفتوح او مغلق و من ثم استخدام الامر المناسب.

بالنسبة لسؤالك اخي الحبيب فلم افهم هل ما تقصده بكلمة ( الخاصية ) و هي اخفاء خيارات المجلد كلياً.

اذا كان هذا ما قصدته فيكفي ان تكتب سطرا برمجيا يغيير لك القيمة التالية في الريجستري لتصبح 1 بدلا من صفر :

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions

السلام عليكم و رحمة الله وبركاته

مواضيع برمجية تقنية جديدة

----------------------------------------------------------------------------------------------------------------------------------------------

• إستغلال خدمة الـ RSS في برامجنا ومواقعنا ! (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• برنامج للبحث في الملفات ومحتواياتها (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• فئة للتراسل بين برنامجين في جهاز واحد ! (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

مواضيع برمجية تقنية قديمة

----------------------------------------------------------------------------------------------------------------------------------------------

• إستغلال رسائل البالونات Balloons في الوينذوز أكس بي(VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• مقالة : لماذا يجب ان نعتني بشفرات برامجنا !؟- (VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• لمطوري البرامج و مواقع الويب - برنامج تركيب ألوان - (VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• برنامج : بسيط للتحكم بالنظام, عن طريق الريجستري - (VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• برنامج : لتقييد و منع تشغيل البرامج الاخرى - (VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• النوافذ المنبثقة و طريقة لإستغلالها في برامجنا -(VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• تقنية الإستدعاء الذاتي - (VB.NET , VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• مصفوفات الأدوات Control Arrays افكار وتلميحات ! - (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• أفكار و تلميحات[ المعنى الحقيقي للـ True و False ] - أمثلة (VB.NET VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• دوال الـ APIs و مايقابلها في الدوت نت ! - (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

#14421 يوليو 2005 في 13:26

أهلا أخي الكريم رغيد

فكرة الحل أظن تكمن في حساب الفرق بين وقت الأمر وتنفيذه فاذا كان الفرق يختلف عن الصفر نعكس الأمر

Dim t1 As Variant
Dim t2 As Variant
t1 = Time
 mciSendString "set cdaudio door closed", 0, 0, 0
t2 = Time
If t2 - t1 = 0 Then mciSendString "set cdaudio door open", 0, 0, 0

مكتبة شبكة الدعاة إلى العلم النافع الإسلامية

#14521 يوليو 2005 في 23:18

السلام عليكم..

بالنسبة بسؤال أخي رغيد الطيب ..

فيمكننا عمل ذلك بالأعتماد علي القيمة المعادة Return Value من الدالة mciSendString

أعتقد وعلي ما أتذكر أنها إذا كانت بصفر فهذا يعني أن الباب مفتوح وبالتالي نقوم بغلقه..

أما إذا لم تساوي صفر فهذا يعني أن الباب مغلق .. وبالتالي نقوم بفتحه..

========================================

وبالنسبة لسؤال أخ بلال حمدي ..

فيمكننا إلغاء اختياري hide,show

من مفتاحي

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explore

r\Advanced\Folder\Hidden\NOHIDDEN

و

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL

وذلك بتغيير القيمة Type من Radio إلي أي اسم أخر وليكن ArabTeam

ونفس الموضوع للقيمة Hide Extension , يمكننا إلغاها من المفتاح:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\HideFileExt

وذلك بتحويل القيمة type من CheckBox إلي أي اسم أخر..

====================================

وما زلنا في انتظار أخي Crazy-Man .. وأرجو أن يكون بخير..

تم تعديل هذه المشاركة بواسطة Pharaonic_Guy في 21 يوليو 2005 في 23:32

Islam Religion

#14622 يوليو 2005 في 02:48

بسم الله الرحمن الرحيم

السلام عليكم و رحمة الله وبركاته

اخي العزيز جهبذ (DreamNet) افتقدك و الله كثيرا اخي منذ ايام منتدى الفيجوال للعرب كما افتقد جميع اخوتي هناك و الله المستعان.

إجابتك تعتبر صحيحة و ستفي بالغرض بإذن الله تعالى و قد كنت استخدمها كأسلوب وقائي عندما اكتشفت ان هناك بعض انواع سواقات السيدي روم لا تعيد قيم حقيقية عن حالتها.

حيث ان الامر يتم بطلب حالة السواقة عن طريق الدالة mciSendString بالشكل التالي :

mciSendString "status cdaudio mode", strVar, 100, 0

وهو سيعيد حالة السيدي روم open, stoped .... الخ ، و ذلك اعتمادا على لغة الكمبيوتر لديك.

و منها يمكن ان نستخدم القيمة الراجعة في تحديد ما اذا كانت السواقة مفتوحة فنقوم بإغلاقها او العكس.

غير ان هناك بعض السواقات تعيد قيمة خاطئة ( open ) دائما حتى و إن كانت السواقة مغلقة و هو ما تفاجئت به عندما كنت استخدم سواقة قديمة نوعا ما ... و هناك لجئت إلى حساب الوقت المستغرق في عملية الاغلاق او الفتح فلو ان عملية الاغلاق او الفتح تمت فإن ذلك لابد و أن يأخد وقتا اما اذا فشلت العملية في حالت مثل ارسال امر اغلاق و السواقة مغلقة اصلا فغن ذلك سوف يستغرق وقت ضئيل للغاية لا يقترب من الثانية الواحدة و يمكن اعتباره صفرا لهذا نقوم بعكس الامر مباشرة.

الشفرة السليمة للإجابة في حالة كون سواقة السيدي روم لديك تعمل بشكل جيد هي :

Private Sub Command1_Click()
    Dim Mode As String * 4
    
    mciSendString "status cdaudio mode", Mode, 5, 0
    
    If Mode = "open" Then
        mciSendString "SET CDAudio DOOR CLOSED", vbNullString, 0, 0
    Else
        mciSendString "SET CDAudio DOOR OPEN", vbNullString, 0, 0
    End If
End Sub

ولتفادي اي اخطاء او عيوب في القيمة المعادة من السواقة ( واذا كانت سواقتة الاقراص لديك رديئة كحالتي ) فيمكن الاعتماد على الشفرة التي استخدمها انا و تعمل لدي بشكل سليم و الحمد لله و هي نفس اجابة الاخ DreamNet :

Private Sub Command1_Click()
    Dim Mode As String * 4

    mciSendString "status cdaudio mode", Mode, 5, 0

    If Mode = "open" Then
        Dim Start: Start = Now
        mciSendString "SET CDAudio DOOR CLOSED", vbNullString, 0, 0
        If (Now - Start) = 0 Then
            mciSendString "SET CDAudio DOOR OPEN", vbNullString, 0, 0
        End If
    Else
        mciSendString "SET CDAudio DOOR OPEN", vbNullString, 0, 0
    End If
End Sub

السلام عليكم و رحمة الله وبركاته

مواضيع برمجية تقنية جديدة

----------------------------------------------------------------------------------------------------------------------------------------------

• إستغلال خدمة الـ RSS في برامجنا ومواقعنا ! (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• برنامج للبحث في الملفات ومحتواياتها (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• فئة للتراسل بين برنامجين في جهاز واحد ! (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

مواضيع برمجية تقنية قديمة

----------------------------------------------------------------------------------------------------------------------------------------------

• إستغلال رسائل البالونات Balloons في الوينذوز أكس بي(VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• مقالة : لماذا يجب ان نعتني بشفرات برامجنا !؟- (VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• لمطوري البرامج و مواقع الويب - برنامج تركيب ألوان - (VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• برنامج : بسيط للتحكم بالنظام, عن طريق الريجستري - (VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• برنامج : لتقييد و منع تشغيل البرامج الاخرى - (VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• النوافذ المنبثقة و طريقة لإستغلالها في برامجنا -(VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• تقنية الإستدعاء الذاتي - (VB.NET , VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• مصفوفات الأدوات Control Arrays افكار وتلميحات ! - (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• أفكار و تلميحات[ المعنى الحقيقي للـ True و False ] - أمثلة (VB.NET VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• دوال الـ APIs و مايقابلها في الدوت نت ! - (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

#14722 يوليو 2005 في 03:08

اوكي بعد أن تم حل سؤال الأخ رغيد سأطرح سؤال بسيط رغم أني لم أكن اود طرح أي سؤال لفتح المجال اما المشاركين الآخرين لكن امري لله

أريد منكم : القيام بفتح ملف نصي و الكتابة فيه ثم حفظ ما كتبتموه دون اللجوء الى الدالة Open و لا أي دالة مباشرة لفتح الملفات و الكتابة عليها

أعرف أنه جد بسيط لكن هذا هو الموجود :)

موقع المبرمجون العرب

أول موقع عربي لمسابقات الخوارزميات

مواضيعي في المنتدى

#14822 يوليو 2005 في 16:28

فعلا Pharaonic_Guy هذا هو الحل الذي أقصده لكن أحب أن أذكر أن هناك مميزات أخرى في المفتاح Folder

راجعوها بنفسكم

جاري قراءة باقي المشاركات

سلااااااااااااام

المحلة الكبري - كلية الطب جامعة الأزهر بدمياط

من مواضيعي

برنامج تحويل mp3,wav,wma إلى exe والكود موجود

أداة تصميم الفورم على شكل صورة مع الكود

واحدة من أحدث الشفرات بمناسبة إنتهاء الإمتحانات

أفضل الإختصارات لكود برنامج خفي السواقات(الدرايفات

مؤثر عرض على مجموعة من الجمل تشبة المنتديات

إليكم أداة شاشة العرض مع الكود

برنامج تحويل exe,dll إلى Ico مع الكود

من المواضيع التي شاركت فيها

كيف يتم تصدير محتويات الفورم على شكل صورة؟

برنامج رسم بسيط

كيفية إعادة تسمية المجلدات Folders

Colored List Box Control with Horizontal Scroll

وهناك الجديد إن شاء الله

Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Sub

#14923 يوليو 2005 في 15:28

موضوع جميل جدا و حقيقي يجعلنا جميعا نرجع للكتب و القراءة للوصول للاجابةالصحيحة

و لكن لدي اقتراح بان لا ياتي زميل باي سؤال حتى يتم حل السؤال الذي قبله ....حتى لا يحدث تضارب :)

من قال لا إله إلا الله صادقا دخل الجنة

موقعي للتعارف و تبادل الأخبار http://www.xybond.com

#15023 يوليو 2005 في 19:03

هيا يا أخوة أجيبوا على سؤالي حتى ننتقل لسؤال آخر

اقتباس
أريد منكم : القيام بفتح ملف نصي و الكتابة فيه ثم حفظ ما كتبتموه دون اللجوء الى الدالة Open و لا أي دالة مباشرة لفتح الملفات و الكتابة عليها
أعرف أنه جد بسيط لكن هذا هو الموجود

موقع المبرمجون العرب

أول موقع عربي لمسابقات الخوارزميات

مواضيعي في المنتدى

مواضيع مشابهة