تعلم كيفية إنشاء تطبيق لاغلاق المجلدات folder-locker بأستخادم vb.net

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

تعلم كيفية إنشاء تطبيق لاغلاق المجلدات folder-locker بأستخادم vb.net

مُساهمة من طرف VB.NET في الأربعاء ديسمبر 18, 2013 6:16 pm

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

اليوم درس عن كيفية إنشاء تطبيق لأغلاق و فتح المجلدات من خلال أكواد الفجوال بيسك دوت نت عن طريق خطوات بسيطة على النحو التالى :

1. أفتح الفجوال أستديوا و إنشاء مشروع نموذج نوافذ جديدة وتسميته كما تريد.

2_الآن لإضافة عناصر التحكم التالية :


  •  إضافة 3 أزرار و تعيين نص التسمية ب "أغلاق" والزر الثاني "إفتح". وعلى الزر الاخير تكتب "استعراض".
  •  إضافة 2 مربعات النص واضحة لهم للنص.
  •  إضافة 2 تسميات، والكتابة في Label1 "الوجهة المجلد" ووضعها فوق Textbox1، كتابة في Label2 "اسم المجلد".
  •  إضافة الحوار folderbrowser


3_ فى حدث النقر على زر الامر "استعراض" نكتب الشفرة التالية :

الرمز:
FolderBrowserDialog1.ShowDialog() TextBox1.Text = FolderBrowserDialog1.SelectedPath last = Path.GetFileName(FolderBrowserDialog1.SelectedPath) TextBox2.Text = last TextBox1.Text = TextBox1.Text.Replace(".{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}", "")
TextBox2.Text = TextBox2.Text.Replace(".{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}", "")

و الكود أعلاه يقوم بفتح الحوار folderbrowser ووضع المسار الكامل للمجلد الذي حددته في textbox1.text وضعت اسم المجلد المحدد في textbox2.text.

4_ كتابة الكود التالى فى حدث النقر لازر الامر "أغلاق" :

الرمز:
Dim text1 as string = ".{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}"
Shell("cmd /c" & "ren " & TextBox1.Text & " " & TextBox2.Text & Text1)
Shell("cmd /c" & "attrib +s +h " & TextBox1.Text & ".{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}\*.*" & " /S /D")
Shell("cmd /c" & "attrib +s +h " & TextBox1.Text & ".{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}" & " /S /D")

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

5_ كتابة الكود التالى فى حدث النقر على زر الامر "فتح" :

الرمز:
Dim text1 as string = ".{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}"
Shell("cmd /c" & "attrib -s -h " & TextBox1.Text & ".{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}" & " /S /D")
Shell("cmd /c" & "attrib -s -h " & TextBox1.Text & ".{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}\*.*" & " /S /D")
System.Threading.Thread.Sleep(1000)
Shell("cmd /c" & "ren " & TextBox1.Text & Text1 & " " & TextBox2.Text)

وهذا الكود يفعل عكس الكود اعلاه حيث انه يفتح موجهة الاوامر و تنفيذ الاوامر التى من خلالها نستطيع الغاء اغلاق المجلد او فتحه من جديد


 lol!  lol!  lol!

VB.NET
المراقبين
المراقبين

تاريخ التسجيل : 18/02/2011
المساهمات : 117
النقاط : 185
التقيم : 6
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تعلم كيفية إنشاء تطبيق لاغلاق المجلدات folder-locker بأستخادم vb.net

مُساهمة من طرف زهراء في الأربعاء نوفمبر 12, 2014 4:59 pm

Like a Star @ heaven Like a Star @ heaven Like a Star @ heaven Like a Star @ heaven Like a Star @ heaven

زهراء
........
........

تاريخ التسجيل : 18/02/2011
المساهمات : 262
النقاط : 372
التقيم : 24
الدولة : مصر
الجنس : انثى

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى