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

idzyr

原帖地址（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. 
   
2. set SrcFile=D:\Adobe\Adobe After Effects CC 2018\Support Files\AfterFX.exe
   
3. set LnkFile=C:\Users\zyrbx\Desktop\Adobe After Effects CC 2018
   
4. set Hotkey=Ctrl+1 ::快捷方式快捷键
   
5. call :CreateShort "%SrcFile%" "%LnkFile%" "%Hotkey%" ::快捷方式快捷键
   
6. goto :eof
   
7. 
   
8. ::Arguments              目标程序参数
   
9. ::Description            快捷方式备注
   
10. ::FullName               返回快捷方式完整路径
    
11. ::Hotkey                 快捷方式快捷键
    
12. ::IconLocation           快捷方式图标，不设则使用默认图标
    
13. ::TargetPath             目标
    
14. ::WindowStyle            窗口启动状态
    
15. ::WorkingDirectory       起始位置
    
16. 
    
17. :CreateShort
    
18. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2.lnk""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Save:close")
    

复制代码

Batcher

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")

idzyr

回复 2# Batcher
不行啊直接运行就报错脚本错误

1. 
   
2. set SrcFile=D:\Adobe\Adobe After Effects CC 2018\Support Files\AfterFX.exe
   
3. set LnkFile=C:\Users\zyrbx\Desktop\Adobe After Effects CC 2018
   
4. set Hotkey=Ctrl+1
   
5. call :CreateShort "%SrcFile%" "%LnkFile%" "%Hotkey%"
   
6. goto :eof
   
7. 
   
8. ::Arguments              目标程序参数
   
9. ::Description            快捷方式备注
   
10. ::FullName               返回快捷方式完整路径
    
11. ::Hotkey                 快捷方式快捷键
    
12. ::IconLocation           快捷方式图标，不设则使用默认图标
    
13. ::TargetPath             目标
    
14. ::WindowStyle            窗口启动状态
    
15. ::WorkingDirectory       起始位置
    
16. 
    
17. :CreateShort  ::这里是调用的VB代码吗？
    
18. 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")
    
19. 
    

复制代码

Batcher

回复 3# idzyr


    2楼代码已更新，你再试试

idzyr

回复 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")

Batcher

回复 5# idzyr


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

17行写的很清楚嘛
VBScript