![Rank: 3](images/default/star_level2.gif) ![Rank: 3](images/default/star_level1.gif)
- 帖子
- 167
- 积分
- 201
- 技术
- 3
- 捐助
- 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 |
|