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

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

Oryginalny numer KB: 244677

Podsumowanie

WSH to narzędzie, które umożliwia uruchamianie programu Microsoft Visual Basic Scripting Edition i JScript natywnie w podstawowym systemie operacyjnym, w systemie Windows 95 lub Windows NT 4.0. Zawiera również kilka metod automatyzacji COM, które umożliwiają łatwe wykonywanie kilku zadań za pomocą modelu obiektów hosta skryptów systemu Windows. Host skryptów systemu Microsoft Windows jest zintegrowany z systemami Windows 98, Windows 2000 i nowszymi wersjami systemu operacyjnego Windows. Jest dostępny dla systemu Windows NT 4.0, instalując pakiet opcji systemu Windows NT 4.0. Aby pobrać to narzędzie, odwiedź stronę Skrypty.

Przykłady tworzenia skrótu klasycznego za pomocą protokołu WSH

Ten program pokazuje, jak za pomocą hosta skryptów systemu Windows utworzyć skrót na pulpicie systemu Windows. Aby można było 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

Uwaga 16.

W zależności od używanej wersji programu Visual FoxPro może być konieczna zmiana nazwy i ścieżki pliku wykonywalnego Visual FoxPro w przykładzie 2.

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

Uwaga 16.

Aby skrót został utworzony, należy przekazać prawidłowe parametry dla wszystkich metod. Nie pojawia się błąd, jeśli jeden z parametrów jest niepoprawny.

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