اسهل طريقة لعمل شورتكات (الاختصارات)

شكر لك اخي الكريم

واذا امكن شرح بسيط للكود

لاني لا احب ان استعمل كود لا افهمه (عادة قديما مش عارف اخلاص منها :lol: )

كود مهم جداااااااااااا

جزاك الله كل خير

بس ياريت....

اقتباس

واذا امكن شرح بسيط للكود

لاني لا احب ان استعمل كود لا افهمه (عادة قديما مش عارف اخلاص منها )

تسلم ايدك فعلا كود مهم

بس يا ريت تشرحهولنا :huh:

جزاك الله كل خير

Merciiiiiiiiiiiiiiiiiiiiiiiiii bcp

في الكود السابق خطأ املائي - علامة تنصيص زائدة - في السطر3 وهذا تصحيح الكود :

Set wshshell = CreateObject("Wscript.shell")
nStr = wshshell.specialfolders("Desktop")
Set oshelllink = wshshell.createShortcut(nStr & "\MYPROGGR.lnk")
oshelllink.Targetpath = "c.....\prog.exe"
oshelllink.hotkey = "ctrl+alt+c"
oshelllink.iconlocation = "c.....\pro.ico"
oshelllink.Description = "........"
oshelllink.save

السطر الاول

Set wshshell = CreateObject("Wscript.shell")

أنشئنا كائن من نوع Wscript.shell وسميناه wshshell

وله فوائد كثيرة منها ما يخصنا في الموضوع وهي :

1 - specialfolders

لمعرفة المجلدات الخاصة بالنظام مثل سطح المكتب ,بدء التشغيل,قائمة ابدا,البرامج,الخ..

2 - الكائن createShortcut للتعامل مع الاختصارات,,

ونستخدم specialfolders بالطريقة التالية

YourVariable=youropject.specialfolders("SpecialFolders")

وفي مثالنا استخدمنا الكود التالي :

nStr = wshshell.specialfolders("Desktop")

ادخلنا مسار سطح المكتب الى المتغير nStr

في السطر التالي :

Set oshelllink = wshshell.createShortcut(nStr & "\MYPROGGR.lnk")

انشئنا كائن جديد من نوع wshshell.createShortcut الخاص بانشاء الاختصار الجديد

لاحظ ان wshshell هو الكائن السابق من نوع Wscript.shell وسميناه بoshelllink.

وحددنا له مسار الاختصار الذي نريده .. وفي مثالنا وضعناه في سطح المكتب , وبامكانك وضع اي مسار مباشرة بدون استخدام specialfolders , كما يمكنك استخدام specialfolders في امور اخرى..

في السطر التالي :

oshelllink.Targetpath = "c.....\prog.exe"

وهو مسار الملف الهدف .. اي الملف او البرنامج الذي سيتم تشغيله عند تشغيل الاختصار

السطر :

oshelllink.hotkey = "ctrl+alt+c"

وهو خاص بتحديد الـ hotkey , اي مفتاح الاختصار : والفائدة منه اذا كان اختصارك في سطح المكتب او قائمة ابدا والبرامج فعند الضغط على ctrl+alt+c يتم تغيل الاختصار .. لمزيد من المعلومة انقر على اي اختصار بالزر الايمن ثم خصائص. هذا الامر اختياري

السطر :

oshelllink.iconlocation = "c.....\pro.ico"

لتحديد ايقونة للاختصار اذا لم ترد الايقونة الافتراضية للملف او ان الملف ليس له ايقونة محددة.. هذا الامراخياري

السطر :

oshelllink.Description = "........"

لوضع وصف للاختصار , عند المرور على الاختصار يظهر له مربع اصفر في نبذة عن الاختصار او البرنامج , هذا الامر اختياري

اخيرا السطر المهم :

oshelllink.save

وهو يقوم بحفظ ملف الاختصار اي انشاؤه

اتمنى اني وفقت في توضيع الموضوع

واي استفسار في الموضوع ان شاء الله اجيب عليه ..

تقبلوا تحياتي

شكرا لك اخي عبدالكريم

طبعا هذه الطريقة تستعمل مع البرامج الصغير التي لا تحتاج الى سيت اب

اما البرامج الكبير التي تحزم ، يكون من ضمن خيارات برنامج التحزيم (سيت اب) خيار انشاء شورت كت

اذا امكن اخي كود الـ

اقتباس

قائمة ابدأ و programs

و يمكن ان تجعل بها برنامجك يقلع عند فتح الويندوز...

السلام عليكم

أخى الكريم عبد الكريم

العفو اخواني الاعزاء ..

واسعدتني مناقشتكم في الموضوع.

شكر لك اخي الكريم

بالفعل جزاك الله خير