تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ShortCut.Hotkey
#2
فكرة جميلة جداً
في الحقيقة لا اعلم اين يتم التخزين ( ولكن اعتقد في الريجستري )
عموما لدي كود بالفيجوال بيسك . لعمل اختصار وعمل Key  له .
قم باضافة Reference 

PHP كود :
Reference -> COM -> Windows Script Host Object Model 
 
ثم في شاشة الفورم 
PHP كود :
Imports IWshRuntimeLibrary 
ثم في زر انشاء الاختصار
PHP كود :
Dim wshshell CreateObject("WScript.Shell")
 
       Dim desktop wshshell.SpecialFolders("desktop")
 
       Dim linkname As String
        linkname 
desktop "\Hello world" ".lnk"
 
       Dim scut wshshell.CreateShortcut(linkname)
 
       scut.TargetPath "c:\windows\system32\calc.exe"
 
       scut.Hotkey "Ctrl+Alt+0"
 
       scut.Save() 
 للعلم فقط .
 اذا تم الضغط على Ctrl+Alt+0 في اي مكان سيتم فتح البرنامج  Big Grin


لازالة الـHotkey
نفس الكود ولكن 
   scut.Hotkey = ""
الرد }}}
تم الشكر بواسطة: abuzzouz


الردود في هذا الموضوع
ShortCut.Hotkey - بواسطة abuzzouz - 21-12-15, 01:39 PM
RE: ShortCut.Hotkey - بواسطة HASAN6.0 - 21-12-15, 02:27 PM
RE: ShortCut.Hotkey - بواسطة abuzzouz - 21-12-15, 05:10 PM
RE: ShortCut.Hotkey - بواسطة abuzzouz - 22-12-15, 12:39 AM
RE: ShortCut.Hotkey - بواسطة hamada558 - 22-12-15, 01:32 AM
RE: ShortCut.Hotkey - بواسطة zinom - 22-12-15, 04:25 AM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ازاي اعمل shortcut file اليوم السابع 7 2,614 14-11-20, 02:35 AM
آخر رد: اليوم السابع
  (تم الحل) Desktop Shortcut " انشاء اختصار" barakascap 9 6,142 07-10-12, 02:11 PM
آخر رد: m.sami.ak

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


يقوم بقرائة الموضوع: