Come creare un collegamento sul desktop con Windows Script Host

In questo articolo viene descritto come creare collegamenti desktop utilizzando Microsoft Windows Script Host (WSH) da 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 nel sistema operativo di base, in Windows 95 o Windows NT 4.0. Include inoltre diversi metodi di automazione COM che consentono di eseguire facilmente diverse attività tramite il Windows a oggetti dell'host di script. Microsoft Windows Script Host è integrato in Windows 98, Windows 2000 e versioni successive del Windows operativo. È disponibile per Windows NT 4.0 installando Windows NT 4.0 Option Pack. Per scaricare questo strumento, visitare Scripting.

Esempi per creare un collegamento sul desktop con WSH

In questo programma viene illustrato come utilizzare Windows Script Host per creare un collegamento nel Windows Desktop. Per eseguire questo esempio, è necessario che nel computer sia installato Windows Host script. 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 del file eseguibile di 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 script universale per i linguaggi di script
  • Documento tecnico: informazioni Windows programmatore di Script Host