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

[其他] 【已解决】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")
复制代码

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

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

TOP

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

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

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

返回列表