كيفية إنشاء اختصار على سطح مكتب باستخدام Windows Script Host

الملخص

Microsoft Windows Script Host (WSH) هو أداة تسمح لك بتشغيل Microsoft Visual Basic Scripting Edition و JScript أصلاً داخل نظام التشغيل الأساسي، أما في نظام التشغيل Windows 95 أو Windows NT 4.0. يتضمن أيضا العديد من الطرق التنفيذ التلقائي COM التي تسمح لك بالقيام بالعديد من المهام بسهولة من خلال نموذج كائن مضيف البرنامج النصي Windows. يتكامل Microsoft Windows Script Host في نظام التشغيل Windows 98 ونظام التشغيل Windows 2000 والإصدارات الأحدث من أنظمة تشغيل Windows. يتوفر ل Windows NT 4.0 قبل تثبيت نظام التشغيل Windows NT 4.0 Option Pack. لتنزيل هذه الأداة، قم بزيارة موقع شبكة مطوري Microsoft (MSDN) التالي على الويب:

مزيد من المعلومات

هذا البرنامج يوضح كيفية استخدام Windows Script Host لإنشاء اختصار على سطح مكتب Windows. من أجل تشغيل هذا المثال، يجب أن يكون لديك Windows Script Host مثبتاً على جهاز الكمبيوتر الخاص بك. لتشغيل أحد هذه الأمثلة، قم بنسخ التعليمات البرمجية أدناه في ملف برنامج جديد ثم تشغيله.

مثال 1

WshShell = CreateObject("Wscript.shell")strDesktop = WshShell.SpecialFolders("Desktop")oMyShortcut = WshShell.CreateShortcut(strDesktop + "\Sample.lnk")oMyShortcut.WindowStyle = 3  &&Maximized 7=Minimized  4=Normal oMyShortcut.IconLocation = "C:\myicon.ico"OMyShortcut.TargetPath = "%windir%\notepad.exe"oMyShortCut.Hotkey = "ALT+CTRL+F"oMyShortCut.Save

مثال 2

(إضافة وسيطة سطر الأوامر)

WshShell = CreateObject("WScript.Shell")strDesktop = WshShell.SpecialFolders("Desktop")oMyShortCut= WshShell.CreateShortcut(strDesktop+"\Foxtest.lnk")oMyShortCut.WindowStyle = 7  &&Minimized 0=Maximized  4=Normal oMyShortcut.IconLocation = home()+"wizards\graphics\builder.ico"oMyShortCut.TargetPath = "c:\Program Files\Microsoft Visual Studio\VFP98\vfp6.exe" oMyShortCut.Arguments = '-c'+'"'+Home()+'config.fpw'+'"'oMyShortCut.WorkingDirectory = "c:\"oMyShortCut.Save

ملاحظة: اعتماداً على إصدار Visual FoxPro الذي تستخدمه، قد تحتاج إلى تغيير الاسم ومسار Visual FoxPro القابل للتنفيذ في المثال 2.

المثال 3

(إضافة اختصار URL إلى سطح المكتب)

WshShell = CreateObject("WScript.Shell")strDesktop = WshShell.SpecialFolders("Desktop")oUrlLink = WshShell.CreateShortcut(strDesktop+"\Microsoft Web Site.URL")oUrlLink.TargetPath = "http://www.microsoft.com"oUrlLink.Save

ملاحظة: لإنشاء الاختصار، يجب أن يتم تمرير معلمات صالحة لكافة الأساليب. يظهر أي خطأ إذا كانت إحدى المعلمات غير صحيحة.

المراجع

لمزيد من المعلومات، ابحث عن المراجع التالية الموجودة على موقع شبكة مطوري Microsoft (MSDN):

أبيض الورق: Windows Script Host: Scripting Host العالمي للبرمجة مرجع المبرمجين الورق: Windows Script Host لانجواجيستيتشنيكال

هل تحتاج إلى مزيد من المساعدة؟

توسيع المهارات
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Microsoft Insider

هل كانت المعلومات مفيدة؟

نشكرك على ملاحظاتك!

شكراً لك على الملاحظات! يبدو أنه من المفيد إيصالك بأحد وكلاء دعم Office لدينا.

×