- 帖子
- 139
- 积分
- 162
- 技术
- 1
- 捐助
- 0
- 注册时间
- 2012-4-21
|
本帖最后由 hnfeng 于 2022-11-25 09:02 编辑
粗略看,貌似是一个 ) 的位置和 goto :eof 的位置 有问题,请尝试一下:
........
call :CreateShort "!SrcFile!" "!Args!" "!LnkFile!"
)
pause & exit
........
:CreateShort
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""DeskTop"") & ""\%~3""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Arguments=""%~2"":b.Save:close")
goto :eof |
|