فكرة جميلة جداً
في الحقيقة لا اعلم اين يتم التخزين ( ولكن اعتقد في الريجستري )
عموما لدي كود بالفيجوال بيسك . لعمل اختصار وعمل Key له .
قم باضافة Reference
ثم في شاشة الفورم
ثم في زر انشاء الاختصار
للعلم فقط .
اذا تم الضغط على Ctrl+Alt+0 في اي مكان سيتم فتح البرنامج
لازالة الـHotkey
نفس الكود ولكن
scut.Hotkey = ""
في الحقيقة لا اعلم اين يتم التخزين ( ولكن اعتقد في الريجستري )
عموما لدي كود بالفيجوال بيسك . لعمل اختصار وعمل 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 في اي مكان سيتم فتح البرنامج

لازالة الـHotkey
نفس الكود ولكن
scut.Hotkey = ""
