【已解决】BAT+VBS创建快捷方式 没错误提示但也没有成功

lovekix

1. 
   
2. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%userprofile%\Desktop\英雄联2222盟清理.lnk""):b.TargetPath=""D:\常用的\英雄联2222盟清理.bat"":b.WorkingDirectory="""":b.Save:close")
   
3. 
   
4. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%userprofile%\Desktop\FXXK_ACE_x64.lnk""):b.TargetPath=""D:\WeGameApps\League Akari-1.3.2-win\FXXK_ACE_x64.exe"":b.WorkingDirectory="""":b.Save:close")
   
5. 
   
6. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%userprofile%\Desktop\LeagueAkari.lnk""):b.TargetPath=""D:\WeGameApps\League Akari-1.3.2-win\LeagueAkari.exe"":b.WorkingDirectory="""":b.Save:close")
   
7. 
   
8. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%userprofile%\Desktop\英雄联盟.lnk""):b.TargetPath=""D:\WeGameApps\英雄联盟\TCLS\client.exe"":b.WorkingDirectory="""":b.Save:close")
   
9. 
   
10. PAUSE
    
11. exit

复制代码

快捷方式 没错误提示但也没有成功


桌面 上什么都没有

lovekix

我在win11（22H2） 上 是成功 过的

现在用的是   dev 27965   官方版 （没有任何修改过）
怀疑 是    VBScript。dll    文件出 问题了  不确定  
这行命令我认为   只使用了  VBScript  和mshta  后面的确实不太懂

aloha20200628

回复 2# lovekix

先看看 C:\Windows\System32 系统目录中有否 cscript.exe, mshta.exe 两个文件，若有，可试试以下代码能否创建桌面快捷方式，能创建，则说明 vbs 还活着，只是 mshta 被系统软禁了...

1. 
   
2. ' 以下代码存为 test.vbs 在命令行直接用 cscript /nologo test.vbs 参数运行
   
3. set a=createobject("wscript.shell")
   
4. v=a.expandenvironmentstrings("%userprofile%")
   
5. p=v+"\desktop\英雄联2222盟清理.lnk"
   
6. set b=a.createshortcut(p):b.targetpath="d:\常用的\英雄联2222盟清理.bat":b.save
   

复制代码

semiuel

有没有可能是你修改了桌面文件夹的位置？

lovekix

回复 3# aloha20200628



可以 产生新的 快捷方式

lovekix

回复 4# semiuel


    没修改过

aloha20200628

回复 5# lovekix

看来在 win11 高版本中直接用 cscript 启运 vbs 脚本是一条成功之道。
若需要在批处脚本中调用 vbs 代码但不经过 mshta，可参考 http://www.bathome.net/thread-70763-1-1.html 中的有关方法...

lovekix

回复 7# aloha20200628


    那怎么创建多 个快捷方式呢？

aloha20200628

回复 8# lovekix

简单方法是用3楼版式克隆，代码如下，存为 test.vbs 在命令行用 cscript /nologo test.vbs 参数运行...

1. 
   
2. set a=createobject("wscript.shell")
   
3. v=a.expandenvironmentstrings("%userprofile%")
   
4.     p=v+"\desktop\英雄联2222盟清理.lnk"
   
5.     set b=a.createshortcut(p):b.targetpath="d:\常用的\英雄联2222盟清理.bat":b.save
   
6.     p=v+"\desktop\FXXK_ACE_x64.lnk"
   
7.     set b=a.createshortcut(p):b.targetpath="D:\WeGameApps\League Akari-1.3.2-win\FXXK_ACE_x64.exe":b.save
   
8.     p=v+"\desktop\LeagueAkari.lnk"
   
9.     set b=a.createshortcut(p):b.targetpath="D:\WeGameApps\League Akari-1.3.2-win\LeagueAkari.exe":b.save
   
10.     p=v+"\desktop\英雄联盟.lnk"
    
11.     set b=a.createshortcut(p):b.targetpath="D:\WeGameApps\英雄联盟\TCLS\client.exe":b.save
    
12. wsh.quit
    

复制代码

lovekix

回复 9# aloha20200628


    谢谢   一点问题 没有

1. set a=createobject("wscript.shell")
   
2. v=a.expandenvironmentstrings("%userprofile%")
   
3.     p=v+"\desktop\英雄联2222盟清理.lnk"
   
4.     set b=a.createshortcut(p):b.targetpath="d:\常用的\英雄联2222盟清理.bat":b.save
   
5.     p=v+"\desktop\FXXK_ACE_x64.lnk"
   
6.     set b=a.createshortcut(p):b.targetpath="D:\WeGameApps\League Akari-1.3.2-win\FXXK_ACE_x64.exe":b.save
   
7.     p=v+"\desktop\LeagueAkari.lnk"
   
8.     set b=a.createshortcut(p):b.targetpath="D:\WeGameApps\League Akari-1.3.2-win\LeagueAkari.exe":b.save
   
9.     p=v+"\desktop\英雄联盟.lnk"
   
10.     set b=a.createshortcut(p):b.targetpath="D:\WeGameApps\英雄联盟\TCLS\client.exe":b.save
    
11. wsh.quit

复制代码