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

Rank: 1

帖子
8 
积分
21 
技术
0  
捐助
0  
注册时间
2018-10-5 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2018-10-7 15:04 | 只看该作者

[其他] 【已解决】BAT脚本调用VBS创建快捷方式这些参数怎么用啊？

本帖最后由 idzyr 于 2018-10-12 15:02 编辑

原帖地址（4楼）http://www.bathome.net/viewthread.php?tid=11050&highlight=%B4%B4%BD%A8%BF%EC%BD%DD%B7%BD%CA%BD
set 加参数名=值
call :CreateShort "%SrcFile%" "%LnkFile%" "%新的参数%"
我这里写的，不管用，求执教。
  1. set SrcFile=D:\Adobe\Adobe After Effects CC 2018\Support Files\AfterFX.exe

  2. set LnkFile=C:\Users\zyrbx\Desktop\Adobe After Effects CC 2018

  3. set Hotkey=Ctrl+1 ::快捷方式快捷键

  4. call :CreateShort "%SrcFile%" "%LnkFile%" "%Hotkey%" ::快捷方式快捷键

  5. goto :eof

  6. 

  7. ::Arguments              目标程序参数

  8. ::Description            快捷方式备注

  9. ::FullName               返回快捷方式完整路径

  10. ::Hotkey                 快捷方式快捷键

  11. ::IconLocation           快捷方式图标，不设则使用默认图标

  12. ::TargetPath             目标

  13. ::WindowStyle            窗口启动状态

  14. ::WorkingDirectory       起始位置

  15. 

  16. :CreateShort

  17. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2.lnk""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Save:close")
复制代码
收藏 分享

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14933 
积分
46140 
技术
857  
捐助
745  
注册时间
2008-6-9 
2楼
发表于 2018-10-7 18:49 | 只看该作者
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2.lnk""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Hotkey=""%~3"":b.Save:close")
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

idzyr

Rank: 1

帖子
8 
积分
21 
技术
0  
捐助
0  
注册时间
2018-10-5 
3楼
发表于 2018-10-7 19:53 | 只看该作者
回复 2# Batcher
不行啊直接运行就报错脚本错误
  1. set SrcFile=D:\Adobe\Adobe After Effects CC 2018\Support Files\AfterFX.exe

  2. set LnkFile=C:\Users\zyrbx\Desktop\Adobe After Effects CC 2018

  3. set Hotkey=Ctrl+1

  4. call :CreateShort "%SrcFile%" "%LnkFile%" "%Hotkey%"

  5. goto :eof

  6. 

  7. ::Arguments              目标程序参数

  8. ::Description            快捷方式备注

  9. ::FullName               返回快捷方式完整路径

  10. ::Hotkey                 快捷方式快捷键

  11. ::IconLocation           快捷方式图标，不设则使用默认图标

  12. ::TargetPath             目标

  13. ::WindowStyle            窗口启动状态

  14. ::WorkingDirectory       起始位置

  15. 

  16. :CreateShort  ::这里是调用的VB代码吗？

  17. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2.lnk""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Hotkey=""%~2"":b.Save:close")
复制代码

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14933 
积分
46140 
技术
857  
捐助
745  
注册时间
2008-6-9 
4楼
发表于 2018-10-7 22:26 | 只看该作者
回复 3# idzyr


    2楼代码已更新，你再试试
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

idzyr

Rank: 1

帖子
8 
积分
21 
技术
0  
捐助
0  
注册时间
2018-10-5 
5楼
发表于 2018-10-7 23:00 | 只看该作者
回复 4# Batcher
可以了，再加其它参数，这里是不是直接按顺序加1啊b.Hotkey=""%~3""
下面的代码是vbs的吗？我只学了点bat。搞不懂什么意思。
谢谢管理老哥的代码。
:CreateShort
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2.lnk""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Save:close")

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14933 
积分
46140 
技术
857  
捐助
745  
注册时间
2008-6-9 
6楼
发表于 2018-10-8 08:12 | 只看该作者
回复 5# idzyr


是的，使用call命令调用:CreateShort函数，后面几个是位置参数
%1就是"%SrcFile%"
%2就是"%LnkFile%"
%3就是"%Hotkey%"
以此类推

17行写的很清楚嘛
VBScript
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表