[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
708841460

Rank: 1

帖子
40 
积分
62 
技术
0  
捐助
0  
注册时间
2018-12-26 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2019-8-17 08:41 | 只看该作者

[文件操作] 批处理怎样修改快捷方式目标地址？

如果桌面上有火狐.lnk时，修改目标地址，在目标地址中加入www.baidu.com，使这个快捷方式打开的火狐浏览器页面是百度
收藏 分享

708841460

Rank: 1

帖子
40 
积分
62 
技术
0  
捐助
0  
注册时间
2018-12-26 
2楼
发表于 2019-8-17 14:36 | 只看该作者
自己顶，炸大佬

TOP

cfwyy77_bat

Rank: 3Rank: 3

帖子
195 
积分
288 
技术
27  
捐助
0  
注册时间
2017-3-21 
3楼
发表于 2019-8-17 15:38 | 只看该作者
快捷方式的路径自己看情况改一改。供参考。
  1. @echo off

  2. %1 %2

  3. mshta vbscript:createobject("shell.application").shellexecute("""%~0""","goto :code",,"runas",1)(window.close)&&exit /b

  4. 

  5. :code

  6. echo Set objShell = WScript.CreateObject^("WScript.Shell"^) >%temp%\temp.vbs

  7. echo Set lnk = objShell.CreateShortcut("C:\users\public\desktop\火狐.lnk") >>%temp%\temp.vbs

  8. echo lnk.Arguments = """www.baidu.com""" >>%temp%\temp.vbs

  9. echo lnk.Save >>%temp%\temp.vbs

  10. 

  11. cscript "%temp%\temp.vbs" 

  12. del /f /q "%temp%\temp.vbs" 
复制代码
1

评分人数

TOP

708841460

Rank: 1

帖子
40 
积分
62 
技术
0  
捐助
0  
注册时间
2018-12-26 
4楼
发表于 2019-8-19 11:13 | 只看该作者
回复 3# cfwyy77_bat


   大神他总是出现这俩错误，是我改的不对吗。还有他总是弹出另一个窗口执行，能不弹出吗

TOP

cfwyy77_bat

Rank: 3Rank: 3

帖子
195 
积分
288 
技术
27  
捐助
0  
注册时间
2017-3-21 
5楼
发表于 2019-8-19 12:35 | 只看该作者
回复 4# 708841460
你把这一整段 加到你自己的BAT里了？这样是可能有问题的。因为一开始mshta会调用自身（%~0）来以管理员权限运行，我这么做是怕有些路径没有管理员权限，保存快捷方式会失败的。
你可以先尝试把前面这一段
  1. %1 %2

  2. mshta vbscript:createobject("shell.application").shellexecute("""%~0""","goto :code",,"runas",1)(window.close)&&exit /b

  3. :code
复制代码
拿掉，试试看。

TOP

708841460

Rank: 1

帖子
40 
积分
62 
技术
0  
捐助
0  
注册时间
2018-12-26 
6楼
发表于 2019-8-19 14:35 | 只看该作者
回复 5# cfwyy77_bat


    能否帮忙加上if，判断快捷方式是否存在。我加的好像有问题，但又不知道哪里的问题，加上if就出上面的错

TOP

cfwyy77_bat

Rank: 3Rank: 3

帖子
195 
积分
288 
技术
27  
捐助
0  
注册时间
2017-3-21 
7楼
发表于 2019-8-19 14:58 | 只看该作者
回复 6# 708841460
加到  :code后面

TOP

返回列表