标题: 简单的命令行下创建快捷方式方法 [打印本页]
作者: everest79 时间: 2008-10-14 09:45 标题: 简单的命令行下创建快捷方式方法
@echo off
Set str=%*
CALL Set str=%%str:%1=%%
mshta VBScript:Execute("Set aaa=CreateObject(""WScript.Shell""):Set bbb=aaa.CreateShortcut(aaa.SpecialFolders(""Desktop"") & ""\%~n1.lnk""):bbb.TargetPath=""%~1"":bbb.Arguments=""%str%"":bbb.WorkingDirectory=""%~dp1"":bbb.Save:close")
pause
Arguments 目标程序参数Set str=%*
CALL Set str=%%str:%1=%%
mshta VBScript:Execute("Set aaa=CreateObject(""WScript.Shell""):Set bbb=aaa.CreateShortcut(aaa.SpecialFolders(""Desktop"") & ""\%~n1.lnk""):bbb.TargetPath=""%~1"":bbb.Arguments=""%str%"":bbb.WorkingDirectory=""%~dp1"":bbb.Save:close")
pause
Description 快捷方式备注
FullName 返回快捷方式完整路径
Hotkey 快捷方式快捷键
IconLocation 快捷方式图标，不设则使用默认图标
TargetPath 目标
WindowStyle 窗口启动状态
WorkingDirectory 起始位置
作者: s11ss 时间: 2008-10-14 14:21
mshta VBScript:Execute("")这种形式值得推广
作者: huahua0919 时间: 2008-10-14 14:38
测试了一下，如果文件名中含有特殊字符比如 ^ 之类，就会发生错误，当然，这也是老生常谈的问题了！
作者: everest79 时间: 2008-10-16 06:00
嘿嘿，我到时发现参数里边有冒号会出错