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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مقال] دوال التعامل مع النصوص Strings - VB.NET ابو ليلى 7 1,142 13-10-17, 05:39 PM
آخر رد: farhat ali
  الملفات المؤقتة silverlight 1 64 05-10-17, 03:54 PM
آخر رد: sendbad100
  تشفير الملفات التنفيذية silverlight 0 202 01-07-17, 10:16 AM
آخر رد: silverlight
  ابسط كود لرفع الملفات عن طريق سيرفر FTP Basil Abdallah 0 245 06-01-17, 03:23 PM
آخر رد: Basil Abdallah
  التعامل مع الملفات الصوتية ........دردشة برمجية RaggiTech 7 4,155 26-12-16, 02:40 AM
آخر رد: sayed fox
  التعامل مع جهاز الكمبيوتر من Command Prompt silverlight 7 598 22-12-16, 06:07 PM
آخر رد: silverlight
Video [درس فيديو] هام مرة اخري تحذير للجميع في التعامل مع try والتكرار لعدد كبير ali.alfoly 1 325 13-12-16, 03:59 PM
آخر رد: Fantastico
  [درس فيديو] تحذير هام في التعامل مع For و Try ali.alfoly 3 488 07-12-16, 12:43 AM
آخر رد: silverlight
Wink [مقال] كفية التعامل مه الجملة الشرطية IF alims 8 5,040 19-11-16, 01:06 AM
آخر رد: LoveVb
  شرح انشاء برنامج تحويل صيغ الملفات الصوتيه CLARO 9 727 02-06-16, 11:13 AM
آخر رد: CLARO

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


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