تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ابسط كود لرفع الملفات عن طريق سيرفر FTP Basil Abdallah 0 175 06-01-17, 03:23 PM
آخر رد: Basil Abdallah
  التعامل مع الملفات الصوتية ........دردشة برمجية RaggiTech 7 3,790 26-12-16, 02:40 AM
آخر رد: sayed fox
  التعامل مع جهاز الكمبيوتر من Command Prompt silverlight 7 442 22-12-16, 06:07 PM
آخر رد: silverlight
Video [درس فيديو] هام مرة اخري تحذير للجميع في التعامل مع try والتكرار لعدد كبير ali.alfoly 1 226 13-12-16, 03:59 PM
آخر رد: Fantastico
  [مقال] دوال التعامل مع النصوص Strings - VB.NET ابو ليلى 5 747 12-12-16, 10:32 PM
آخر رد: ابو ليلى
  [درس فيديو] تحذير هام في التعامل مع For و Try ali.alfoly 3 367 07-12-16, 12:43 AM
آخر رد: silverlight
Wink [مقال] كفية التعامل مه الجملة الشرطية IF alims 8 4,540 19-11-16, 01:06 AM
آخر رد: LoveVb
  شرح انشاء برنامج تحويل صيغ الملفات الصوتيه CLARO 9 563 02-06-16, 11:13 AM
آخر رد: CLARO
Star [VB.NET] شرح عمل امتداد خاص لبرامجك وجعل برنامجك يقرأ هذة الملفات mohammed_gamal381 22 8,505 01-06-16, 02:55 PM
آخر رد: ابراهيم كركوكي
Big Grin [مقال] كفية التعامل مع حلقة التكرار For , For Each alims 8 4,083 01-11-15, 11:51 PM
آخر رد: adel27

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


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