Windows Betik Konağı ile masaüstü kısayolu oluşturma

Bu makalede, Visual FoxPro'nun içinden Microsoft Windows Betik Konağı (WSH) kullanılarak masaüstü kısayollarının nasıl oluşturulacağı açıklanır.

Şunlar için geçerlidir: Windows 10 - tüm sürümler, Windows Server 2012 R2
Özgün KB numarası: 244677

Özet

WSH, Microsoft Visual Basic Scripting Edition ve JScript'i Windows 95 veya Windows NT 4.0'da temel İşletim Sistemi içinde yerel olarak çalıştırmanızı sağlayan bir araçtır. Ayrıca, Windows Betik Konağı Nesne Modeli aracılığıyla birkaç görevi kolayca gerçekleştirmenize olanak sağlayan çeşitli COM otomasyon yöntemleri içerir. Microsoft Windows Betik Konağı, Windows işletim sisteminin Windows 98, Windows 2000 ve sonraki sürümleriyle tümleşiktir. Windows NT 4.0 Seçenek Paketi yüklenerek Windows NT 4.0 için kullanılabilir. Bu aracı indirmek için Betik Oluşturma'yı ziyaret edin.

WSH ile masaüstü kısayolu oluşturma örnekleri

Bu program, Windows Masaüstünde kısayol oluşturmak için Windows Betik Ana Bilgisayarı'nın nasıl kullanılacağını gösterir. Bu örneği çalıştırmak için bilgisayarınızda Windows Betik Konağı yüklü olmalıdır. Bu örneklerden birini çalıştırmak için aşağıdaki kodu yeni bir program dosyasına kopyalayın ve çalıştırın.

Örnek 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

Örnek 2: Komut satırı bağımsız değişkeni ekleme

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

Örnek 3: Masaüstüne URL kısayolu ekleme

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

Başvurular

• Teknik inceleme: Windows Betik Ana Bilgisayarı: Betik dilleri için evrensel bir Betik Ana Bilgisayarı
• Teknik inceleme: Windows Betik Konağı programcı başvurusu