VBscript не может закрепить элементы на панели задач в сборке Windows Insider - PullRequest
0 голосов
/ 22 мая 2019

У меня есть скрипт, который прикрепляет элемент к панели задач во всех ОС, кроме сборок Windows Insider.Я преобразовал его в скрипт Powershell, и он также работает на всех ОС, кроме сборки Windows Insider.Когда я запускаю его, я не получаю никаких сообщений об ошибках, ничего в Event Viewer.MS заблокировала возможность программно закреплять элементы как в меню «Пуск», так и на панели задач.Похоже, они идут дальше в следующих выпусках.Кто-нибудь еще сталкивался с этим?Вот код, который я использую.

Function PinItem(strFolder, strFile)

    Dim ShortcutPath 
    Dim sKey1
    Dim sKey2
    Dim KeyValue

      '----------------------------------------------------------------------
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    ShortcutPath = strFolder & "\" & strFile
    sKey1      = "HKCU\Software\Classes\*\shell\{:}\\"
    sKey2      = Replace(sKey1, "\\", "\ExplorerCommandHandler")
    '----------------------------------------------------------------------
    With WScript.CreateObject("WScript.Shell")
        KeyValue = .RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer" & _
            "\CommandStore\shell\Windows.taskbarpin\ExplorerCommandHandler")

        .RegWrite sKey2, KeyValue, "REG_SZ"

        With WScript.CreateObject("Shell.Application")
            With .Namespace(objFSO.GetParentFolderName(ShortcutPath))
                With .ParseName(objFSO.GetFileName(ShortcutPath))
                    .InvokeVerb("{:}")
                End With
            End With
        End With

        .Run("Reg.exe delete """ & Replace(sKey1, "\\", "") & """ /F"), 0, True
    End With
End Function
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...