Een snelkoppeling op het bureaublad maken met de Windows Script-host

  • Artikel

In dit artikel wordt beschreven hoe u bureaubladsnelkoppelingen maakt met behulp van de Microsoft Windows Script Host (WSH) vanuit Visual FoxPro.

Van toepassing op: Windows 10 - alle edities, Windows Server 2012 R2
Origineel KB-nummer: 244677

Samenvatting

De WSH is een hulpprogramma waarmee u Microsoft Visual Basic Scripting Edition en JScript systeemeigen kunt uitvoeren in het basisbesturingssysteem, op Windows 95 of Windows NT 4.0. Het bevat ook verschillende COM-automatiseringsmethoden waarmee u eenvoudig verschillende taken kunt uitvoeren via het Windows Script Host Object Model. De Microsoft Windows Script Host is geïntegreerd in Windows 98, Windows 2000 en latere versies van het Windows-besturingssysteem. Het is beschikbaar voor Windows NT 4.0 door het Windows NT 4.0 Option Pack te installeren. Als u dit hulpprogramma wilt downloaden, gaat u naar Scripting.

Voorbeelden voor het maken van een snelkoppeling op het bureaublad met WSH

Dit programma laat zien hoe u de Windows Script Host gebruikt om een snelkoppeling te maken op het Windows-bureaublad. Als u dit voorbeeld wilt uitvoeren, moet de Windows Script-host op uw computer zijn geïnstalleerd. Als u een van deze voorbeelden wilt uitvoeren, kopieert u de onderstaande code naar een nieuw programmabestand en voert u deze uit.

Voorbeeld 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

Voorbeeld 2: Een opdrachtregelargument toevoegen

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

Opmerking

Afhankelijk van de versie van Visual FoxPro die u gebruikt, moet u mogelijk de naam en het pad van het uitvoerbare Visual FoxPro-bestand wijzigen in voorbeeld 2.

Voorbeeld 3: Een URL-snelkoppeling naar het bureaublad toevoegen

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

Opmerking

Om de snelkoppeling te maken, moeten geldige parameters worden doorgegeven voor alle methoden. Er wordt geen fout weergegeven als een van de parameters onjuist is.

Verwijzingen

  • Technisch document: Windows Script Host: Een universele scripthost voor scripttalen
  • Technisch document: Naslaginformatie voor programmeurs van Windows Script Host