как программно создать ярлык?

  • Автор темы Автор темы slovo
  • Дата начала Дата начала
Статус
Закрыто для дальнейших ответов.
S

slovo

Участник
Топикстартер
Сообщения
13
Реакции
0
как программно создать ярлык посредством JS или VBS?
 
Ответ: как программно создать ярлык?

Из примера видно как создать на VBS. На JS так же, только синтаксис команд другой, точки с запятыми и всё такое...

Не по теме:
А ещё, есть такая штука, как поиск нужной информации в интернете.

Код: 
 ' Этот пример показывает, как создавать ярлык к программе
 ' и копировать его в заданную папку
 
 L_Welcome_MsgBox_Message_Text   = _
 "Этот скрипт создаст ярлык к калькулятору и поместит его в Автозагрузку"
 L_Welcome_MsgBox_Title_Text = "Для журнала Программист"

 Call Welcome()
 
  ' Создаем ярлык
 
 Dim WSHShell
 Set WSHShell = WScript.CreateObject("WScript.Shell")
 
 Dim MyShortcut, MyDesktop, StartupPath
 
 ' Узнаем путь к специальной папке Автозагрузка
 StartupPath = WSHShell.SpecialFolders("Startup")
 
 ' Создаем ярлык для Автозагрузки
 Set MyShortcut = WSHShell.CreateShortcut(StartupPath & _
 "\Ярлык к калькулятору.lnk")
 
 ' Устанавливаем свойства для ярлыка
 MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings("%SystemRoot%\system32\calc.exe")
 MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("%SystemRoot%\system32\")
 MyShortcut.WindowStyle = 4
 MyShortcut.IconLocation = _
 WSHShell.ExpandEnvironmentStrings("%SystemRoot%\system32\calc.exe, 0")
 MyShortcut.Save
 
 WScript.Echo "Ярлык к калькулятору создан и помещен в Автозагрузку"
 
 Sub Welcome()
     Dim intDoIt
 
     intDoIt =  MsgBox(L_Welcome_MsgBox_Message_Text,    _
                       vbOKCancel + vbInformation,       _
                       L_Welcome_MsgBox_Title_Text )
     If intDoIt = vbCancel Then
     WScript.Quit
     End If
 End Sub
 
Ответ: как программно создать ярлык?

а причем тут web?..
 
Ответ: как программно создать ярлык?

Пусть автор отпишется что он имел ввиду под понятием "ярлык", иначе перенесу тему в "Разговоры обо всем".
 
Ответ: как программно создать ярлык?

Skvoznyak сказал(а):
а причем тут web?..
Нажмите, чтобы раскрыть...

Не по теме:
ну, не в препресс же писать...
 А, вообще-то правда, о чём речь? Я просто ответил так, потому что в то время как раз сидел писал скрипт на js и на чистом автомате....
 
Ответ: как программно создать ярлык?

имеется в виду ярлык на рабочем столе для какого то скрипта.

за программу спасибо, надо ее запустить, с этим всегда

почему то не просто.
 
Ответ: как программно создать ярлык?

для запуска было добавлено вверху

<HTML>
<BODY>
<SCRIPT LANGUAGE="VBSCRIPT">

и внизу.

файл htm был запущен, дал сообщение о создании ярлыка

и стал что то делать не кончаясь.

при закрытии нет результата.
 
Ответ: как программно создать ярлык?

Думаю, не один браузер не даст скрипту создать файл на компьютере. qsedftghk, а возможно перед сообщением об успехе сделать проверку на наличие ярлыка?
 
Ответ: как программно создать ярлык?

вышеприведенный код - это не html. Точнее вопросы надо задавать. Данный код просто копируется в блокнот и сохраняется как файл лялялял.vbs. Затем просто два раза щёлкается на созданном файле и всё запускается. Но это похоже не то, что вам нужно...
 
Ответ: как программно создать ярлык?

faortto сказал(а):
а возможно перед сообщением об успехе сделать проверку на наличие ярлыка?
Нажмите, чтобы раскрыть...
Да.
Перед:
Код: 
WScript.Echo "Ярлык к калькулятору создан и помещен в Автозагрузку"
надо написать, примерно, следующее:
Код: 
Set FSO = CreateObject("Scripting.FileSystemObject")
Do While (FSO.FileExists(StartupPath & "\Ярлык к калькулятору.lnk")<>True)
Loop
 
Ответ: как программно создать ярлык?

запустил программу как vbs

дает ошибку в 10 строке 15 символе
 
Ответ: как программно создать ярлык?

код рабочий на 100%. Видать в какой-то кодировке сохраняете не в той.
 
Ответ: как программно создать ярлык?

извините все работет

хотя лучше бы она помещала ярлык на рабочий стол,

а не в атозагрузку.
 
Ответ: как программно создать ярлык?

slovo сказал(а):
хотя лучше бы она помещала ярлык на рабочий стол
Нажмите, чтобы раскрыть...
Ну, так же нельзя... Хоть чуток подумайте... ничего космического в данном скрипте нет. Уж, поменять путь куда надо сохранять ярлык точно не должно составить никакого труда.
 
Ответ: как программно создать ярлык?

на Desktop ярлык помещается.

а как заменить калькулятор на имя скрипта, допустим

var cd="c:\\THESAUR\thesaur.wsf" ?
 
Ответ: как программно создать ярлык?

ярлык для нужного скрипта помещается на рабочий стол.

Еще раз спасибо за программу.

Могу ли я перевести ее в JS?
 
Ответ: как программно создать ярлык?

slovo сказал(а):
Могу ли я перевести ее в JS?
Нажмите, чтобы раскрыть...
Да. Достаточно почитать про Windows Script Host.
 
Ответ: как программно создать ярлык?

в WSH описан похожий файл.

маленький вопрос: в каком месте задается,
что нужно запускать не exe, а скрипт (wsf) ?
 
Ответ: как программно создать ярлык?

js тоже работает. Оказывается, перед c: нельзя ставить пробел
 
Статус
Закрыто для дальнейших ответов.
Верх Низ