.vbs ile masaüstü kısayolu oluşturmak


vbs ile masaüstü kısayolu

Eğer Script dilleri ile kıyısından köşesinden meşgul iseniz günün birinde herhangi bir programın kısayolunu masa üstüne atmanız gerekebilir , işte bu işle uğraşmamanız için aşağıda verdiğim

.vbs kodu işinizi görecektir. Örneğimizde Benim Downloads klasörümde TeamViewer_Setup_tr.exe diye bir yazılım var ve ben bunun kısayolunu masaüstüne atacağım , genellikle programlar kurulurken buna ihtiyaç duyarlar hele de winrar ile vs küçük programcıklar oluşturuyorsanız , böyle birşeye kesin ihtiyacınız olmuştur

Dim FileName
FileName = "TeamViewer"
Set shortcut = CreateObject("WScript.Shell").CreateShortcut(CreateObject("WScript.Shell").SpecialFolders("Desktop") & + "\" + FileName + ".lnk")
shortcut.Description = "TeamViewer"
shortcut.TargetPath = "%USERPROFILE%\Downloads\TeamViewer_Setup_tr.exe"
shortcut.Arguments = ""
shortcut.Save

Ben üstteki örnekte , C:\Users\velociraptor\Downloads\TeamViewer_Setup_tr.exe nin kısayolunu masaüstüne atadım , dikkat ettiyseniz %USERPROFILE% = C:\Users\velociraptor a karşılık geliyor olup her kullanıcının ismi farklı da olsa eğer download klasöründe TeamViewer_Setup_tr.exe varsa bunun kısayolunu masaüstüne atacaktır (zaten kurulum dosyasında bunu oraya biz atıyorsak hiç sıkıntı yok) üstteki kodda bu yolu kendinize göre editleyiniz ilaveten aşağıdaki kısımları da kısayolunu atayacağınız programa göre değiştiriniz
FileName = “TeamViewer”
shortcut.Description = “TeamViewer”

Bir websayfası kısayolunu masaüstünde oluşturalım:

Set SH = WScript.CreateObject("WScript.Shell")
DPath = SH.SpecialFolders("Desktop")
Set SC = SH.CreateShortcut(DPath & "\Sordum.lnk")
SC.TargetPath = "http://www.sordum.net/"
SC.IconLocation = SH.ExpandEnvironmentStrings("%SystemRoot%\system32\SHELL32.dll, 14")
SC.Save

üstteki kodları bir notepad e yapıştırıp ve Dosya – Farklı Kaydet… seçeneğine tıklayın

Farklı kaydet

Açılan pencerede herhangi bir isim verin (dosya ismini istediğiniz şekilde düzenleyin ) ve uzantısı .vbs olarak kaydedip çalıştırın

Dosya ismi

Bu kodun birçok arkadaşın işine yarayacağına eminim.



Yorum Ekle

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

CAPTCHA