تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التعامل مع اختصارات الملفات Shortcuts
#1
كاتب الموضوع : magicsword

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

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


اليوم, سوف نتعلم سويا كيفية التعامل مع اختصارات الملفات 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 بداخلة

كود :
[color=#000000][COLOR=#0000bb]Dim DesktopDir [/color][color=#007700]As [/color][color=#0000bb]String [/color][color=#007700]= [/color][color=#0000bb]Environment[/color][color=#007700].[/color][color=#0000bb]GetFolderPath[/color][color=#007700]([/color][color=#0000bb]Environment[/color][color=#007700].[/color][color=#0000bb]SpecialFolder[/color][color=#007700].[/color][color=#0000bb]Desktop[/color][COLOR=#007700])  
[/COLOR][color=#0000bb][/color][/COLOR]

2. عمل Objects

كود :
[color=#000000][COLOR=#0000bb]        Dim WshShell [/color][color=#007700]As New [/color][color=#0000bb]IWshRuntimeLibrary[/color][color=#007700].[/color][color=#0000bb]WshShell[/color][COLOR=#007700]()
        [/COLOR][color=#0000bb]Dim Shortcut [/color][color=#007700]As [/color][color=#0000bb]IWshRuntimeLibrary[/color][color=#007700].[/color][COLOR=#0000bb]IWshShortcut  
[/COLOR][/COLOR]

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

كود :
[color=#000000][COLOR=#0000bb]Shortcut [/color][color=#007700]= [/color][color=#0000bb]CType[/color][color=#007700]([/color][color=#0000bb]WshShell[/color][color=#007700].[/color][color=#0000bb]CreateShortcut[/color][color=#007700]([/color][color=#0000bb]DesktopDir [/color][color=#007700]& [/color][color=#dd0000]"\Ahmed.lnk"[/color][color=#007700]), [/color][color=#0000bb]IWshRuntimeLibrary[/color][color=#007700].[/color][color=#0000bb]IWshShortcut[/color][COLOR=#007700])  
[/COLOR][color=#0000bb][/color][/COLOR]

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

كود :
[color=#000000][COLOR=#0000bb]        Shortcut[/color][color=#007700].[/color][color=#0000bb]TargetPath [/color][color=#007700]= [/color][COLOR=#dd0000]"C:\Windows\notepad.exe"
        [/COLOR][color=#0000bb]Shortcut[/color][color=#007700].[/color][color=#0000bb]WindowStyle [/color][color=#007700]= [/color][COLOR=#0000bb]1
        Shortcut[/COLOR][color=#007700].[/color][color=#0000bb]Hotkey [/color][color=#007700]= [/color][COLOR=#dd0000]"CTRL+SHIFT+N"
        [/COLOR][color=#0000bb]Shortcut[/color][color=#007700].[/color][color=#0000bb]Description [/color][color=#007700]= [/color][COLOR=#dd0000]"Run Notepad"
        [/COLOR][color=#0000bb]Shortcut[/color][color=#007700].[/color][color=#0000bb]WorkingDirectory [/color][color=#007700]= [/color][COLOR=#0000bb]DesktopDir  
[/COLOR][/COLOR]

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

كود :
[color=#000000][COLOR=#0000bb]Shortcut[/color][color=#007700].[/color][color=#0000bb]IconLocation [/color][color=#007700]= [/color][COLOR=#dd0000]"C:\Program Files\Smart PC Utilities\Game Fire\GameFire.exe"  
[/COLOR][color=#0000bb][/color][/COLOR]

حفظ الاختصار

كود :
[color=#000000][COLOR=#0000bb]Shortcut[/color][color=#007700].[/color][color=#0000bb]Save[/color][COLOR=#007700]()  
[/COLOR][color=#0000bb][/color][/COLOR]

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

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


كود :
[color=#000000][COLOR=#0000bb]    [/color][color=#007700]Private Function [/color][color=#0000bb]Get_ShortcutTarget[/color][color=#007700]([/color][color=#0000bb]ByVal ShortcutPath [/color][color=#007700]As [/color][color=#0000bb]String[/color][color=#007700]) As [/color][COLOR=#0000bb]String

        [/COLOR][COLOR=#007700]Try
            [/COLOR][color=#0000bb]Dim WshShell [/color][color=#007700]As New [/color][color=#0000bb]IWshRuntimeLibrary[/color][color=#007700].[/color][color=#0000bb]WshShell[/color][COLOR=#007700]()
            [/COLOR][color=#0000bb]Dim Shortcut [/color][color=#007700]As [/color][color=#0000bb]IWshRuntimeLibrary[/color][color=#007700].[/color][COLOR=#0000bb]IWshShortcut
            Shortcut [/COLOR][color=#007700]= [/color][color=#0000bb]CType[/color][color=#007700]([/color][color=#0000bb]WshShell[/color][color=#007700].[/color][color=#0000bb]CreateShortcut[/color][color=#007700]([/color][color=#0000bb]ShortcutPath[/color][color=#007700]), [/color][color=#0000bb]IWshRuntimeLibrary[/color][color=#007700].[/color][color=#0000bb]IWshShortcut[/color][COLOR=#007700])
            Return [/COLOR][color=#0000bb]Shortcut[/color][color=#007700].[/color][COLOR=#0000bb]TargetPath
        [/COLOR][color=#007700]Catch [/color][color=#0000bb]ex [/color][color=#007700]As [/color][COLOR=#0000bb]Exception
            [/COLOR][color=#007700]Return [/color][COLOR=#0000bb]ShortcutPath
        End [/COLOR][COLOR=#007700]Try

    [/COLOR][color=#0000bb]End [/color][COLOR=#007700]Function  
[/COLOR][color=#0000bb][/color][/COLOR]

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

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


اخوكم Magic Sword
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  شرح انشاء برنامج تحويل صيغ الملفات الصوتيه CLARO 11 1,344 16-11-18, 04:41 PM
آخر رد: anassss
  تشفير الملفات التنفيذية silverlight 2 1,033 02-10-18, 08:57 AM
آخر رد: sendbad100
  [مقال] دوال التعامل مع النصوص Strings - VB.NET ابو ليلى 9 4,400 08-07-18, 02:36 AM
آخر رد: خلاف
Exclamation [VB.NET] التعامل مع ال CMD عن طريق ال TextBox YousefOkasha 5 437 02-06-18, 09:34 PM
آخر رد: YousefOkasha
  التعامل مع الصور Images في بيئة الدوت نت باستخدام +GDI - مقدمة RaggiTech 2 1,444 22-01-18, 12:49 AM
آخر رد: amna jamal
  التعامل مع الملفات الصوتية ........دردشة برمجية RaggiTech 8 5,327 28-11-17, 11:23 PM
آخر رد: ahmed4240
  الملفات المؤقتة silverlight 1 330 05-10-17, 03:54 PM
آخر رد: sendbad100
  ابسط كود لرفع الملفات عن طريق سيرفر FTP Basil Abdallah 0 456 06-01-17, 03:23 PM
آخر رد: Basil Abdallah
  التعامل مع جهاز الكمبيوتر من Command Prompt silverlight 7 1,106 22-12-16, 06:07 PM
آخر رد: silverlight
Video [درس فيديو] هام مرة اخري تحذير للجميع في التعامل مع try والتكرار لعدد كبير ali.alfoly 1 673 13-12-16, 03:59 PM
آخر رد: Fantastico

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


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