Скрипт создания ярлыка

@Basilio666 · Регистрация: 03.07.2014

Студворк — интернет-сервис помощи студентам

необходимо написать скрипт для создания ярлыка, проблема возникла с oShellLink.TargetPath. Не принимается имя. Просьба помочь создать ярлык с расположением объекта: "C:\Windows\System32\javaws.exe https://imya_servera.jnlp"

Visual Basic
1
2
3
4
5
6
7
set WshShell = WScript.CreateObject("WScript.Shell" )
set oShellLink = WshShell.CreateShortcut("C:\df.lnk" )
oShellLink.TargetPath = "C:\Windows\System32\javaws.exe https://imya_servera.jnlp"
oShellLink.WindowStyle = 1
oShellLink.Description = "Shortcut Script"
oShellLink.WorkingDirectory = "c:\windows\system32\"
oShellLink.Save

FlasherX · 09.03.2021, 22:13

Сообщение от fedsumk

зачем менять если работает

Без чёрных окон и быстрее.

Сообщение от fedsumk

SpecialFolders(17) а что такое 17 можно узнать

Можно:

Visual Basic
1
2
3
4
5
Set SF = CreateObject("WScript.Shell").SpecialFolders
For i = 0 To SF.Count - 1
  S = S & vbCr & i & ": " & SF(i)
Next
MsgBox Mid(S, 3)

Вообще можно было брать сразу .SpecialFolders(14) без & "\Startup", но некоторые проги туда lnk прописывают. Это от нескольких параметров реестра зависит.
С SendTo аналогично — .SpecialFolders(12) либо .SpecialFolders("SendTo").

@fedsumk · 09.03.2021, 22:25

спасибо

Новые блоги и статьи Все статьи Все блоги /
Оказывается, Unreal Engine позволяет качество на порядки выше, чем было в Lineedge Etyuhibosecyu 05.07.2026 Жаль, конечно, что я не узнал об этом, пока Lineedge существовала, а то бы Noname2331 написал, что волки превращаются в пиксельную кашу, а я бы его попросил скачать какую-нибудь бриллиантовую или Pro. . .	Doom для терминала без стрельбы и монстров. 3D Raycasting на ascii. dcc0 05.07.2026 Попросил нейронную сеть deepai. org написать рейкастинг 3D с библиотекой ncurses для Linux. Чтобы можно было ходить на стрелочки. Чтобы стены были отрисованы символами. Справилась. Первый вариант. . .	Установка статуса документа по условию Maks 05.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "НарядПутевка" разработанного в КА2. Задача: в табличной части "Материалы" документа при записи автоматически устанавливать статус. . .	Сезонность и суточность закисления почв anaschu 04.07.2026 200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .
В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .	интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .	Сам себя обучал rest api anaschu 02.07.2026 Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .

@fedsumk 0 / 0 / 0 Регистрация: 08.10.2015 Сообщений: 20
	09.03.2021, 22:25
	спасибо 0