【已解决】创建开始菜单的快捷方式，谢谢！

chishingchan

批处理位于 E:\Program Files (x86)\批处理.cmd
搜狗安装于 E:\Program Files (x86)\SogouWBInput\5.2.0.2462

现在需要一个批处理创建快捷方式，但出错，求修正，谢谢！

1. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""startmenu"") & ""\Programs\搜狗输入法\设置向导.lnk""):b.TargetPath=""%dp0SogouWBInput\5.2.0.2462\ImeUtil.exe"":b.Arguments=""-wizard"":b.Save:close")

复制代码

chishingchan

1. @echo off
   
2. chcp 65001 >nul
   
3. 
   
4. set "StartMenu=%APPDATA%\Microsoft\Windows\Start Menu\Programs\搜狗五笔输入法"
   
5. if not exist "%StartMenu%" md "%StartMenu%"
   
6. set "ShortcutName=设置向导.lnk"
   
7. set "TargetPath=%~dp0SogouWBInput\5.2.0.2462\ImeUtil.exe"
   
8. set "Arguments=-wizard"
   

复制代码

刚才问了 DeepSeek，给出了 powershell 方式的，运行正确：

1. powershell -Command "$ws = New-Object -ComObject WScript.Shell; $s = $ws.CreateShortcut('%StartMenu%\%ShortcutName%'); $s.TargetPath = '%TargetPath%'; $s.Arguments = '%Arguments%'; $s.Save()"

复制代码

还有一个 mshta 方式的，还是出错：

1. mshta VBScript:Execute("Set ws = CreateObject(""WScript.Shell""): Set lnk = ws.CreateShortcut("""%StartMenu%\%ShortcutName%"""): lnk.TargetPath = """%TargetPath%""": lnk.Arguments = """%Arguments%""": lnk.Save: close")

复制代码

aloha20200628

回复 2# chishingchan

二楼 mshta+vbs 代码段订正如下

1. 
   
2. mshta VBScript:Execute("Set ws=CreateObject(""WScript.Shell""):Set lnk=ws.CreateShortcut(""%StartMenu%\%ShortcutName%""):lnk.TargetPath=""%TargetPath%"":lnk.Arguments=""%Arguments%"":lnk.Save:close")
   

复制代码

窄口牛

改成vbs，bug11已经不支持玛沙特了

窄口牛

1. Dim targetPath
   
2. Dim programGroupName
   
3. Dim lnkName
   
4. targetPath = "E:\Program Files (x86)\SogouWBInput\5.2.0.2462\ImeUtil.exe"
   
5. programGroupName = "搜狗拼音"
   
6. lnkName = "搜狗拼音工具"
   
7. Set WshShell = WScript.CreateObject("WScript.Shell")
   
8. Dim startMenuProgPath, programGroupPath
   
9. startMenuProgPath = WshShell.SpecialFolders("Programs")
   
10. programGroupPath = startMenuProgPath & "" & programGroupName
    
11. lnkSavePath = programGroupPath & "" & lnkName & ".lnk"
    
12. Set fso = CreateObject("Scripting.FileSystemObject")
    
13. If Not fso.FolderExists(programGroupPath) Then
    
14.     fso.CreateFolder(programGroupPath) ' 创建文件夹
    
15. End If
    
16. Set Shortcut = WshShell.CreateShortcut(lnkSavePath)
    
17. Shortcut.TargetPath = targetPath
    
18. Shortcut.Description = lnkName
    
19. Shortcut.WindowStyle = 1
    
20. Shortcut.IconLocation = "E:\Program Files (x86)\SogouWBInput\5.2.0.2462\SogouWBInput.exe,0"
    
21. Shortcut.Save
    
22. Set Shortcut = Nothing
    
23. Set fso = Nothing
    
24. Set WshShell = Nothing
    
25. WScript.Echo "创建成功！" & vbCrLf & "程序组：开始菜单\所有程序\搜狗拼音" & vbCrLf & "快捷方式：" & lnkName

复制代码

aloha20200628

用 win11 24h2 实测，确已移除了 mshta 的命令行用法，即1-3楼采用的句式（但运行 *.hta 脚本文件或 bat+mshta 混编脚本依然被支持），此后在批处脚本中调用 jscript/vbs 代码少了一条捷径，还好有 bat+jscript 混编方法和 bat+vbs 混编方法可用，或直接采取功能更为丰富的 powershell 平替。针对 bat+vbs 混编方法可参见 http://www.bathome.net/thread-70763-1-1.html，但其版式远不如 bat+jscript 混编方法简洁，尤其是需用多行批处代码时。以下是两个简单的示例代码用来创建系统内置计算器的桌面快捷方式，一是用 bat+jscript 混编方法，二是采用批处直调 powershell 方法。

一。用 bat+jscript 混编方法（存为 test1.bat 运行）

1. 
   
2. 2>1/* ::
   
3. @echo off &set "scF=%userprofile%\desktop\计算器.lnk" &set "tP=c:\windows\system32\calc.exe"
   
4. cscript /nologo /e:jscript "%~f0" "%scF%" "%tP%" &exit/b */
   
5. v=WSH.arguments, ws=WSH.createObject('wscript.shell'), sc=ws.createShortcut(v(0)), sc.targetPath=v(1), sc.save(), WSH.quit();
   

复制代码

二。批处直调 powershell 方法（存为 test2.bat 运行）

1. 
   
2. @echo off &set "scF=%userprofile%\desktop\计算器.lnk" &set "tP=c:\windows\system32\calc.exe"
   
3. powershell -c "$ws=New-Object -ComObject WScript.Shell; $lnk=$ws.CreateShortcut('%scF%'); $lnk.TargetPath='%tp%'; $lnk.Save()" &exit/b
   

复制代码