Ярлык через VBS
Статья без картинок, только код и только скорей всего для себя.
Задача: сделать ярлык через скрипт vbs
Решение:
Рабочий вариант:
Set oWS = WScript.CreateObject(“WScript.Shell”)
sLinkFile = “C:\Users\Public\Desktop\YA.LNK”
Set oLink = oWS.CreateShortcut(sLinkFile)
oLink.TargetPath = “http://yandex.ru”
oLink.Description = “Описание”
oLink.HotKey = “F11”
oLink.IconLocation = “\\pc\ya.ico”
oLink.Save
sLinkFile = “C:\Users\Public\Desktop\YA.LNK”
Set oLink = oWS.CreateShortcut(sLinkFile)
oLink.TargetPath = “http://yandex.ru”
oLink.Description = “Описание”
oLink.HotKey = “F11”
oLink.IconLocation = “\\pc\ya.ico”
oLink.Save
Так же небольшой пример:
‘Set oLink = oWS.CreateShortcut(sLinkFile)
‘ oLink.TargetPath = “C:\Program Files\MyApp\MyProgram.EXE”
‘ oLink.Arguments = “”
‘ oLink.Description = “MyProgram”
‘ oLink.HotKey = “ALT+CTRL+F”
‘ oLink.IconLocation = “C:\Program Files\MyApp\MyProgram.EXE, 2”
‘ oLink.WindowStyle = “1”
‘ oLink.WorkingDirectory = “C:\Program Files\MyApp”
‘oLink.Save
‘ oLink.TargetPath = “C:\Program Files\MyApp\MyProgram.EXE”
‘ oLink.Arguments = “”
‘ oLink.Description = “MyProgram”
‘ oLink.HotKey = “ALT+CTRL+F”
‘ oLink.IconLocation = “C:\Program Files\MyApp\MyProgram.EXE, 2”
‘ oLink.WindowStyle = “1”
‘ oLink.WorkingDirectory = “C:\Program Files\MyApp”
‘oLink.Save
[свернуть]