تقييم الموضوع :
  • 1 أصوات - بمعدل 4
  • 1
  • 2
  • 3
  • 4
  • 5
[مقال] التعامل مع اختصارات الملفات Shortcuts
#1
Lightbulb 
السلام عليكم ورحمة الله وبركاتة:

اولا احب ان اهنئكم و اهنئ الامة الاسلامية بعيد الاضحى المبارك اعادة الله علينا بالخير و اليمن البركات.

اليوم, سوف نتعلم سويا كيفية التعامل مع اختصارات الملفات Shortcuts من حيث صنع الاختصارات و معرفة خصائصها.

هناك طرق كثيرة للتعامل مع اختصارات الملفات, اسهل طريقة هي استخدام COM Component وهو Windows Script Host component -وهو جزء من نظام التشغيل- الذي يوفر هذة الوظيفة WshShell.CreateShortcut.

سنبدا باستخدام WshShell , بسم الله:

اولا سنبدا باضافة Reference الى هذا COM Component, من قائمة Project نختار Add Reference ومن COM Tab ثم نختار Windows Script Host Object Model

سنتخدم الكود التالي لعمل اختصار لملف:


1. تحديد الفولدر الذي سوف يتم عمل ال Shortcut بداخلة

PHP كود :
Dim DesktopDir As String Environment.GetFolderPath(Environment.SpecialFolder.Desktop

2. عمل Objects

PHP كود :
       Dim WshShell As New IWshRuntimeLibrary.WshShell()
       Dim Shortcut As IWshRuntimeLibrary.IWshShortcut 

3. تحديد اسم و موقع الShortcut لاحظ ان الاختصار لة امتداد خفي .LNK

PHP كود :
Shortcut CType(WshShell.CreateShortcut(DesktopDir "\Ahmed.lnk"), IWshRuntimeLibrary.IWshShortcut

4. تحديد بعض خصائص الاختصار مثل مسار الملف الاصلي و الوصف Description

PHP كود :
       Shortcut.TargetPath "C:\Windows\notepad.exe"
       Shortcut.WindowStyle 1
       Shortcut
.Hotkey "CTRL+SHIFT+N"
       Shortcut.Description "Run Notepad"
       Shortcut.WorkingDirectory DesktopDir 

5. تحديد ايقونة الاختصار

PHP كود :
Shortcut.IconLocation "C:\Program Files\Smart PC Utilities\Game Fire\GameFire.exe" 

حفظ الاختصار

PHP كود :
Shortcut.Save() 
------------------

والان سوف نتعلم كيفية التعامل مع Shortcuts الموجودة مثل معرفة مسار الملف الاصلي و خصائص هذا Shortcut, باستخدام الدالة التالية يمكننا معرفة مسار الملف الاصلي للاختصار:


PHP كود :
   Private Function Get_ShortcutTarget(ByVal ShortcutPath As String) As String

       Try
           Dim WshShell 
As New IWshRuntimeLibrary.WshShell()
           Dim Shortcut As IWshRuntimeLibrary.IWshShortcut
           Shortcut 
CType(WshShell.CreateShortcut(ShortcutPath), IWshRuntimeLibrary.IWshShortcut)
           Return Shortcut.TargetPath
       Catch ex 
As Exception
           Return ShortcutPath
       End 
Try

   End Function 

يمكن تعديل الدالة السابقة للحصول على معلومات اخرى بتغير الخاصية Property التي تلى Shortcut مثل
Shortcut.Hotkey او Shortcut.Description

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

اخوكم Magic Sword  Cool
الرد }}}}
تم الشكر بواسطة: احمد تيم , محمود رغمان , alzahrani
#2
الله يعطيك العافيه أخوي .. بجد طريقة جداً سهله وسرييييعه
الرد }}}}
تم الشكر بواسطة: Magic Sword


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [درس فيديو] تحذير هام في التعامل مع For و Try ali.alfoly 3 120 07-12-16, 12:43 AM
آخر رد: silverlight
Wink [مقال] كفية التعامل مه الجملة الشرطية IF alims 8 3,533 19-11-16, 01:06 AM
آخر رد: LoveVb
  شرح انشاء برنامج تحويل صيغ الملفات الصوتيه CLARO 9 331 02-06-16, 11:13 AM
آخر رد: CLARO
Star [VB.NET] شرح عمل امتداد خاص لبرامجك وجعل برنامجك يقرأ هذة الملفات mohammed_gamal381 22 7,435 01-06-16, 02:55 PM
آخر رد: ابراهيم كركوكي
Big Grin [مقال] كفية التعامل مع حلقة التكرار For , For Each alims 8 3,496 01-11-15, 11:51 PM
آخر رد: adel27
  [VB.NET] التعامل مع الصور في vb net أحمد النجار 2 1,021 03-06-15, 10:45 PM
آخر رد: أحمد النجار
  التعامل مع الملفات الصوتية ........دردشة برمجية RaggiTech 6 2,962 19-12-14, 11:11 PM
آخر رد: sniperjawadino
  الكامل في VB.Net (التعامل مع الأقراص و المجلدات و الملفات) rinawi 3 1,259 25-05-13, 01:11 PM
آخر رد: shaker.soft
  مشروع ل اخد الايقونات من الملفات just.coder 6 824 26-03-13, 07:12 PM
آخر رد: محمود رغمان
  معلومة ::: التعامل مع Registry RaggiTech 3 786 06-10-12, 07:55 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم