windows批处理运行应用程序并创建界面快捷方式

B.bat内容如下：
start C\D.exe mshta VBScript:Execute(Set a=CreateObject(WScript.Shell):Set b=a.CreateShortcut(a.SpecialFolders(Desktop) & \应用程序.lnk):b.TargetPath=%~dp0C\D.exe:b.WorkingDirectory=%~dp0C\:b.Save:close)

果然有效