批处理之家 - Powered by Discuz! Board

标题: [其他] 【已解决】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%" "%新的参数%"
我这里写的，不管用，求执教。

set SrcFile=D:\Adobe\Adobe After Effects CC 2018\Support Files\AfterFX.exe
set LnkFile=C:\Users\zyrbx\Desktop\Adobe After Effects CC 2018
set Hotkey=Ctrl+1 ::快捷方式快捷键
call :CreateShort "%SrcFile%" "%LnkFile%" "%Hotkey%" ::快捷方式快捷键
goto :eof

::Arguments              目标程序参数
::Description            快捷方式备注
::FullName               返回快捷方式完整路径
::Hotkey                 快捷方式快捷键
::IconLocation           快捷方式图标，不设则使用默认图标
::TargetPath             目标
::WindowStyle            窗口启动状态
::WorkingDirectory       起始位置

: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-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
不行啊直接运行就报错脚本错误

set SrcFile=D:\Adobe\Adobe After Effects CC 2018\Support Files\AfterFX.exe
set LnkFile=C:\Users\zyrbx\Desktop\Adobe After Effects CC 2018
set Hotkey=Ctrl+1
call :CreateShort "%SrcFile%" "%LnkFile%" "%Hotkey%"
goto :eof

::Arguments              目标程序参数
::Description            快捷方式备注
::FullName               返回快捷方式完整路径
::Hotkey                 快捷方式快捷键
::IconLocation           快捷方式图标，不设则使用默认图标
::TargetPath             目标
::WindowStyle            窗口启动状态
::WorkingDirectory       起始位置

:CreateShort  ::这里是调用的VB代码吗？
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://bathome.net./)