Ярлык через 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
[свернуть]