+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : [مقال] التعامل مع اختصارات الملفات Shortcuts (/showthread.php?tid=3983)
التعامل مع اختصارات الملفات Shortcuts - Magic Sword - 06-10-14
السلام عليكم ورحمة الله وبركاتة:
اولا احب ان اهنئكم و اهنئ الامة الاسلامية بعيد الاضحى المبارك اعادة الله علينا بالخير و اليمن البركات.
اليوم, سوف نتعلم سويا كيفية التعامل مع اختصارات الملفات 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
RE: التعامل مع اختصارات الملفات Shortcuts - alzahrani - 03-11-14
الله يعطيك العافيه أخوي .. بجد طريقة جداً سهله وسرييييعه
RE: التعامل مع اختصارات الملفات Shortcuts - abomo3ath - 01-10-20
جزاك الله خير موضوع مفيد وقيم