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


الملخص


ان Microsoft Windows Script Host (وش) عبارة عن أداه تسمح لك بتشغيل إصدار البرمجة النصية ل Microsoft Visual Basic و JScript في نظام التشغيل الأساسي ، اما علي Windows 95 أو Windows NT 4.0. كما يشمل أيضا العديد من أساليب التنفيذ التلقائي ل COM التي تسمح لك بتنفيذ العديد من المهام بسهوله من خلال نموذج الكائن الخاص ب Windows Script Host. يتم دمج Microsoft Windows Script Host في Windows 98 و Windows 2000 والإصدارات الأحدث من نظام التشغيل Windows. يتوفر ل Windows NT 4.0 بتثبيت حزمه الخيارات في Windows NT 4.0. لتنزيل هذه الاداه ، قم بزيارة موقع Microsoft Developer Network (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
ملاحظة يتم إصدار Acrobat Reader من قِبل شركة Adobe Systems Inc.‎. وفقا لإصدار 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
ملاحظة يتم إصدار Acrobat Reader من قِبل شركة Adobe Systems Inc.‎. بالنسبة إلى الاختصار الذي سيتم إنشاؤه ، يجب تمرير المعلمات الصالحة لكل الأساليب. لا يظهر اي خطا إذا كانت أحدي المعلمات غير صحيحه.

المراجع


للحصول علي مزيد من المعلومات ، ابحث عن المراجع التالية علي موقع ويب Microsoft Developer Network (MSDN):المستند التقني: Windows Script Host: مضيف البرمجة النصية العالمية للبرمجة النصية للانجواجيستيتشنيكال الورق: الرجوع إلى البرمجة النصية لنظام التشغيل Windows