Board logo

标题: [其他] 【已解决】BAT脚本调用VBS创建快捷方式这些参数怎么用啊? [打印本页]

作者: idzyr    时间: 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. ::Arguments              目标程序参数
  7. ::Description            快捷方式备注
  8. ::FullName               返回快捷方式完整路径
  9. ::Hotkey                 快捷方式快捷键
  10. ::IconLocation           快捷方式图标,不设则使用默认图标
  11. ::TargetPath             目标
  12. ::WindowStyle            窗口启动状态
  13. ::WorkingDirectory       起始位置
  14. :CreateShort
  15. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2.lnk""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Save:close")
复制代码

作者: Batcher    时间: 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")
作者: idzyr    时间: 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. ::Arguments              目标程序参数
  7. ::Description            快捷方式备注
  8. ::FullName               返回快捷方式完整路径
  9. ::Hotkey                 快捷方式快捷键
  10. ::IconLocation           快捷方式图标,不设则使用默认图标
  11. ::TargetPath             目标
  12. ::WindowStyle            窗口启动状态
  13. ::WorkingDirectory       起始位置
  14. :CreateShort  ::这里是调用的VB代码吗?
  15. 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")
复制代码

作者: Batcher    时间: 2018-10-7 22:26

回复 3# idzyr


    2楼代码已更新,你再试试
作者: idzyr    时间: 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")
作者: Batcher    时间: 2018-10-8 08:12

回复 5# idzyr


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

17行写的很清楚嘛
VBScript




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2