Comment créer un raccourci bureau à l’Windows script hôte

Cet article explique comment créer des raccourcis bureau à l’aide de l’hôte de scripts Microsoft Windows (WSH) à partir de Visual FoxPro.

S’applique à :   Windows 10 - toutes les éditions, Windows Server 2012 R2
Numéro de la ko d’origine :   244677

Résumé

WSH est un outil qui vous permet d’exécuter Microsoft Visual Basic Scripting Edition et JScript en mode natif dans le système d’exploitation de base, sur Windows 95 ou Windows NT 4.0. Il inclut également plusieurs méthodes d’automatisation COM qui vous permettent d’effectuer plusieurs tâches facilement via Windows modèle objet hôte de script. L’hôte de scripts Microsoft Windows est intégré à Windows 98, Windows 2000 et versions ultérieures du système d Windows d’exploitation. Il est disponible pour Windows NT 4.0 en installant Windows NT 4.0 Option Pack. Pour télécharger cet outil, visitez Scripting.

Exemples de création d’un raccourci bureau avec WSH

Ce programme montre comment utiliser l’Windows script hôte pour créer un raccourci sur Windows Bureau. Pour exécuter cet exemple, vous devez avoir installé l’Windows script hôte sur votre ordinateur. Pour exécuter l’un de ces exemples, copiez le code ci-dessous dans un nouveau fichier de programme et exécutez-le.

Exemple 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

Exemple 2 : Ajouter un argument de ligne de commande

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

Notes

Selon la version de Visual FoxPro que vous utilisez, vous devrez peut-être modifier le nom et le chemin d’accès de l’exécutable Visual FoxPro dans l’exemple 2.

Exemple 3 : Ajouter un raccourci URL au bureau

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

Notes

Pour que le raccourci soit créé, des paramètres valides doivent être passés pour toutes les méthodes. Aucune erreur ne s’affiche si l’un des paramètres est incorrect.

Références

  • Livre blanc : Windows script hôte : un hôte de script universel pour les langages de script
  • Article technique : référence Windows du programmeur d’hôte de script