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

  • Article

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

Applicabilité : Windows 10 - toutes les éditions, Windows Server 2012 R2
Numéro de la base de connaissances 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 facilement plusieurs tâches via le modèle objet hôte de script Windows. Microsoft Windows Script Host est intégré à Windows 98, Windows 2000 et versions ultérieures du système d’exploitation Windows. Il est disponible pour Windows NT 4.0 en installant le pack d’options Windows NT 4.0. Pour télécharger cet outil, consultez Script.

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

Ce programme montre comment utiliser l’hôte de script Windows pour créer un raccourci sur le Bureau Windows. Pour exécuter cet exemple, l’hôte de script Windows doit être installé sur votre ordinateur. Pour exécuter l’un de ces exemples, copiez le code ci-dessous dans un nouveau fichier 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

Remarque

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

Remarque

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.

References

  • Livre blanc : Hôte de script Windows : hôte de script universel pour les langages de script
  • Document technique : Informations de référence sur le programmeur de l’hôte de script Windows