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

# 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




  • 0
    点赞
  • 3
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值