将应用程序快捷方式固定到任务栏

将应用程序快捷方式固定到任务栏

我想在 Windows 10(以及 Windows 11)中使用批处理文件将多个应用程序固定到任务栏。我从网上获取了代码,但不起作用。请帮忙修改它们以使其正常工作。

PIN码

' ### NOTES

' *** Usage - Pin.vbs

' *** WScript.exe "%~dp0\%~dp0\Pin.vbs" [drive:][path]filename [Argument]

' *** [Arguments] = 0 1 2

' *** 0 = Unpin from Taskbar

' *** 1 = Pin to Taskbar

' *** 2 = Install

' *** <no> = List all Verbs

 Set objShell = CreateObject("Shell.Application")
 Set filesystem = CreateObject("scripting.Filesystemobject")
 If filesystem.FileExists(Wscript.Arguments(0)) Then
  Set objFolder = objShell.Namespace(filesystem.GetParentFolderName(Wscript.Arguments(0)))
  Set objFolderItem = objFolder.ParseName(filesystem.GetFileName(WScript.Arguments(0)))
  Set colVerbs = objFolderItem.Verbs
  
  If WScript.Arguments.Length = 1 Then
   For Each objVerb in colVerbs
    WScript.Echo Replace(objVerb.name, "&", "")
   Next
  ElseIf WScript.Arguments.Length > 1 Then
   Select case WScript.Arguments(1)
    case 0
     For Each objVerb in colVerbs
      If Replace(objVerb.name, "&", "") = "Unpin from Taskbar" Then objVerb.DoIt
     Next
    case 1
     For Each objVerb in colVerbs
      If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
     Next
    case 2
     For Each objVerb in colVerbs
      If Replace(objVerb.name, "&", "") = "Install" Then objVerb.DoIt
     Next
   End Select
  End If
 End If

@echo off
%~d0
cd %~d0%~p0

WScript.exe "%~dp0Pin.vbs" "%programfiles%\PDFCreator\PDFCreator.exe" 1

WScript.exe "%~dp0Pin.vbs" "%programfiles%\Macrium\Reflect\Reflect.exe" 1

WScript.exe "%~dp0Pin.vbs" "%programfiles(x86)%\Adobe\Acrobat DC\Acrobat\Acrobat.exe" 1

答案1

请帮助修改它们以使其正常工作

这已不再可能:

操作方法:使用 VBScript 将项目固定或取消固定到“开始”菜单(Windows 10)本地计算机上的可执行文件可以固定到“开始”菜单和/或任务栏。
在最新版本的 Windows 10 中,此操作不再可以通过调用 VBScript 中的 pin/unpin 动词来完成。
另一种方法是使用 TechnoSys 实用程序固定到任务栏它可以将可执行文件(但不能将批处理文件或 Metro 应用)固定到当前用户的“开始”菜单或任务栏。该实用程序通过模拟 Explorer.exe 进程来工作,但它也会暂时将提示颜色更改为绿色。

强调我的

来源固定到开始菜单 - VBScript - SS64.com

相关内容