1. Уважаемые гости и пользователи форума.
    Администрация настоятельно рекомендует не регистрировать несколько аккаунтов для одного пользователя. При выявлении наличия мультиаккаунтов будут заблокированы все учетные записи данного пользователя.
    Аккаунты, зарегистрированные на временную почту будут также заблокированы.

Вопрос Создание ярлыка с помощью VBS

Тема в разделе "Другие языки программирования", создана пользователем Хамик, 29 июн 2014.

  1. Пользователь

    Регистрация:
    27 мар 2014
    Сообщения:
    353
    Симпатии:
    77
    Пол:
    Мужской
    Есть такой скрипт закрепления ярлыка на панели задач, как его переписать чтобы ярлык закреплялся в меню пуск?
    Код (Text):
    1. If WScript.Arguments.Count <> 1 Then
    2.     MsgBox "Drag'n'drop exe file to pin to taskbar", , "bla-bla"
    3.     WScript.Quit
    4. End If
    5.  
    6. strPath = WScript.Arguments(0)
    7. Set objShell = CreateObject("Shell.Application")
    8. Set objFSO = CreateObject("Scripting.FileSystemObject")
    9.  
    10. Set objFolder = objShell.NameSpace(objFSO.GetParentFolderName(strPath))
    11. Set objFolderItem = objFolder.ParseName(objFSO.GetFileName(strPath))
    12.  
    13. If objFolderItem Is Nothing Then
    14.     MsgBox strPath & vbCrLf & "not found", , "bla-bla"
    15.     WScript.Quit
    16. End If
    17.  
    18. Set colVerbs = objFolderItem.Verbs
    19.  
    20. bPinned = False
    21. For Each objVerb In colVerbs
    22.     VerbName = Replace(objVerb.Name, "&", "")
    23.     If VerbName = "Закрепить программу в панели задач" Or VerbName = "Закрепить на панели задач" Or VerbName = "Pin to Taskbar" Then
    24.         objVerb.DoIt
    25.         bPinned = True
    26.         Exit For
    27.     End If
    28. Next
     
  2. Пользователь

    Регистрация:
    27 мар 2014
    Сообщения:
    353
    Симпатии:
    77
    Пол:
    Мужской
    Решено:
    Код (Text):
    1. If WScript.Arguments.Count <> 1 Then
    2.     MsgBox "Drag'n'drop exe file to pin to StartMenu", , "Закрепление ярлыка в меню ""Пуск"""
    3.     WScript.Quit
    4. End If
    5.  
    6. strPath = WScript.Arguments(0)
    7. Set objShell = CreateObject("Shell.Application")
    8. Set objFSO = CreateObject("Scripting.FileSystemObject")
    9.  
    10. Set objFolder = objShell.NameSpace(objFSO.GetParentFolderName(strPath))
    11. Set objFolderItem = objFolder.ParseName(objFSO.GetFileName(strPath))
    12.  
    13. If objFolderItem Is Nothing Then
    14.         MsgBox strPath & vbCrLf & "not found", , "Закрепление ярлыка в меню ""Пуск"""
    15.         WScript.Quit
    16. End If
    17.  
    18. Set colVerbs = objFolderItem.Verbs
    19.  
    20. bPinned = False
    21. For Each objVerb In colVerbs
    22.         VerbName = Replace(objVerb.Name, "&", "")
    23.         If VerbName = "Закрепить в меню ""Пуск""" Or VerbName = "Pin to Start Menu" Then
    24.             objVerb.DoIt
    25.             bPinned = True
    26.             Exit For
    27.         End If
    28.    
    29.     Next
    Может кому-то пригодится:)
     
  3. Пользователь

    Регистрация:
    8 июн 2016
    Сообщения:
    1
    Симпатии:
    0
    Подскажите куда вписывать адрес на ярлык.
     
  4. Пользователь

    Регистрация:
    27 мар 2014
    Сообщения:
    353
    Симпатии:
    77
    Пол:
    Мужской
    Адрес на ярлык нужно указывать в виде параметра.
     

Поделиться этой страницей