تقييم الموضوع :
  • 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
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [درس فيديو] تحذير هام في التعامل مع 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 330 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,961 19-12-14, 11:11 PM
آخر رد: sniperjawadino
Lightbulb [مقال] التعامل مع اختصارات الملفات Shortcuts Magic Sword 1 630 03-11-14, 12:03 PM
آخر رد: alzahrani
  الكامل في VB.Net (التعامل مع الأقراص و المجلدات و الملفات) rinawi 3 1,258 25-05-13, 01:11 PM
آخر رد: shaker.soft
  مشروع ل اخد الايقونات من الملفات just.coder 6 824 26-03-13, 07:12 PM
آخر رد: محمود رغمان

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


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