我想在 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 进程来工作,但它也会暂时将提示颜色更改为绿色。
强调我的