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

# 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

创建桌面快捷方式及锁定到任务栏相关推荐

解决Inno Setup制作安装包无法创建桌面快捷方式的问题
昨天想把个java程序做成exe安装软件,然后就去下载了Inno Setup这个软件安装包制作软件,Inno Setup这个软件确实非常好用,但是由于我下载的中文汉化版,根据向导一步步来就是不创建桌面 ...
edge浏览器如何把网页放到桌面_win10系统怎么把Edge浏览器放到桌面?Edge怎么创建桌面快捷方式...
在安装win10系统之后,很多用户都会发现win10系统采用全新的Microsoft Edge浏览器,使用之后觉得Edge浏览器功能强大,不过在桌面并没有Edge浏览器快捷方式图标,那么要怎么在桌面创 ...
Ubuntu安装pycharm并创建桌面快捷方式
1.下载Pycharm社区版本:Pycharm下载地址 2.解压 3.执行pycharm.sh命令 4.点击continue按钮 5.新建项目即可 6.创建桌面快捷方式 7.在目录栏里面出现快捷方式
好压自解压文件解压完成后创建桌面快捷方式并启动
首先右键点击想要压缩的目标文件夹,右键点击"添加到压缩文件",在弹出的窗口中选择7z格式,然后勾选创建自解压格式,然后点击自解压选项. 进入自解压选项后,点击解压标签,在解压后运行 ...
ubuntu clion 创建桌面快捷方式
ubuntu clion 创建桌面快捷方式首先在终端下输入 cd /usr/share/applications/ 进入applications目录下,建立一个clion.desktop文件 sud ...
[Android]为指定的应用创建桌面快捷方式
网上一搜一大把为自己的应用创建快捷方式,但是本文的侧重点在为"指定的应用"创建桌面快捷方式. 常见的桌面快捷方式有两要素:1.应用名 2.应用图标. 指定应用图标的信息是: ...
android自动创建桌面,Android应用启动后自动创建桌面快捷方式的实现方法
Android的开发其实是比较灵活的,其实在安装了Android应用程序之后,会在桌面上自动创建快捷方式,接下来爱站技术频道小编将会介绍Android应用启动后自动创建桌面快捷方式的实现方法给大家,有 ...
delphi编程创建桌面快捷方式
delphi编程创建桌面快捷方式 uses ActiveX,ComObj,StdCtrls,ShlObj,FileCtrl; procedure TForm1.N2Click(Sender: TOb ...
Web安装项目创建桌面快捷方式
一.WEB安装项目部署 1.新建:新建项目-安装和部署项目-WEB安装项目 2.部署: (1)进入文件系统视图,"项目-右键-视图-文件系统";也可以直接点"解决方案资源 ...

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

创建桌面快捷方式及锁定到任务栏相关推荐

最新文章

热门文章