Jak utworzyć skrót klasyczny za pomocą hosta skryptów systemu Windows

W tym artykule opisano sposób tworzenia skrótów klasycznych przy użyciu hosta skryptów systemu Microsoft Windows (WSH) z poziomu programu Visual FoxPro.

Dotyczy: Windows 10 — wszystkie wersje, Windows Server 2012 R2
Oryginalny numer KB: 244677

Podsumowanie

WSH to narzędzie, które umożliwia uruchamianie programu Microsoft Visual Basic Scripting Edition i języka JScript natywnie w podstawowym systemie operacyjnym w systemie Windows 95 lub Windows NT 4.0. Obejmuje ona również kilka metod automatyzacji COM, które umożliwiają łatwe wykonywanie kilku zadań za pośrednictwem modelu obiektów hosta skryptów systemu Windows. Host skryptów systemu Microsoft Windows jest zintegrowany z systemem Windows 98, Windows 2000 i nowszymi wersjami systemu operacyjnego Windows. Jest on dostępny dla systemu Windows NT 4.0 przez zainstalowanie pakietu opcji Systemu Windows NT 4.0. Aby pobrać to narzędzie, odwiedź stronę Skrypty.

Przykłady tworzenia skrótu klasycznego przy użyciu protokołu WSH

W tym programie pokazano, jak za pomocą hosta skryptów systemu Windows utworzyć skrót w programie Windows Desktop. Aby uruchomić ten przykład, na komputerze musi być zainstalowany host skryptów systemu Windows. Aby uruchomić jeden z tych przykładów, skopiuj poniższy kod do nowego pliku programu i uruchom go.

Przykład 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

Przykład 2. Dodawanie argumentu wiersza polecenia

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

Przykład 3. Dodawanie skrótu adresu URL do pulpitu

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

Informacje

• Oficjalny dokument: Host skryptów systemu Windows: uniwersalny host skryptów dla języków skryptów
• Dokument techniczny: Dokumentacja programisty hosta skryptów systemu Windows