Como criar um atalho de área de trabalho com o Host de Script do Windows

  • Artigo

Este artigo descreve como criar atalhos de área de trabalho usando o WSH (Microsoft Windows Script Host) de dentro do Visual FoxPro.

Aplica-se a: Windows 10 — todas as edições, Windows Server 2012 R2
Número de KB original: 244677

Resumo

O WSH é uma ferramenta que permite que você execute o Microsoft Visual Basic Scripting Edition e o JScript nativamente dentro do sistema operacional base, no Windows 95 ou Windows NT 4.0. Ele também inclui vários métodos de automação COM que permitem que você faça várias tarefas facilmente por meio do Modelo de Objeto host do Script do Windows. O Microsoft Windows Script Host é integrado ao Windows 98, Windows 2000 e versões posteriores do sistema operacional Windows. Ele está disponível para Windows NT 4.0 instalando o pacote de opções do Windows NT 4.0. Para baixar essa ferramenta, visite Scripting.

Exemplos para criar um atalho de área de trabalho com o WSH

Este programa demonstra como usar o Host de Script do Windows para criar um atalho na Área de Trabalho do Windows. Para executar este exemplo, você deve ter o Host de Script do Windows instalado em seu computador. Para executar um desses exemplos, copie o código abaixo em um novo arquivo de programa e execute-o.

Exemplo 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

Exemplo 2: Adicionar um argumento de linha de 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

Observação

Dependendo da versão do Visual FoxPro que você está usando, talvez seja necessário alterar o nome e o caminho do executável Visual FoxPro no Exemplo 2.

Exemplo 3: adicionar um atalho de URL à área de trabalho

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

Observação

Para que o atalho seja criado, os parâmetros válidos devem ser passados para todos os métodos. Nenhum erro será exibido se um dos parâmetros estiver incorreto.

Referências

  • White paper: Host de Script do Windows: um host universal de scripts para linguagens de script
  • Papel técnico: referência do programador do Host de Script do Windows