创建桌面快捷方式及锁定到任务栏

# bat脚本

@echo off


set destPath=%HOMEDRIVE%\Users\%username%\AppData\Roaming\jzyx\jzmy
if not exist %destPath% md %destPath%
xcopy **.ico %destPath%\ /s /e /Y
::del /f /q **.ico
echo set WshShell = WScript.CreateObject("WScript.Shell")>tmp.vbs
echo strDesktop = WshShell.SpecialFolders("Desktop")>>tmp.vbs
echo set oShellLink = WshShell.CreateShortcut(strDesktop ^& "\**.lnk")>>tmp.vbs
echo oShellLink.TargetPath =url >>tmp.vbs
echo oShellLink.WindowStyle ="1">>tmp.vbs
echo oShellLink.Hotkey = "CTRL+SHIFT+Q">>tmp.vbs
:: 设置快捷方式的icon
echo oShellLink.IconLocation = "%destPath%\**.ico">>tmp.vbs
echo oShellLink.Description = "****">>tmp.vbs
echo oShellLink.WorkingDirectory = strDesktop>>tmp.vbs
echo oShellLink.Save>>tmp.vbs
:: 回到桌面
echo Set shell = CreateObject("Shell.Application")>>tmp.vbs
echo shell.ToggleDesktop>>tmp.vbs
call tmp.vbs
:: 任务栏锁定
call tmp2.vbs
:: 删除脚本
del /f /q tmp.vbs
del /f /q tmp2.vbs
:: 删除bat本身
del %0

pause

#创建任务栏锁定的脚本

Const CSIDL_COMMON_PROGRAMS = &H17 
Const CSIDL_PROGRAMS = &H2 
Const CSIDL_COMMON_DESKTOPDIRECTORY = &H0
set WshShell = WScript.CreateObject("WScript.Shell")
Set objShell = CreateObject("Shell.Application") 
Set objAllUsersProgramsFolder = objShell.NameSpace(CSIDL_COMMON_DESKTOPDIRECTORY) 
strAllUsersProgramsPath = objAllUsersProgramsFolder.Self.Path 
strDesktop = WshShell.SpecialFolders("Desktop")
Msgbox strAllUsersProgramsPath
Msgbox strDesktop


Set objFolderItem = objAllUsersProgramsFolder.ParseName("***.lnk") 
Set colVerbs = objFolderItem.Verbs 


For Each objVerb in colVerbs 
    
    If Replace(objVerb.name, "&", "") = "锁定到任务栏(K)" Then objVerb.DoIt
Next