Come creare un collegamento desktop con l'host script di Windows

  • Articolo

Questo articolo descrive come creare collegamenti desktop usando Microsoft Windows Script Host (WSH) dall'interno di Visual FoxPro.

Si applica a: Windows 10: tutte le edizioni, Windows Server 2012 R2
Numero KB originale: 244677

Riepilogo

WSH è uno strumento che consente di eseguire Microsoft Visual Basic Scripting Edition e JScript in modo nativo all'interno del sistema operativo di base, in Windows 95 o Windows NT 4.0. Include anche diversi metodi di automazione COM che consentono di eseguire facilmente diverse attività tramite il modello a oggetti host script Windows. Microsoft Windows Script Host è integrato in Windows 98, Windows 2000 e versioni successive del sistema operativo Windows. È disponibile per Windows NT 4.0 installando Windows NT 4.0 Option Pack. Per scaricare questo strumento, visitare Scripting.To download this tool, visit Scripting.

Esempi per creare un collegamento desktop con WSH

Questo programma illustra come usare l'host script di Windows per creare un collegamento su Windows Desktop. Per eseguire questo esempio, è necessario che l'host script di Windows sia installato nel computer. Per eseguire uno di questi esempi, copiare il codice seguente in un nuovo file di programma ed eseguirlo.

Esempio 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

Esempio 2: Aggiungere un argomento della riga di comando

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

Nota

A seconda della versione di Visual FoxPro in uso, potrebbe essere necessario modificare il nome e il percorso dell'eseguibile Visual FoxPro nell'esempio 2.

Esempio 3: Aggiungere un collegamento url al desktop

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

Nota

Per creare il collegamento, è necessario passare parametri validi per tutti i metodi. Se uno dei parametri non è corretto, non viene visualizzato alcun errore.

Riferimenti

  • White paper: Windows Script Host: Un host di scripting universale per i linguaggi di scripting
  • Documento tecnico: Informazioni di riferimento sul programmatore host script Windows