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

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

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

  1. Ветеран

    Регистрация:
    27 мар 2014
    Сообщения:
    313
    Симпатии:
    54
    Пол:
    Мужской
    Есть такой скрипт закрепления ярлыка на панели задач, как его переписать чтобы ярлык закреплялся в меню пуск?
    Код (Text):
    If WScript.Arguments.Count <> 1 Then
        MsgBox "Drag'n'drop exe file to pin to taskbar", , "bla-bla"
        WScript.Quit
    End If

    strPath = WScript.Arguments(0)
    Set objShell = CreateObject("Shell.Application")
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objFolder = objShell.NameSpace(objFSO.GetParentFolderName(strPath))
    Set objFolderItem = objFolder.ParseName(objFSO.GetFileName(strPath))

    If objFolderItem Is Nothing Then
        MsgBox strPath & vbCrLf & "not found", , "bla-bla"
        WScript.Quit
    End If

    Set colVerbs = objFolderItem.Verbs

    bPinned = False
    For Each objVerb In colVerbs
        VerbName = Replace(objVerb.Name, "&", "")
        If VerbName = "Закрепить программу в панели задач" Or VerbName = "Закрепить на панели задач" Or VerbName = "Pin to Taskbar" Then
            objVerb.DoIt
            bPinned = True
            Exit For
        End If
    Next
     
  2. Ветеран

    Регистрация:
    27 мар 2014
    Сообщения:
    313
    Симпатии:
    54
    Пол:
    Мужской
    Решено:
    Код (Text):
    If WScript.Arguments.Count <> 1 Then
        MsgBox "Drag'n'drop exe file to pin to StartMenu", , "Закрепление ярлыка в меню ""Пуск"""
        WScript.Quit
    End If

    strPath = WScript.Arguments(0)
    Set objShell = CreateObject("Shell.Application")
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objFolder = objShell.NameSpace(objFSO.GetParentFolderName(strPath))
    Set objFolderItem = objFolder.ParseName(objFSO.GetFileName(strPath))

    If objFolderItem Is Nothing Then
            MsgBox strPath & vbCrLf & "not found", , "Закрепление ярлыка в меню ""Пуск"""
            WScript.Quit
    End If

    Set colVerbs = objFolderItem.Verbs

    bPinned = False
    For Each objVerb In colVerbs
            VerbName = Replace(objVerb.Name, "&", "")
            If VerbName = "Закрепить в меню ""Пуск""" Or VerbName = "Pin to Start Menu" Then
                objVerb.DoIt
                bPinned = True
                Exit For
            End If
       
        Next
    Может кому-то пригодится:)
     
  3. Новичок

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

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

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