Jak vytvořit zástupce na ploše pomocí modulu Windows Script Host


Shrnutí


Microsoft Windows Script Host (WSH) je nástroj, který umožňuje spustit Microsoft Visual Basic Scripting Edition a JScript nativně v rámci základního operačního systému Windows 95 nebo Windows NT 4.0. Obsahuje také několik metod automatizace COM, které umožňují provést některé úkoly snadno prostřednictvím objektového modelu Windows Script Host. Microsoft Windows Script Host je integrována do systému Windows 98, Windows 2000 a novějších verzích operačního systému Windows. Při instalaci systému Windows NT 4.0 Option Pack je k dispozici pro systém Windows NT 4.0. Chcete-li tento nástroj stáhnout, navštivte následující Web společnosti Microsoft Developer Network (MSDN):

Další informace


Tento program ukazuje, jak vytvořit zástupce na ploše systému Windows pomocí modulu Windows Script Host. Chcete-li spustit tento příklad, musíte mít v počítači nainstalován modul Windows Script Host. Chcete-li spustit některý z těchto příkladů, zkopírujte následující kód do nového souboru programu a spusťte jej.

Příklad 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

Příklad 2

(Přidat argument příkazového řádku)
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
Poznámka: V závislosti na verzi aplikace Visual FoxPro, který používáte je třeba změnit název a cestu Visual FoxPro spustitelné v příkladu 2.

Příklad 3

(Přidat URL zástupce na plochu)
WshShell = CreateObject("WScript.Shell")strDesktop = WshShell.SpecialFolders("Desktop")oUrlLink = WshShell.CreateShortcut(strDesktop+"\Microsoft Web Site.URL")oUrlLink.TargetPath = "http://www.microsoft.com"oUrlLink.Save
Poznámka: Chcete-li vytvořit zástupce musí být předán platné parametry pro všechny metody. Žádná chybová zpráva se zobrazí, pokud jeden z parametrů je nesprávná.

Odkazy


Další informace hledejte na následujících odkazech na webu Microsoft Developer Network (MSDN):Bílý papír: Windows Script Host: univerzální hostitele skriptování skriptování languagesTechnical papíru: Windows Script Host programmer's reference